Записать в файл информацию о студенте

@Ноффичок · Регистрация: 14.07.2009

Студворк — интернет-сервис помощи студентам

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

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
program proga1;
uses crt;
type anketa=record
lname: string[20];
fname: string[20];
dat_n: integer;
osvita: string[50];
zarplata: integer;
end;
var student: array[1..10] of anketa;
buf:anketa;
k,i,j,l:Integer;
begin
clrscr;
k:=0;
writeln('Vvedit dani pro studentiv');
for i:=1 to 3 do
begin
writeln('Vvedit prizvystche ');
readln(student[i].lname);
writeln('Vvedit imya ');
readln(student[i].fname);
writeln('vvedit datu narodshennya ');
readln(student[i].dat_n);
writeln('Vvedit osvitu ');
readln(student[i].osvita);
writeln('Vvedit zarplatu ');
readln(student[i].zarplata);
end;
for i:=1 to 10 do
begin
if (20<=2011-student[i].dat_n) and (40>=2011-student[i].dat_n) then
k:=k+1;
end;
write('K-st lyudey starshe 20 i molodshe 40 ',k);
 
for i:=1 to 3 do
for j:=1 to 2 do
begin
while (l<20) do
begin
if ord(Student[j].lname[l])>ord(Student[j+1].lname[l]) then
begin
buf:=Student[j];
Student[j]:=Student[j+1];
Student[j+1]:=buf;
end;
if ord(Student[j].lname[l])<ord(Student[j+1].lname[l]) then
l:=l+20;
if ord(Student[j].lname[l])=ord(Student[j+1].lname[l]) then
l:=l+1;
end;
end;
clrscr;
Writeln('________________________________________________________________');
writeln('Last Name |First Name |Data narodjennya|Osvita |Zarplata|');
Writeln('----------------------------------------------------------------');
for i:=1 to 3 do
begin
gotoxy(1,3+i);
write('|',student[i].lname);
gotoxy(15,3+i);
write('|',student[i].fname);
gotoxy(28,3+i);
write('|',student[i].dat_n);
gotoxy(45,3+i);
write('|',student[i].osvita);
gotoxy(56,3+i);
write('|',student[i].zarplata);
end;
writeln;
Writeln('________________________________________________________________');
readln;
readln;
end.

@Puporev · 12.07.2011, 15:35

Сообщение от Ноффичок

записать в файл

В какой файл, текстовый, типизированный, для чего.

@Zhecky · 13.07.2011, 16:12

Както так.
Подколупал код немного. Как понял - должна быть сортировка. Строки в паскале тип данных, то есть строки можно приравнивать как числа.
Количество записей определено константой:

Pascal
1
num = 3;

Здесь определен файл, который будет создан при запуске программы:

Pascal
1
assign(f,'stud.dat');

И формат вывода на консоль подкоректил. Смотри:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program proga1;
uses crt;
const num = 3;
type anketa=record
  lname: string[14];
  fname: string[14];
  dat_n: integer;
  osvita: string[20];
  zarplata: real;
end;
var student: array[1..num] of anketa;
buf:anketa;
k,i,j:Integer;
f : file of anketa;
begin
assign(f,'stud.dat');
clrscr;
k:=0;
writeln('Vvedit dani pro studentiv');
for i:=1 to num do
  with student[i] do
    begin
    writeln('Vvedit prizvystche ');
    readln(lname);
    writeln('Vvedit imya ');
    readln(fname);
    writeln('vvedit rik narodshennya ');
    readln(dat_n);
    writeln('Vvedit osvitu ');
    readln(osvita);
    writeln('Vvedit zarplatu ');
    readln(zarplata);
    end;
for i:=1 to num do
  with student[i] do
      if (2011-dat_n >= 20) and (2011-dat_n <= 40) then inc(k);
writeln('K-st lyudey starshe 20 i molodshe 40 ',k);
readln;
for j:=1 to num-1 do
  for i:=1 to num-j do
    if student[i].lname>student[i+1].lname then
      begin
      buf:=student[i+1];
      student[i+1]:=student[i];
      student[i]:=buf;
      end;
      
clrscr;
rewrite(f);
Writeln('________________________________________________________________');
writeln('Last Name':15, 'First Name':15,'Rik':5, 'Osvita':21, 'Zarplata':12);
Writeln('----------------------------------------------------------------');
for i:=1 to num do
  with student[i] do
    begin
    write(lname:15);
    write(fname:15);
    write(dat_n:5);
    write(osvita:21);
    write(zarplata:9:3);
    writeln;
    write(f,student[i]);
    end;
readln;
clrscr;
reset(f);
Writeln('________________________________________________________________');
writeln('Reading file: ..');
Writeln('________________________________________________________________');
writeln('Last Name':15, 'First Name':15,'Rik':5, 'Osvita':21, 'Zarplata':12);
Writeln('----------------------------------------------------------------');
while not eof(f) do
  begin
  read(f,buf);
  write(buf.lname:15);
  write(buf.fname:15);
  write(buf.dat_n:5);
  write(buf.osvita:21);
  write(buf.zarplata:9:3);
  writeln;
  end;
close(f);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .