Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Pascal-_-Killer
1 / 1 / 0
Регистрация: 15.03.2016
Сообщений: 29
1

Считать с клавиатуры данные об n лицах и записать их в файл

15.03.2016, 22:12. Просмотров 186. Ответов 1

Друзья! Никак не могу понять, отчего в файл записываются лишь фамилия и имя...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
type
  data_rojd = record
    den: 1..31;
    mes: 1..12;
    god: 1920..2016;
  end;
  lico = record
    imea_familia: shortstring;
    data: data_rojd;
  end;
  spisok_person = file of lico;
 
var
  s: spisok_person;
  l: lico;
  str: shortstring;
  n: integer;
  i: integer;
 
begin
  writeln('введите имя файла');
  readln(str);
  assign(s, str);
  rewrite(s);
  
  writeln('введите количество лиц');
  readln(n);
  for i := 1 to n do 
  begin
    writeln('введите данные о лице', i);
    writeln('имя,фамилия: ');readln(l.imea_familia);
    writeln('дата рождения');with l.data do 
      readln(den, mes, god);
    write(s, l);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2016, 22:12
Ответы с готовыми решениями:

Разработать программу, которая читает c клавиатуры данные о лицах ...прог. record
type data=record day:1..31; month: 1..12; year:integer; end; Person=record...

Записать числа в файл и считать из файла
Есть массив наполненный числами. Выведем его. Теперь запишем в файл каждый элемент массива....

Считать с экрана 10 строк и записать их в файл
Кто поможет с программой для паскаля? Вот задания: 1) Считать с экрана 10 строк и записать их в...

Записать в файл и считать из файла Записи
Задача на языке Паскаль. Условие: Записать в файл и считать из файла Записи. Как записать эту...

Считать числовые значения из двух файлов и записать их в порядке возрастания (убывания) в другой файл
Написать программу, которая считывает числовые значения из двух файлов и записывает их в порядке...

1
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
15.03.2016, 23:09 2
Цитата Сообщение от Pascal-_-Killer Посмотреть сообщение
Pascal
34
    write(s, l);
именно потому и пишется
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2016, 23:09

Считать из входного файла литеры до первой точки и записать их в текстовый файл (по 40 литер в строке)
Описать процедуру Line40(f), которая считывает из входного файла литеры до первой точи и записывает...

Записать данные в .txt файл
помогите пожалуйста записать строки с пометкой "//это" записать в 1.txt файл uses CRT; Const...

Записать данные в типизированный файл
Добрый вечер! Возник вопрос. Мне нужно записать данные в типизированный файл, но не могу...


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

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

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