Вывод наибольшего из 5 чисел. Pascal
Добрый день!
Так как я новичёк на паскале, то следовательно сталкиваюсь со множеством трудностей.
Помогите пожалуйста решить одну из этих трудностей.
Никак, не могу написать код.
Мне нужно чтобы после ввода с клавиатуры 5-и чисел, выводилось сообщение: "Максимальное число: "
Начало и конец, я прописал, Но что писать в середине? Подскожите пожалуйста! Желательно кодом.
Мой код:
program qq;
var a, b, c, d, e, q, w, u, n, o, m, j, k, l, t, maxx, minn: integer;
begin
writeln('Введите пять различных чисел. ');
writeln('1-ое число: ');
read(a);
writeln('2-ое число: ');
read(b);
writeln('3-ое число: ');
read(c);
writeln('4-ое число: ');
read(d);
writeln('5-ое число: ');
read(e);
{writeln('1-ое число: ');
read(a);
}
writeln('Максимальное число: ', maxx); {maxx - переменная обьявляющая максимальное число}
end.
Помогите пожалуйста!!!
Так как я новичёк на паскале, то следовательно сталкиваюсь со множеством трудностей.
Помогите пожалуйста решить одну из этих трудностей.
Никак, не могу написать код.
Мне нужно чтобы после ввода с клавиатуры 5-и чисел, выводилось сообщение: "Максимальное число: "
Начало и конец, я прописал, Но что писать в середине? Подскожите пожалуйста! Желательно кодом.
Мой код:
program qq;
var a, b, c, d, e, q, w, u, n, o, m, j, k, l, t, maxx, minn: integer;
begin
writeln('Введите пять различных чисел. ');
writeln('1-ое число: ');
read(a);
writeln('2-ое число: ');
read(b);
writeln('3-ое число: ');
read(c);
writeln('4-ое число: ');
read(d);
writeln('5-ое число: ');
read(e);
{writeln('1-ое число: ');
read(a);
}
writeln('Максимальное число: ', maxx); {maxx - переменная обьявляющая максимальное число}
end.
Помогите пожалуйста!!!
Использую программу Pascal ABC
входишь в массив из 5 елементов
maxx := 0 ;
for i:=1 to 5 do begin
if maxx < a then begin maxx := a and;
end;
maxx := 0 ;
for i:=1 to 5 do begin
if maxx < a then begin maxx := a and;
end;
Спасибо большое, adsarc! , но как войти в массив? Скажите пожалуйста.
Может как нибудь вот так это сделать?
Код:
program qq;
var
a: array [0..4] of INTEGER;
maxx, minn: INTEGER;
begin
writeln('Введите пять различных чисел. ');
writeln('1-ое число: ');
read(a[0]);
writeln('2-ое число: ');
read(a[1]);
writeln('3-ое число: ');
read(a[2]);
writeln('4-ое число: ');
read(a[3]);
writeln('5-ое число: ');
read(a[4]);
maxx := -2147483648;
for I := 0 to 4 do
begin
if a[I] > maxx then maxx := a[I];
end;
writeln('Максимальное число: ', maxx); {maxx - переменная обьявляющая максимальное число}
end.
var
a: array [0..4] of INTEGER;
maxx, minn: INTEGER;
begin
writeln('Введите пять различных чисел. ');
writeln('1-ое число: ');
read(a[0]);
writeln('2-ое число: ');
read(a[1]);
writeln('3-ое число: ');
read(a[2]);
writeln('4-ое число: ');
read(a[3]);
writeln('5-ое число: ');
read(a[4]);
maxx := -2147483648;
for I := 0 to 4 do
begin
if a[I] > maxx then maxx := a[I];
end;
writeln('Максимальное число: ', maxx); {maxx - переменная обьявляющая максимальное число}
end.
Цитата: adsarc
входишь в массив из 5 елементов
maxx := 0 ;
...
...
end;
maxx := 0 ;
...
...
end;
Кто там интересно плюсы ставит?
Не будет такой код работать с отрицательными числами, а в вопросе если присмотреться указан тип INTEGER.
Не надо путать типы. Такой код будет работать для типа CARDINAL.
И с какого перепуга там for i := 1 to 5, если собираемся "входить в массив"?
Там плюсы не за что ставить, только если минус
Не знаю как там в паскале АБС, но в делфи я бы сделал вот так:
Это ладно пять элементов, а что если 25?
Код:
program qq;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a: array of INTEGER;
maxx, minn: INTEGER;
I, quantity: CARDINAL;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Введите количество вводимых чисел. ');
read(quantity);
SetLength(a, quantity);
for I := 0 to quantity - 1 do
begin
writeln(IntToStr(I + 1) + '-ое число: ');
read(a[I]);
end;
maxx := -2147483648;
for I := 0 to quantity - 1 do
begin
if a[I] > maxx then maxx := a[I];
end;
writeln('Максимальное число: ', maxx);
read(minn); //Вот это не нужно, это чтоб консоль не закрывалась
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a: array of INTEGER;
maxx, minn: INTEGER;
I, quantity: CARDINAL;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Введите количество вводимых чисел. ');
read(quantity);
SetLength(a, quantity);
for I := 0 to quantity - 1 do
begin
writeln(IntToStr(I + 1) + '-ое число: ');
read(a[I]);
end;
maxx := -2147483648;
for I := 0 to quantity - 1 do
begin
if a[I] > maxx then maxx := a[I];
end;
writeln('Максимальное число: ', maxx);
read(minn); //Вот это не нужно, это чтоб консоль не закрывалась
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Спасибо большое! Советы очень помогли! Спасибо!
Лучше писать не так
а так:
Код:
...
maxx := -2147483648;
for I := 0 to quantity - 1 do
...
maxx := -2147483648;
for I := 0 to quantity - 1 do
...
Код:
...
maxx := a[0];
for I := 1 to quantity - 1 do
...
maxx := a[0];
for I := 1 to quantity - 1 do
...
Может чего не вижу.... Зачем тут все эти массивы?
Код:
var
maxx, _tmp, I: Integer;
for I := 1 to 5 do
begin
Writeln(IntToStr(I) + ' num: ');
Read(_tmp);
if _tmp > maxx then
maxx := _tmp;
end;
WriteLn('Max num:' + IntToStr(maxx));
maxx, _tmp, I: Integer;
for I := 1 to 5 do
begin
Writeln(IntToStr(I) + ' num: ');
Read(_tmp);
if _tmp > maxx then
maxx := _tmp;
end;
WriteLn('Max num:' + IntToStr(maxx));