|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
31.05.2012, 18:23 | #11 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
ЯП, насколько понимаю, у вас объектный Pascal, в просторечии именуемый Delphi? |
31.05.2012, 18:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Полезные советы по решению проблемы можно найти в аналогичных обсуждениях Нужен русификатор для тех программы Нужен совет по доработке программы в Паскаль Блок-схема в Qbasic Блок - схема |
05.06.2012, 20:39 | #13 (permalink) |
Новичок
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Два задания вроде как есть, нужно три, помогите
program lb3;
uses crt; type zap1=record f:string; p:char; kd: byte; day,month,god:byte; dr:string; end; zap = file of zap1; var f,x,d,y :zap; z, kd1,n1:byte; n:integer; k :integer; procedure sozd (var x:zap;k:integer); var i:byte; z:zap1; begin rewrite(x); for i:=1 to k do begin close (input); reset (input); writeln ('nomer ', i); writeln ('vvedite Fio'); readln (z.f); writeln ('vvedite data rozden'); readln(z.dr); writeln ('vvedite pol (w/m) '); repeat readln (z.p); until ((z.p='w') or (z.p='m')); writeln( 'vvedite kolichestvo detei'); readln (z.kd); write (x,z); end; close (x); end; procedure pro (var x:zap; n:integer); var i:byte; z:zap1; begin reset(x); i:=1; writeln ('┌─────────────────┬──────────────┬─────────┬──── ─────────┐'); writeln ('│ FIO │Data │POl │Kolichestvo │'); writeln ('│ │rozdenia │ │Detei │'); writeln ('├─────────────────┼──────────────┼─────────┼──── ─────────┤'); repeat read (x,z); writeln ('│',z.f:17, '│ ', z.dr:12,' │', z.p:9 ,'│', z.kd:13,'│'); i:=i+1; until eof(x); writeln ('└─────────────────┴──────────────┴─────────┴──── ─────────┘'); close (x); end; procedure Sort (var x,d:zap; n1:byte); var i:byte; m:zap1; z:zap1; flag:boolean; begin rewrite(d); reset(x); while not eof(x) do begin read(x,z); write(d,z); end; repeat flag:=true; for i:=0 to filesize(x)-2 do begin seek(d,i); read(d,z); read(d,m); if z.f>m.f then begin flag:=false; seek(d,i); write(d,m); write(d,z); end; end; until flag=true; end; { rewrite(d); reset (x); while not eof(x) do begin read (x,z); write (d,z); end; repeat flag:=true; i:=0; while not eof(d) do begin seek(d,i); read(d,z); read(d,m); if z.f<m.f then begin flag:=false; seek(d,i); write(d,m); write(d,z); end; end; until flag=true; close(x); close(d); i:=i+1; end; } { procedure sort2 (var d,y:zap); var mmm:zap1; begin reset(d); rewrite(y); read(d,mmm); } begin clrscr; checkeof:=true; write('kol-vo strok: '); readln(k); clrscr; assign(f,'f.dat'); assign(x,'x.dat'); assign(d,'d.dat'); assign(y,'y.dat'); sozd (x,k); clrscr; pro (x,n); writeln('Press any key to sort table...'); readkey; clrscr; sort (x, d, n1); pro(d,n); readkey; end. В очередной раз объединяю созданные вами темы, касающиеся одного вопроса. Если не прекратите плодить одинаковые темы, буду вынужден применить к вам непопулярные меры. Ждите советов в этой теме. Модератор. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|