Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 08.10.2012, 22:09   #1 (permalink)
Станислава
Новичок
 
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Помогите создать таблицу исполнения

Пожалуйста помогите. Нужна программа на максимальное и минимальное из пяти.
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.
<ССЫЛКА УДАЛЕНА>
Пожалуйста, помогите.

Замечание:
Станислава, если Вы хотите, чтобы Вам помогли, прежде всего будьте любезны с уважением относиться к Правилам нашего форума, запрещающим использование фотохостингов. От себя добавлю - тем более, предлагающих в довесок весьма сомнительные экскурсы в дела постельные.
Насчет загрузки изображений - сюда: Как вставить картинки в свой пост

Модератор.
Миниатюры
mm.png  
Станислава вне форума   Ответить с цитированием

Старый 08.10.2012, 22:09
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Дам вам рекомендацию - прочитайте данные топики

Помогите создать компьютер
Помогите создать усилитель и колонки к нему

Старый 08.10.2012, 22:11   #2 (permalink)
Станислава
Новичок
 
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Извените. Мне нужна программа исполнения* ошибка в написании...
Станислава вне форума   Ответить с цитированием
Старый 08.10.2012, 22:13   #3 (permalink)
Станислава
Новичок
 
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

программа, таблица... как кто понимает... пожалуйста, помогите.
Станислава вне форума   Ответить с цитированием
Старый 08.10.2012, 23:19   #4 (permalink)
NinaTimof
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.
NinaTimof вне форума   Ответить с цитированием
Старый 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, 03:45   #6 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Цитата:
Сообщение от Станислава Посмотреть сообщение
а как правильно создать таблицу исполнения? пож, подскожите если можете.
может двумерный массив???
Gruvi вне форума   Ответить с цитированием
Старый 09.10.2012, 22:57   #7 (permalink)
Станислава
Новичок
 
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Что бы мы лучше поняли работу программы учитель гговорит создавать ТАБЛИЦЫ исполнения к программам (как на рисунке по ссылке) вот мне нужно нарисовать такую таблицу к программе Program Max_Min__of_5
а как создать таблицу для этой программы не знаю....
Станислава вне форума   Ответить с цитированием
Старый 11.10.2012, 09:04   #8 (permalink)
NinaTimof
Member
 
Регистрация: 08.10.2012
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 54
По умолчанию

я что то понять не могу логики таблицы которую вы привели
NinaTimof вне форума   Ответить с цитированием
Старый 11.10.2012, 11:09   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,343
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от NinaTimof Посмотреть сообщение
я что то понять не могу логики таблицы которую вы привели
Потому что она тут, с моей точки зрения, напрочь отсутствует.
Насчет таблицы, передайте преподавателю, который это выдумал, что он - гений. Я же, извините, подобным идиотизмом заниматься не буду. А вот ошибки в программе - покажу и исправлю:
Код:
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-файл.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
максимальное, минимальное, программа

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.