1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем starker, 13 дек 2012.

  1. starker

    starker Гость

    Репутация:
    0
    Здравствуйте. Когда-то писал програму на 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.
     
Загрузка...

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