VPF::Файлы - Форум программистов

AstonMDB9

Дата 10.5.2006, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Есть код на Паскале,переведите,пожалуйста, в Си,кого не затруднит.
Заранее благодарен.

Код



uses crt;
type
ludi=record
    fam,name,znak:string[15];
    dat:array[1..3] of integer;
end;
const
  mas:array[1..6] of string[30]=('Familia','Imya','Znak zodiaka','Chislo','Mesyac','God');
  mas1:array[1..6] of string[30]=('Vvedite familiu:','Vvedite imya:','Vvedite znak zodiaka:',
  'Vvedite chislo:','Vvedite mesyac:','Vvedite god:');
  l=12;
 Var
   key:char;
   f:file of ludi;
   buf:ludi;
  Procedure out(fl:boolean);
  var
 i,k:integer;
 flag:boolean;
  Procedure vivod;
  begin
   with buf do
    begin
     write(fam:l+1);
     write(name:l+1);
     write(znak:l+1);
     write(dat[1]:l+1);
     write(dat[2]:l+1);
     writeln(dat[3]:l+1);
    end;
  end;{of vivod}
  begin
   assign(f,'8.txt');
   reset(f);
   if ioresult=2 then
    begin
     assign(f,'8.txt');
     rewrite(f);
    end;
   flag:=false;
   if fl then
     begin
      write('Vvedite N mesyaca, inform. o rodivshixsya v kotoriy nado vivesti:');
      readln(k);
      writeln;
     end;
     for i:=1 to 6 do
       write(mas[i]:l);
      writeln;
     while not eof(f) do
      begin
       read(f,buf);
       with buf do
        if not(fl) then vivod else
         if (fl)and(dat[2]=k)then
          begin
           vivod;
           flag:=true;
          end;
        end;
       if (fl) and not(Flag) then writeln('V spiske rodiv-sya v ',k,' mesyac net.');
        close(f);
      end;{of out}
      Procedure vvod;
      begin
        with buf do
         begin
          write(mas1[1]);readln(fam);
          write(mas1[2]);readln(name);
          write(mas1[3]);readln(znak);
          write(mas1[4]);readln(dat[1]);
          write(mas1[5]);readln(dat[2]);
          write(mas1[6]);readln(dat[3]);
         end;
        write(f,buf);
         close(f);
        end;{of vvod}
        begin
         clrscr;
         out(false);
         writeln;
         writeln('Dob. zap. -Enter');
          key:=readkey;
          case key of
          #8:begin
             assign(f,'8.txt');
             rewrite(f);
             close(f);
             out(false);
             readkey;
            end;
          #13:begin
              repeat
              assign(f,'8.txt');
              reset(f);
              seek(f,filesize(f));
              vvod;
              writeln('Vvesti ese-ENTER, dalee-lubaya klavisha.');
              key:=readkey;
             until key<>#13;
             writeln;
             out(false);
             readkey;
            end;
          #27:halt(1);
          end;{of case}
          writeln;
          out(true);
          readkey;
       end.

Вот условие:
Создать типизированный файл, запись которого имеет
следующую структуру: фамилия, имя, знак Зодиака,
дата рождения (массив из трех чисел).  Вывести на
экран информацию о людях,  родившихся в месяц,
значение которого вводится с клавиатуры.
Если таких людей нет,  то вы-дать на дисплей соответствующее сообщение.
Ввод файла и его обработку оформить в виде от-дельных подпрограмм.

sergejzr

Дата 10.5.2006, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Модератор: Название темы должно отражать ее суть!
И пользуйтесь кнопкой "Код"!!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

sergejzr

Дата 10.5.2006, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

DimassS

Дата 12.5.2006, 04:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

А почему именно в Си?

MAKCim

Дата 12.5.2006, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 6
Всего: 207

Цитата

А почему именно в Си?

потому что человеку надо в С (мало ли причин)

--------------------

DimassS

Дата 12.5.2006, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Цитата

потому что человеку надо в С (мало ли причин)

Ну тогда всё ясно... просто я думал может и на Delphi можно... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »