Типизированые файлы (студенты)

@ighor · Регистрация: 13.11.2014

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

мне нужно сформыровать файл о студенте (имя, дата,стать,курс,адреса,телефон,оценка за сесию и стипендия ) .
А потом получить информацию о всех студентах которие имеют телефон.
сделал наброски и зашел в тупик

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
program project1;
 
type student=record
imia:string;
data:string;
stat:string;
kyrs:byte;
adresa:string;
tel: longint ;
sesia:byte;
stypyha:char;
end;
  var t:text;
    a,n,i:integer;   d:student;
    mas : array [1..11111]of student ;        
begin
 
   with d do begin
    writeln('vvedit kilkist studentiv');
    readln(n);
    assign(t,'t.txt');
    rewrite(t);
     
      writeln('vvedit prizvuche'); readln(imia); writeln(t,imia);
       writeln('vvedit daty'); readln(data); writeln(t,data);
        writeln('vvedit stat'); readln(stat); writeln(t,stat);
         writeln('vvedit kyrs'); readln(kyrs); writeln(t,kyrs);
         writeln ('vvedit telefon'); readln (tel);writeln (t,tel);
          writeln('vvedit adresu'); readln(adresa); writeln(t,adresa);
           writeln('vvedit ocincy'); readln(sesia); writeln(t,sesia);
            writeln('vvedit chy otrymye stipendiy(+/-)'); readln(stypyha); writeln(t,stypyha);
          
            end;
 
   close(t);
    
   reset (t);
 
    for i:=1 to a do   begin
    writeln(mas[i].imia) ;    
      writeln(mas[i].data);
       writeln(mas[i].stat);
       writeln(mas[i].kyrs);
       writeln (mas[i].tel);
       writeln(mas[i].adresa);
       writeln(mas[i].sesia);
       writeln(mas[i].stypyha);
        
    end;
    
      
 
end.

@JokeR.BY · 29.11.2014, 02:28

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
const
    ans : Array[Boolean] Of String[3] = ('Net', 'Da');
 
type
    F_I_O = record
        familia : String[20];
        imia : String[10];
        otchestvo : String[25];
    end;
    Student = record
        fio : F_I_O;
        date : String[10];
        kurs : Byte;
        adres : String;
        telefon : String[15];
        sessia : Byte;
        stipendia : Boolean;
    end;
 
var
    f : File Of Student;
    i, n : Byte;
    s : Student;
    t : String[3];
 
begin
    Write('n='); ReadLn(n);
    //запись в файл
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 1 to n do
    begin
        with s do
        begin
            with fio do
            begin
                Write('Familia: '); ReadLn(familia);
                Write('Imia: '); ReadLn(imia);
                Write('Otchestvo: '); ReadLn(otchestvo);
            end;
            Write('Data: '); ReadLn(date);
            Write('Kurs: '); ReadLn(kurs);
            Write('Adres: '); ReadLn(adres);
            Write('Telefon: '); ReadLn(telefon);
            Write('Sessia: '); ReadLn(sessia);
            Write('Stipendia [Da / Net]: '); ReadLn(t);
            stipendia := (t = 'Da');
        end;
        Write(f, s);
        WriteLn;
    end;
    Close(f);
    //чтение из файла
    Reset(f); Seek(f, 0);
    i := 0;
    while Not(Eof(f)) do
    begin
        Read(f, s);
        with s do
            if (Length(telefon) > 0) then
            begin
                Inc(i);
                WriteLn(i, '-tyj student:');
                with fio do
                    WriteLn('   FIO: ', familia, ' ', imia, ' ', otchestvo);
                WriteLn('   Data: ', date);
                WriteLn('   Kurs: ', kurs);
                WriteLn('   Adres: ', adres);
                WriteLn('   Telefon: ', telefon);
                WriteLn('   Ocenka za sessiu: ', sessia);
                WriteLn('   Stipendia: ', ans[stipendia]);
            end;
    end;
end.

@ighor · 29.11.2014, 12:16 **[ТС]**

JokeR.BY, можете сказать что значит 61 и 62 строка

@ZX Spectrum-128 · 29.11.2014, 12:27

Pascal
1
2
Inc(i); //увеличение i на 1
WriteLn(i, '-tyj student:'); // будет распечатан i, затем текст, например 2-tyj student:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@ighor 15 / 15 / 21 Регистрация: 13.11.2014 Сообщений: 275
	29.11.2014, 12:16 [ТС]
	JokeR.BY, можете сказать что значит 61 и 62 строка 0

Типизированые файлы (студенты)

Решение