Помощь - Поиск - Пользователи - Календарь
Полная версия: Информатика (Цикл и Массив) > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
Prototoop
Доброго всем время суток!Помогите составить по блоку схем программу на цикл и массив.
Условие задачи есть в фотографии и блок схемы тоже на фотографиях.
Изображение
Изображение


граф Монте-Кристо
Очень тёмные фотографии, верхнюю половину совсем не видно.
Julia
Алгоритм верный, какие проблемы с переводом на язык программирования?
Prototoop
Цитата(Julia @ 30.5.2011, 11:40) *

Алгоритм верный, какие проблемы с переводом на язык программирования?

Я просто немогу создать массив!Цикл сделал а массив не поучается...
Вот цикл mellow.gif
program с19;
var n,i,imax,x,xmax:integer;
begin
writeln('Vvedite kol-vo uchastnikov ');
readln(n);
writeln('Vvedite rezultat 1');
readln(xmax);
imax:=1;
for i:=2 to n do
begin
writeln('Vvedite reziltat ', i);
readln(x);
if x < xmax then
begin
xmax:=x;
imax:=i;
end;
end;
writeln('Luchshii ');
writeln(xmax);
writeln(imax);
readln;
end.
Julia
1) Описались наверное: в условии x < xmax знак обратный.
2) С массивом все тоже самое. У вас в блок-схеме только отсутствует ввод элементов массива. Можно организовать ввод в отдельном цикле, после чего чего присвоить переменной xmax начальное значение. Или xmax задать граничное значение типа и осуществлять ввод и проверку элементов в одном цикле. приведу пример для первого варианта.
program с19;
var n,i,imax,x,xmax:integer;
a:array[1..100] of integer;
begin
writeln('Vvedite kol-vo uchastnikov ');
readln(n);
for i:=1 to n do
begin
writeln('Vvedite reziltat ', i);
readln(a[i]);
end;
xmax:=a[1];
imax:=1;
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.