Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.04.2014
Сообщений: 29
1

Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в файл

28.05.2015, 07:55. Показов 1703. Ответов 2
Метки нет (Все метки)

Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в файл
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2015, 07:55
Ответы с готовыми решениями:

Написать программу, которая позволяет получит следующую информацию
Написать программу, которая позволяет получит следующую информацию: - всю программу телепередач...

Написать программу, которая позволяет получить следующую справочную информацию
Написать программу, которая позволяет получить следующую справочную информацию: -список...

Написать программу, которая будет добавлять в текстовый файл введенную из клавиатуры информацию
Написать программу, которая будет добавлять в текстовый файл введенную из клавиатуры информацию....

Добавить информацию о нескольких учащихся в файл
Создать текстовый файл, в который записать информацию о результатах экзамена трех учащихся,...

2
Эксперт Pascal/Delphi
6717 / 4513 / 4778
Регистрация: 05.06.2014
Сообщений: 22,238
28.05.2015, 09:50 2
volkxan, файл какой?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5745 / 3451 / 2446
Регистрация: 22.11.2013
Сообщений: 9,689
Записей в блоге: 1
28.05.2015, 11:44 3
Лучший ответ Сообщение было отмечено volkxan как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  f: Text;
  s: String;
begin
  Assign(f,'people.txt');
  {$IFOPT I+}{$DEFINE I_ON}{$ELSE}{$UNDEF I_ON}{$ENDIF}{$I-}
  Append(f);
  {$IFDEF I_ON}{$I+}{$ENDIF}
  if IOResult<>0 then Rewrite(f);
  WriteLn('Вводите информацию о людях. Завершение - пустая строка');
  repeat
    ReadLn(s);
    if s='' then Break;
    WriteLn(f,s);
  until False;
  Close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2015, 11:44

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Добавить информацию о нескольких студентах в файл
1. Создать текстовый файл, в который записать информацию о трех студентах, фамилия, ...

Написать программу, которая позволяет нарисовать закрашенный треугольник
Задание 4. Написать программу, которая позволяет нарисовать закрашенный треугольник. ...

Написать программу, которая позволяет вводить целочисленную матрицу
1) Написать программу, которая позволяет вводить одномерный целочис-ленный массив из 10 элементов и...

Написать программу, которая позволяет просматривать текстовые файлы
Написать программу, которая позволяет просматривать текстовые файлы...

Написать программу, которая позволяет вводить целочисленную матрицу 4×3
Написать программу, которая позволяет вводить целочисленную матрицу 4×3, выводить её в...

Написать программу, которая позволяет редактировать задания для теста.
Написать программу в Delphi, которая позволяет редактировать задания для теста.Возможности: 1)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.