Цитата:
Сообщение от tane
Проверьте пожалуйста программу, Паскаль
|
В целом правильно и грамотно, но несколько замечаний.
1. Несмотря на недопустимо-хамский тон, по сути Debianer прав в том смысле, что полное число машин лучше задать в виде константы, которую легко можно менять при желании.
2. Подсказки при вводе лучше давать без перевода строки и с пробелом в конце. Красивее.
3. В задании требуется подсчитать количество машин данной марки, а не выводить несколько раз название этой марки.
4. Если оператор (в частности, if..then) действует на ОДИН операнд, то операторные скобки begin..end ставить не обязательно. Можно, но не нужно.
Итого, с учетом сказанного:
Код:
const
N=3;
type
vedomost=record
marka:string;
nomer:integer;
color:string;
familia:string;
end;
var
danue:array[1..N] of vedomost;
i,m,Q:integer;
k:string;
begin
for i:=1 to N do
with danue[i] do
begin
write('Марка - ');
readln(marka);
write('Номер - ');
readln(nomer);
write('Цвет - ');
readln(color);
write('Фамилия - ');
readln(familia);
end;
writeln;
write('Марка машины для подсчета - ');
readln(k);
Q:=0;
for i:=1 to N do
if danue[i].marka=k then Inc(Q);
writeln(Q,' машин');
readln;
end.
Извините, не тестировал. Вы уж сами.