Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 31.05.2012, 18:23   #11 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

а первые два, значит, делать не надо?

ЯП, насколько понимаю, у вас объектный Pascal, в просторечии именуемый Delphi?
AlexZir вне форума   Ответить с цитированием

Старый 31.05.2012, 18:23
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Полезные советы по решению проблемы можно найти в аналогичных обсуждениях

Нужен русификатор для тех программы
Нужен совет по доработке программы в Паскаль
Блок-схема в Qbasic
Блок - схема

Старый 01.06.2012, 15:59   #12 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Мне 3 нужно
prostogrey вне форума   Ответить с цитированием
Старый 05.06.2012, 20:39   #13 (permalink)
prostogrey
Новичок
 
Регистрация: 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.


В очередной раз объединяю созданные вами темы, касающиеся одного вопроса. Если не прекратите плодить одинаковые темы, буду вынужден применить к вам непопулярные меры. Ждите советов в этой теме. Модератор.
Миниатюры
2012-05-21-515_1.jpg  
prostogrey вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:28.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.