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


Ответ
 
Опции темы Опции просмотра
Старый 21.09.2012, 11:51   #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 begin
writeln('',,':');
read(A(i));
end;
max:=A(1);
min:=A(1);
for i:=2 to 5 do begin
if A(1)>max then max:=A(1);
if A(1)<min then min:=A(1);
end;
writeln('=',);
writeln('=',);
End.
Жаль нету раздела "Помощи школьникам"....
Не могу правильно составить блок-схему.
Помогите пожалуйста...
Станислава вне форума   Ответить с цитированием

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

Я думаю, что вам не помешало бы просмотреть схожие темы

Паскаль. Двумерный массив
Паскаль. Матрица. Массив
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Массив, Паскаль
Массив, Паскаль
Паскаль, массив

Старый 21.09.2012, 12:18   #2 (permalink)
Артём
votum separatum
 
Аватар для Артём
 
Регистрация: 05.05.2008
Сообщений: 14,603
Записей в дневнике: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 18619
По умолчанию

Цитата:
Сообщение от Станислава Посмотреть сообщение
Не могу правильно составить блок-схему.
А вы вообще пытались? Покажите свой вариант решения.
Артём вне форума   Ответить с цитированием
Старый 21.09.2012, 12:25   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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
   write('A[',i,']= ');
   readln(A[i]);
  end;
 max:=A[1];
 min:=A[1];
 for i:=2 to 5 do
  begin
   if A[i]>max then max:=A[i];
   if A[i]<min then min:=A[i];
  end;
 writeln('max= ',max);
 writeln('min= ',min);
 readln;
End.
Особое внимание - на тип скобок: при введении диапазона массива (напр. [1..5]) и работе с его элементами (напр. A[3]) допустимы ТОЛЬКО квадратные скобки! Но это не всё - там еще ошибки в цикле, в операторе for..to..do и т.п. Мой Вам совет: при написании программы - крайняя внимательность и точность. Компьютер не воспринимает "общих соображений". Успехов!
Vladimir_S вне форума   Ответить с цитированием
Старый 21.09.2012, 17:17   #4 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Блок-схема:
Миниатюры
forum.png  
Léon вне форума   Ответить с цитированием
Старый 21.09.2012, 19:08   #5 (permalink)
Станислава
Новичок
 
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

у меня тоже получилась такая блок-схема. Преподаватель сказал, что в одной из составленых мной схем ошибка. А я сразу подумала что эта задача неверная....
Спасибо за помощь.
Станислава вне форума   Ответить с цитированием
Ads

Яндекс

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

Метки
блок-схема, массивы, паскаль, школьная задача

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

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

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




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

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