Найти максимальное из трёх чисел

@valenta · Регистрация: 04.12.2010

Помогите пожалуйста исправить ошибки

1) Заданы три массива а(m), b(n) и c(q). Найти максимальное из трёх чисел x, y , z, где эти числа – средние арифметические значения элементов массивов a, b и c соответственно.

Pascal

program zadanie2;
uses crt;
const n=5;
var
a,b,c:array [1..n]of integer;
x,y,z,max:real;
function SredMas(p:array[1..n] of integer;k:integer):integer;
var
i :integer;
s: real;
begin
s:=0;
for i:=1 to n do
s:=(s+p[i])/5;
SredMas:=s;
end;
begin
clrscr;
writeln ('Введите массив');
readln(a);
for i:=1 to n do
writeln('Введите массив');
readln(b);
for i:=1 to n do
writeln('Введите массив');
readln(c);
for i:=1 to n do
x:=SredMas(a,m);
y:=SredMas(b,n);
z:=SredMas(c,q);
if (x>y) and (x>z)then x:=max;
if (y>x) and (y>z)then y:=max else max:=z;
 
end.

2) Программирование операций обработки данных комбинированного типа.

Сведения представляются в виде таблицы, содержащей фамилии студентов и определённые характеристики из числа следующих:
1) пол;
2) дата рождения;
3) рост;
4) оценки по четырём предметам, полученные за сессию;
5) получаемая стипендия;
6) место жительства
Предусмотреть в программе ввод количества студентов, сведения о которых обрабатываются, их фамилий, заданных о них сведений и вывод результатов обработки.
Выбор студентов заданного пола, имеющих в сессию хотя бы одну оценку 3

Pascal

Program zadanie3;
uses crt;
type str=record
fam:string[5];
pol:string[5];
dr:string[8];
rost:real;
b1,b2,b3,b4:2..5;
stipendia:real;
mestogit:string[10];
end;
var Tbl:array[1..25] of string;
I,n:1..25;
begin
clrscr;
write('введите число студентов в группе:');
readln(n);
writeln('Введите фамилии,дату рождения,пол,рост,оценки, получаемую стипендию, места жительства студентов');
writeln('оценки вводить через пробел');
for I:=1 to n do
with tbl[I] do
begin
writeln('Введите пол студента');
readln(pol);
end;
for I:=1 to n do
begin
with tbl[I] do
begin
if (b1>=3) and (b2>=3) and(b3>=3) and(b4>=3) then
writeln('Пол студента',I:=2,'-ого студента=');
end;
end;
end.

@Высокий · 15.04.2011, 12:33

Первая

Pascal

program zadanie2;
 uses crt;
 const j=5;
 var
 a,b,c:array [1..5]of integer;
 x,y,z,max:real;
 i,m,n,q:integer;
 function SredMas(p:array[1..5] of integer;k:integer):real;
 var
 i :integer;
 s: real;
 begin
 s:=0;
 for i:=1 to j do
 s:=(s+p[i])/5;
 SredMas:=s;
 end;
 begin
 clrscr;
  writeln ('Введите массив A:');
 for i:=1 to 5 do begin
 read(a[i]);
 end;
 writeln('Введите массив B:');
 for i:=1 to 5 do begin
  read(b[i]);
 end;
 writeln('Введите массив C:');
 for i:=1 to 5 do begin
 read(c[i]);
 end;
 write('введите m: '); readln(m);
 write('Введите n: ');readln(n);
 write('Введите q: ');readln(q);
 for i:=1 to j do begin
 x:=SredMas(a,m);
 y:=SredMas(b,n);
 z:=SredMas(c,q);
 end;
 if (x>y) and (x>z)then x:=max;
 if (y>x) and (y>z)then y:=max else max:=z;
 writeln('Вывод: ',max);
 end.

Добавлено через 9 минут
+ к этому, если программа пишется на турбо паскале, то он ругнется на

Pascal

1	function SredMas(p:array[1..5] of integer;k:integer):real;

Потому что записи вида array[1..5] of integer; в заголовке подпрограммы недопустимы, и надо массив задать как отдельный тип, примерно так:

Pascal

1	type mas = array[1..5] of integer;

И в дальнейшем уже присваивать тип mas, т.е. так:

Pascal

1	function SredMas(p:mas; k:integer):real;

Опции темы