Другие языки программирования и технологии

Программирование в Паскале

Помогите пожалуйста решить задачу Вариант 5
Альберт Исмагилов
Альберт Исмагилов
101
Задание, конечно, несколько абстрактное. Ибо во-первых, непонятно, какого размера должен быть массив (в Паскале с этим строго), т.е. сколько столбцов и сколько строк. Во-вторых, как задан массив? Понятно, что он не дан изначально, но в таком случае он может быть введен вручную с клавиатуры, а может быть сгенерирован автоматически случайным образом при помощи генератора случайных чисел. Ладно, напишу оба варианта. Размеры задаю константами (в строках const n=3 и m=3) - соответственно, чтобы изменить размеры (число строк и столбцов) в коде программы нужно будет заменить эти "3" на любые другие числа. Я же просто задал 3 на 3 из-за того, что так - 9 чисел надо будет ввести (при таком размере), а если больше - то, естественно, больше, что можно замучаться вводить. Т.е. если 4 на 4 - 16 чисел, а 5 на 5 - 25.

Итак, 1-ый вариант (массив вводится с клавиатуры вручную):
 Program P1; 

uses crt; 

const n=3; 

      m=3; 

type massiv=array [1..n, 1..m] of real; 

var i, j: integer; 

    mas: massiv; 

    max: real; 

begin 

clrscr; 

writeln ('Введите значения элементов массива. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений, дробную часть от целой отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    for j:=1 to m do begin 

    write ('Введите', i, ',' j, ' элемент массива: '); 

    readln (mas[i,j]); 

    end; 

end; 

max:=mas[1,1]; 

writeln ('Вы ввели массив:'); 

for i:=1 to n do begin 

    for j:=1 to m do begin 

    write (mas[i,j], ' '); 

    end; 

    writeln (' '); 

end; 

for j:=1 to m do begin 

    if mas[1,j]>max then max:=mas[1,j]; 

end; 

writeln ('Максимальным элементом 1-ой строки является: ', max); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
2-ой вариант (массив генерируется автоматически):
 Program P1; 

uses crt; 

const n=3; 

      m=3; 

type massiv=array [1..n, 1..m] of real; 

var i, j: integer; 

    mas: massiv; 

    max: real; 

begin 

clrscr; 

for i:=1 to n do begin 

    for j:=1 to m do begin 

    mas[i,j]:=random (10); 

    end; 

end; 

max:=mas[1,1]; 

writeln ('Был сгенерирован массив:'); 

for i:=1 to n do begin 

    for j:=1 to m do begin 

    write (mas[i,j], ' '); 

    end; 

    writeln (' '); 

end; 

for j:=1 to m do begin 

    if mas[1,j]>max then max:=mas[1,j]; 

end; 

writeln ('Максимальным элементом 1-ой строки является: ', max);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
ЗН
Заур Нурбаев
43 559
Лучший ответ
Серега Комаров Или в PascalABC Задание 5:
const n = 4; m = 6;
var A : array [1..n, 1..m] of integer; Max : integer;
begin
WriteLn (' Исходный массив: ');
for var i := 1 to n do
for var j := 1 to m do
A[i,j] := 1 + random (20);
for var i := 1 to n do
begin
for var j := 1 to m do
Write (A[i,j]:4);
WriteLn;
end;
Max := A[1,1];
for var i := 1 to m do
if A [1, i] > Max then Max := A[1, i];
WriteLn (' Максимальный элемент первой строки равен ', Max);
end.
  1. Берешь списываешь у кого-то другой вариант.
  2. Переделываешь под свой вариант, так как буквально там одна-две строчки будет A[1,i] - а это тема одномерных массивов, то бишь смотри лабу раньше.
Сергей Хмелёв
Сергей Хмелёв
56 028
примени к своей задаче, не сможешь пиши
program mas2_23; //максимальные в строках
uses crt;
var
j,i:integer;
a:array[1..6,1..6] of integer;
b:array[1..6] of integer;
BEGIN
randomize;
clrscr;
writeln( ' Исходная матрица');
writeln('-------------------------------');
for i:=1 to 6 do begin
for j:=1 to 6 do begin
a[i,j]:=random(101); write(a[i,j]:5);
end;
writeln; end;
writeln;
writeln(' Максимальные элементы в строках ');
writeln('-------------------------------');
for i:=1 to 6 do begin
b[i]:=a[i,1];
for j:=1 to 6 do
if b[i]<a[i,j] then b[i]:=a[i,j];
write(b[i]:5); end;
writeln;
writeln('конец задачи ');
//readkey;
END.
Сергей Рябцев
Сергей Рябцев
95 955
это какой класс вобще???
Демин Сергей
Демин Сергей
228

Похожие вопросы