Помогите создать таблицу исполнения
Вложений: 1
Пожалуйста помогите. Нужна программа на максимальное и минимальное из пяти.
Program Max_Min__of_5; var A: array [1..5] of integer; I, max, min: integer; Begin for i:=1 to 5 do begin writeln (‘введите ‘, 1 ,’ число: ’); read (A[i]); end; max:= A[i]; min:= A[i]; for i:=2 to 5 do begin if A[i] > max than max:= A[i]; if A[i] < min than min:= A[i]; end; writeln (‘максимальне =’ , max); writeln (‘мінімальне =’ , min); End. По типу этой Максимальное, минимальное значение из двух Program MaxMin2; var A, B, min, max: integer; Begin writeln (‘введите два числа’); read (A,B); max:= A; min:= A; if B > max than max:=B; if B < min than min:=B; writeln (‘максимальне =’ , max); writeln (‘мінімальне =’ , min); End. <ССЫЛКА УДАЛЕНА> Пожалуйста, помогите.
|
Извените. Мне нужна программа исполнения* ошибка в написании...
|
программа, таблица... как кто понимает... пожалуйста, помогите.
|
Program Max_Min__of_5;
var A: array [1..5] of integer; I, max, min: integer; Begin for i:=1 to 5 do begin writeln (‘введите ‘, i ,’ число: ’); read (A[i]); end; max:= A[1]; min:= A[1]; for i:=2 to 5 do begin if A[i] > max than max:= A[i]; if A[i] < min than min:= A[i]; end; writeln (‘максимальне =’ , max); writeln (‘мінімальне =’ , min); End. |
а как правильно создать таблицу исполнения? пож, подскожите если можете.
|
Цитата:
|
Что бы мы лучше поняли работу программы учитель гговорит создавать ТАБЛИЦЫ исполнения к программам (как на рисунке по ссылке) вот мне нужно нарисовать такую таблицу к программе Program Max_Min__of_5
а как создать таблицу для этой программы не знаю.... |
я что то понять не могу логики таблицы которую вы привели
|
Цитата:
Насчет таблицы, передайте преподавателю, который это выдумал, что он - гений. Я же, извините, подобным идиотизмом заниматься не буду. А вот ошибки в программе - покажу и исправлю: Код:
Program Max_Min__of_5; 1. При консольном вводе крайне желательно НЕ использовать оператор read, а пользоваться readln. Иначе могут возникнуть неприятности. Read нужно использовать, только если Вы считываете несколько чисел сразу (например, строку матрицы), но и тут последний элемент требует считывания через readln. 2. Если Вы начинаете цикл сопоставления с i=2, то в качестве исходных значений max и min следует брать A[1]. А то, что написано у Вас, приведет к тому, что исходными окажутся A[5]. 3. САМОЕ ГЛАВНОЕ!!! Текстовые сообщения, комментарии, и вообще любые выводимые на экран вставки в операторах write и writeln выделяются ТОЛЬКО прямыми апострофами в ЛАТИНСКОМ регистре. Использование других символов недопустимо (если только у Вас не какая-то специфическая мне неизвестная версия Паскаля). 4. В конце очень желательно поставить команду readln (без параметров). Это позволит приостановить выполнение программы с тем, чтобы увидеть на экране результат. В противном случае она просто моргнет и вылетит либо в турбосреду, либо в папку, откуда Вы запускаете exe-файл. |
Часовой пояс GMT +4, время: 04:10. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.