Перевести Програму Из Pascal На C

  • Автор темы starker
  • Дата начала
S

starker

#1
Здравствуйте. Когда-то писал програму на Pascal, теперь нужно перевести на C. Помогите пожалуйста.

Задание:

Сформировать файл А, содержащий библиографическую информацию:
-автор книги
-название книги
-год издания
-название издательства
-объем книги (кол-во страниц)

Переписать в файл В информацию о книге изданой в издательстве "Днепр" после 1990 года.

Програма на Pascal:

Код:
program pr2;
uses crt;
type knuzka=record
avtor,nazvaknuhu,nazvavudavnuztva:string[30];
rik,obsah:integer;
end;
myfile=file of knuzka;
VAR
f1:myfile;
f2:myfile;
k1:knuzka;
i,n:integer;
BEGIN
clrscr;
writeln('введіть кількість книг');
readln(n);
assign(f1,'d:\file A.txt');
rewrite(f1);
for i:=1 to n do
begin 
writeln('введіть автора книги');
readln(k1.avtor);
writeln('введіть назву книги');
readln(k1.nazvaknuhu);
writeln('введіть рік видання');
readln(k1.rik);
writeln('введіть назву видавництва');
readln(k1.nazvavudavnuztva);
writeln('введіть обсяг книги');
readln(k1.obsah);
write(f1,k1);
end;
close(f1);
writeln('ФАЙЛ А');
writeln('Автор книги Назва книги Рік видання Назва видавництва Обсяг книги');
reset(f1);
for i:=1 to n do
begin
read(f1,k1);
writeln(k1.avtor:10,k1.nazvaknuhu:13,k1.rik:13,k1.nazvavudavnuztva:17,k1.obsah:12);
end;
close(f1);
reset(f1);
assign(f2,'d:\file B.txt');
rewrite(f2);
while not eof(f1) do
begin  
read(f1,k1);
if (k1.nazvavudavnuztva='дніпро') and (k1.rik>1990) then
write(f2,k1);
end;
close(f1);
close(f2);
writeln;
writeln('ФАЙЛ В');
writeln('Автор книги Назва книги Рік видання Назва видавництва Обсяг книги');
reset(f2);
for i:=1 to n do
begin
read(f2,k1);
writeln(k1.avtor:10,k1.nazvaknuhu:13,k1.rik:13,k1.nazvavudavnuztva:17,k1.obsah:12);
end;
END.