Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задачи
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

YuliaShumilova969



Новичок

Дана задача,по программированию, вот не дотямкаю я её...
Дан текстовый файл f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу:
фамилия имя отчество фамилия имя отчество ...
Запишите эти сведения в текстовом файле g, используя образец: фамилия и.о.

program fail;
uses crt;
type Fio=record
       Fam:string[15];
       Ima:string[15];
       Otch:string[15];
    end;
var f,g:file of Fio;
   i,n:word;
   s:Fio;
   p:array[0..14] of Fio;
begin
clrscr;
assign(f,'f.txt');
rewrite(f);
writeln('vvedite kol-vo sotrudnikov ');
readln(n);
for i:=1 to n do
begin
writeln('vvedite FIO',i,' rabotnika: ');
write('familia ');readln(s.Fam);
write('Imia ');readln(s.Ima);
writeln('otchestvo ');readln(s.Otch);
write(f,s);
writeln;
end;
assign(g,'g.txt');
rewrite(g);
read(f,s);
for i:=1 to n do
begin
 ???????????????
 writeln;
end;
writeln('spisok sotrudnikov: ');
for i:=1 to n do
begin
 read(g,s);
 writeln;
end;
readkey;
end.


-----
yulia.shumilova@mail.ru

Всего сообщений: 2 | Присоединился: январь 2014 | Отправлено: 7 янв. 2014 15:13 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com