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

Тема в разделе "C/C++/C#", создана пользователем starker, 13 дек 2012.

  1. starker

    starker Гость

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

    Задание:

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

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

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

    Код (Delphi):
    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.
     
Загрузка...
Похожие Темы - Перевести Програму Из
  1. marik22222
    Ответов:
    1
    Просмотров:
    1.207
  2. GoldenYear
    Ответов:
    0
    Просмотров:
    1.171
  3. Dimkawshm
    Ответов:
    3
    Просмотров:
    1.244
  4. Ластик
    Ответов:
    3
    Просмотров:
    1.484
  5. Реник
    Ответов:
    1
    Просмотров:
    1.236

Поделиться этой страницей