Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массив, график функции, создание 5 слов из 1

Автор: Allusya 16.02.2004 16:47

Извиняюсь, не хотела никому доставлять неудобства, просто уж очень мало времени было и на чтение правил его не хватило  :(
Надеюсь, что на этот раз оформила всё правильно.  :smile.gif
Пожалуйста, помогите решить задачи! Ооочень нужно! Вопрос жизни и смерти.  
1. Составить программу создания пяти новых слов из слова "демобилизация".
2. Составить программу построения графика функции у=2x^2+1. выделить и вывести точки пересечения графика и осей координат.
3. Составит программу заполнения двумерного массива 2х10 случайными целыми числами от -5 до 10. Найти среднее арифметическое и минимум.  
Заранее спасибо!  

Автор: pascal65536 17.02.2004 9:41

1. Из слова "демобилизация" можно составить не 5 а больше слов. Допустим перебором всех возможных комбинаций сочетания букв от 2 до 13. Чтобы определить что получилось в результате нужен словарь, с которым этор результат надо сравнивать. Создание словаря входит в постановку задачи?

Автор: Allusya 17.02.2004 11:41

>Создание словаря входит в постановку задачи?
Нет, не входит. Условие звучит именно так, как я написала.

Автор: DI 17.02.2004 12:37

чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря

Автор: Catty 17.02.2004 22:13

Вот кажеться третья задача!! ;D

Код

uses Crt;
const n=2;
m=10;
var a:array[1..n,1..m] of integer;
i,j,min,Sum:integer;   Sa:real;
begin
 ClrScr;

 randomize;
 for i:=1 to n do {generation}
   for j:=1 to m do begin
     a[i,j]:=random(15)-2;
   end;



 ClrScr;
 for i:=1 to n do {vuvod masiva na ekran}
   for j:=1 to m do begin
     GotoXY(i*6-5,j);
     Writeln(a[i,j]);
   end;
 ReadKey;

Sum:=0;
for i:=1 to n do
for j:= 1 to m do   begin
Sum:=Sum+a[i,j];
Sa:=Sum/20;      {Sa}
end;


min:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<min then min:=a[i,j];end;   {min}
writeln('Sa=',' ',Sa:4:2,' ','min=',' ',min);
ReadKey;
end.


генерацию можешь отрегулировать как те надо(если эта не устраивает)!! ;D

Автор: Allusya 17.02.2004 23:33

Цитата
чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря


Наверное, здесь неважно, будет иметь это слово смысл или нет...  Это мне в школе задали, поэтому вряд ли тут будет что-то слишком замудрённое.


Catty, спасибо огромное!!!  :)

Автор: Catty 17.02.2004 23:49

;D

Автор: ALex___ 18.02.2004 0:02

женская взаимовыручка хи-хи

Автор: Catty 18.02.2004 0:39

На этом  и живем!!!! ;) ;)