![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
smith |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: ![]() ![]() ![]() |
program kolvoavto;
uses crt;
type avtomobili=record
marka:string;
familiya:string;
nomer:string;
end;
var
f:file of avtomobili;
avto:avtomobili;
n,i,kvo,i1:integer;
marka1,pos:string;
begin
pos:='poschitano';
clrscr;
writeln('vvedite kolvo mashin');
readln(n);
assign(f,'avto.dat');
rewrite(f);
for i:=1 to n do begin
with avto do begin
writeln('vvedi marku avto# ',i);
readln(marka);
writeln('vvedi familiu vladeltsa# ',i);
readln(familiya);
writeln('vvedi nomer mashiny# ',i);
readln(nomer);
end;
write(f,avto);
end;
close(f);
reset(f);
for i:=1 to n do begin
read(f,avto);
i1:=1;
if avto.marka<>'poschitano' then begin
marka1:=avto.marka;
inc(kvo);
avto.marka:='poschitano';
repeat
read(f,avto);
if avto.marka=marka1 then begin
inc(kvo);
avto.marka:='poschitano';
writeln(avto.marka);
end;
until(eof(f));
writeln(marka1);
writeln(kvo);
end
else
begin
inc(i1);
seek(f,i1);
end;
end;
readln;
end.
Помогите! Диск рид эррор выдает. Кто-нибудь! завтра с утра сдавать программу! |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 3:17 |