|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2008, 15:54 | #1 |
Регистрация: 20.05.2008
Сообщений: 5
|
Решите задачки по паскалю пожалуйста
Задание 1
Вычислить произведение элементов матрицы D(20,20), без учета элементов побочной диагонали. Задание 2 В текстовом файле содержится последовательность действительных чисел. Найти максимальное из чисел, имеющих нечетные порядковые номера. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры. буду очень благодарен если вы мне поможете!!! |
20.05.2008, 16:13 | #2 |
Регистрация: 20.05.2008
Сообщений: 5
|
//Вот тут код 1 программы она не хочет работать почему?
program Prog2_Matrix; Const n=20; Var H:Array [1..n,1..n] of integer; i,j:integer; proizv:Real; begin writeln (' Source Matrix...'); for i:=1 to n do {Создание исходной матрицы} begin for j:=1 to n do begin H[i,j]:=random(5)+1; Write (H[i,j],' '); end; WriteLn; end; Writeln; proizv:=1; for i:=1 to n do begin for j:=1 to n do begin if (j<>(n-i+1)) then proizv:=proizv*H[i,j]; end; end; Write(proizv); Writeln; writeln ('Press ENTER for EXIT'); readln; end \\а здеся начало кода 2 прогриrogram Proga3; {$APPTYPE CONSOLE} var MyFile: String; MyTextFile: Text; NUM : Real; MaxNUM: Real;i: integer; begin i:=0; Writeln('Input file name '); Readln(MyFile); Assign(MyTextFile, MyFile); Reset(MyTextFile); Read(MyTextFile, MaxNUM); Close(MyTextFile); Reset(MyTextFile); While not EOF (MyTextFile) do Begin Read(MyTextFile, NUM); i:=i+1; if odd(i) then begin if NUM>MaxNUM then MaxNUM:=NUM; end; end; close(MyTextFile); Append (MyTextFile); Write ( MyTextFile, ' Result: ' ,MaxNUM:6:3 ); Writeln; Writeln ('Resultat: ' ,MaxNUM:6:3 ); close(MyTextFile); Writeln; Writeln ('Press Enter to Exit'); Readln; end. объясните пожалуйста Последний раз редактировалось xxxBITxxx; 20.05.2008 в 16:18. |
20.05.2008, 16:48 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
По первой задаче.
1.Маленикий пустячок - поставьте точку в конце программы. 2.Главное - вы перемножаете 380 чисел, получается число порядка 1,5 в степени 154. Тип Real здесь не подходит, возьмите тип Extended или Double. Или сделайте матрицу, скажем 5х5, или заполните ее вещественными числами меньше 1, короче поэкспериментируйте с размерность чисел, их составом и типом. По второй задаче. Много неточностей и много лишнего. Переделал так: Код:
Последний раз редактировалось puporev; 20.05.2008 в 17:59. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плиз задачки по Турбо Паскалю решить! | glan | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 26.06.2008 17:39 |
Решите пожалуйста на Паскале | Bagsi | Помощь студентам | 4 | 30.10.2007 22:36 |
Решите пожалуйста | Bagsi | Помощь студентам | 1 | 28.10.2007 20:58 |
Решите пожалуйста две задачи. | Bagsi | Помощь студентам | 5 | 26.10.2007 10:46 |