Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив, график функции, создание 5 слов из 1
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Allusya
16.02.2004 12:47
Извиняюсь, не хотела никому доставлять неудобства, просто уж очень мало времени было и на чтение правил его не хватило  :(
Надеюсь, что на этот раз оформила всё правильно.  :smile.gif
Пожалуйста, помогите решить задачи! Ооочень нужно! Вопрос жизни и смерти.  
1. Составить программу создания пяти новых слов из слова "демобилизация".
2. Составить программу построения графика функции у=2x^2+1. выделить и вывести точки пересечения графика и осей координат.
3. Составит программу заполнения двумерного массива 2х10 случайными целыми числами от -5 до 10. Найти среднее арифметическое и минимум.  
Заранее спасибо!  
pascal65536
17.02.2004 5:41
1. Из слова "демобилизация" можно составить не 5 а больше слов. Допустим перебором всех возможных комбинаций сочетания букв от 2 до 13. Чтобы определить что получилось в результате нужен словарь, с которым этор результат надо сравнивать. Создание словаря входит в постановку задачи?
Allusya
17.02.2004 7:41
>Создание словаря входит в постановку задачи?
Нет, не входит. Условие звучит именно так, как я написала.
DI
17.02.2004 8:37
чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря
Catty
17.02.2004 18: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 19:33
Цитата
чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря


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


Catty, спасибо огромное!!!  :)
Catty
17.02.2004 19:49
;D
ALex___
17.02.2004 20:02
женская взаимовыручка хи-хи
Catty
17.02.2004 20:39
На этом  и живем!!!! ;) ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.