Записи в процедурах - Pascal

Формулировка задачи:

Нужно составить программу из двух процедур. Первая процедура ввода в ней записываеться имя грузовика, его грузоподъёмность и масса, а вторая процедура находит полную массу выбранного по имени грузовика. Полная масса = грузоподъёмность + масса. Последний допуск!(

Код к задаче: «Записи в процедурах - Pascal»

textual
const
n = 3;
type
 T_gruz = record
 nm:string;
 ms:real;
 gp:real;
 end;
T_gr = array[1..n] of T_gruz;
procedure inp(var a:T_gruz);
begin
writeln('Введите данные о грузовике');
read(a.nm,a.ms,a.gp);
end;
procedure mas( s:string; var m:real;const man: T_gr);
var i:integer;
begin
for i:=1 to n do
    if man[i].nm = s then
 m:=man[i].ms + man[i].gp;
end;
var
man:T_gr;
mt:real;
i:integer;
s:string;
begin
for i:=1 to n do
inp(man[i]);
writeln('Введите имя грузовика');
read(s);
mas(s,mt,man);
writeln(mt);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ