14.05.2011, 12:15 | #1 (permalink) |
Новичок
Регистрация: 13.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Как удалить запись?
Как удалить запись работника после 1 проверки. program sp; uses crt; const n=3; type spisok=record fio:string; kolchel:integer; kolkvmetrov:real; metrnachel:real; end; var i,K:integer; min:real; rabotnik:array[1..n] of spisok; begin clrscr; for i:=1 to n do with rabotnik[i] do begin writeln('vvedite svedenia o rabotnike'); writeln('vvedite fam, name, otch'); readln(fio); writeln('vvedite kolichestvo chel'); readln(kolchel); writeln('vvedite kolichestvo kvad.metrov'); readln(kolkvmetrov); metrnachel:=kolkvmetrov/kolchel; end; write('K:'); readln(K) writeln('spisok rabotnikov:'); min:=rabotnik[1].metrnachel; for i:=1 to n do begin if rabotnik[i].metrnachel>=min then begin min:=rabotnik[i].metrnachel; write(rabotnik[i].fio,' '); write('kolichestvo kvadrat. metrov na 1 cheloveka: '); writeln(min:5:1); end; end; readln; end. |
14.05.2011, 12:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же полезную информацию вы можете найти тут Как удалить свою учетную запись, удалить себя с форума? Запись на CD |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|