<h1>Hello world</h1>
17 / 16 / 3
Регистрация: 17.12.2016
Сообщений: 181
Записей в блоге: 6
1

Вывести информацию на экран и в текстовый файл о студентах, родившихся в заданном месте

29.12.2016, 21:40. Показов 1171. Ответов 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
37
38
39
40
41
42
43
44
Program zap_fle;
uses CRT;
Type
zap=record
fio:string;
GR:word;
n_GR:string;
end;
Var
vzap:zap;
i,n:word;
k:string;
t:text;
f:file of zap;
begin
clrscr;
writeln('Vvedite k-vo studentov:');
readln(n);
assign(f,'fz.dat');
rewrite(f);
for i:=1 to n do
begin
writeln('Vvedite FIO, god rochdenia, mesto rochdenia cherez enter');
readln(vzap.fio,vzap.GR,vzap.n_GR);
write(f,vzap);
end;
close(f);
assign(f,'fzap.txt');
rewrite(f);
assign(f,'fz.dat');
reset(f);
writeln('Vvedite mesto rozhdenia,k:');
readln(k);
while not Eof(f)
do begin
read(f,vzap);
if vzap.n_GR=k
then begin
writeln(vzap.fio,' ',vzap.GR,' ',vzap.n_GR);
writeln(vzap.fio,' ',vzap.GR,' ',vzap.n_GR);
end; end;
close(f);
readln;
end.
Но не работает почему-то
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2016, 21:40
Ответы с готовыми решениями:

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

Вывести на экран имена и фамилии всех людей группы, родившихся в заданном году
Написать программу, которая: а) для группы людей создает записи - имя, фамилия, дата рождения...

Найти информацию о студентах каждой группы родившихся в один и тот же месяц и год
Дан массив содержащий данные о студентах( Группа, ФИО, дата рождения) . Найти и вывести всех...

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

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6009 / 3581 / 2509
Регистрация: 22.11.2013
Сообщений: 10,187
Записей в блоге: 1
29.12.2016, 23:31 2
Как написано, так и не работает.
Вы в строке 29 все данные в своем файле удаляете зачем-то.
Лишние Assign не нужны. Логика в целом такая:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
  Assign(f,'fz.dat'); Assign(t,'fz.txt');
  Rewrite(f);
  { пишем данные в f }
  Seek(f,0); { или Reset(f); }
  Rewrite(t);
  { ... }
    if vzap.n_GR=k then begin
      WriteLn(...);
      WriteLn(t, ...);
    end; 
  { ... }
  Close(t); Close(f);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2016, 23:31

Выведите в файл информацию о студентах, имеющих больше 7 "долгов", в заданном формате
У преподавателя в текстовом файле храниться список заданий, которые не сдали студенты на данный...

Отдел кадров: Поиск и вывод на экран записей о всех студентах, родившихся в 1982 г
Вариант 2:gmad: Номер п/п|Личный шифрстудента|Фамилияимя, отчество|Дата рождения число|6...

Структура Student: вывести на экран информацию о студентах, средний балл которых превышает введенное число
STUDENT (наименование учебного заведения, фамилия и инициалы студента,номер группы,набор из пяти...

Вывести в новый файл информацию о студентах, показавших три лучших результата в забеге
Добрый день. Подскажите есть ли в C# функция определения максимального значения? Есть база...


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

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

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