08.10.2012, 22:09 | #1 (permalink) | ||
Новичок
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите создать таблицу исполнения
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. <ССЫЛКА УДАЛЕНА> Пожалуйста, помогите.
|
||
08.10.2012, 22:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам рекомендацию - прочитайте данные топики Помогите создать компьютер Помогите создать усилитель и колонки к нему |
08.10.2012, 23:19 | #4 (permalink) |
Member
Регистрация: 08.10.2012
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 54
|
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. |
09.10.2012, 01:03 | #5 (permalink) |
Новичок
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а как правильно создать таблицу исполнения? пож, подскожите если можете.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.10.2012, 22:57 | #7 (permalink) |
Новичок
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Что бы мы лучше поняли работу программы учитель гговорит создавать ТАБЛИЦЫ исполнения к программам (как на рисунке по ссылке) вот мне нужно нарисовать такую таблицу к программе Program Max_Min__of_5
а как создать таблицу для этой программы не знаю.... |
11.10.2012, 11:09 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Потому что она тут, с моей точки зрения, напрочь отсутствует.
Насчет таблицы, передайте преподавателю, который это выдумал, что он - гений. Я же, извините, подобным идиотизмом заниматься не буду. А вот ошибки в программе - покажу и исправлю: Код:
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 ,’ число: ’);('введите ',i,' число'); readln (A[i]); end; max:= A[i]; A[1]; min:= A[i]; 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); readln End. 1. При консольном вводе крайне желательно НЕ использовать оператор read, а пользоваться readln. Иначе могут возникнуть неприятности. Read нужно использовать, только если Вы считываете несколько чисел сразу (например, строку матрицы), но и тут последний элемент требует считывания через readln. 2. Если Вы начинаете цикл сопоставления с i=2, то в качестве исходных значений max и min следует брать A[1]. А то, что написано у Вас, приведет к тому, что исходными окажутся A[5]. 3. САМОЕ ГЛАВНОЕ!!! Текстовые сообщения, комментарии, и вообще любые выводимые на экран вставки в операторах write и writeln выделяются ТОЛЬКО прямыми апострофами в ЛАТИНСКОМ регистре. Использование других символов недопустимо (если только у Вас не какая-то специфическая мне неизвестная версия Паскаля). 4. В конце очень желательно поставить команду readln (без параметров). Это позволит приостановить выполнение программы с тем, чтобы увидеть на экране результат. В противном случае она просто моргнет и вылетит либо в турбосреду, либо в папку, откуда Вы запускаете exe-файл. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
максимальное, минимальное, программа |
|
|