Как сделать чтобы эта программа брала данные из файла и выводила их в другой файл

@DarkOfDragon · Регистрация: 27.08.2016

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

Как сделать чтобы эта программа брала данные из файла и выводила их в другой файл?

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
uses
   crt;
 
const
   n = 3;
 
type
   FName = record                        // Представление полного имени в виде записи
      Name, Surname, SecondName: string;
   end;
   
   student = record
      FullName: FName;                   // ФИО
      Group: byte;                       // Номер группы
      course: 1..4;                      // Курс
      marks: array [1..4]  of byte;      // Оценки
      dd: 1..31;                         // День
      mm: 1..12;                         // Месяц
      yy: integer;                       // Год
      Eyy: 1900..2016;                   // Год поступления
   End;
var
   i: integer;
   s: Student;
   Students: array [0..n-1] of Student;  // Массив студентов
 
begin
   ClrScr;
   for i:= 0 to n-1 do begin
       with s do begin
         Writeln(' * Заполнение данных ', i+1,'-ого учащегося * ');
         Writeln('Имя:');
         readln(Fullname.Name);
         
         Writeln('Фамилия:');
         readln(Fullname.Surname);
         
         Writeln('Отчество:');
         readln(Fullname.SecondName);
         
         Writeln('Группа:');
         readln(Group);
      
         Writeln('Дата рожднния:');
         Write('   День: ');
         readln(dd);
      
         Write('   Месяц: ');
         readln(mm);
      
         Write('   Год: ');
         readln(yy);
      
         Writeln('Курс:');
         readln(course);
         
         Writeln('Оценки:');
         readln(marks[1], marks[2], marks[3], marks[4]);
         c :=chr(0);
      end;
      Students[i]:= s;
      ClrScr;
   end;
   ClrScr;
   writeln('ФИО':30,' | Группа | ', 'Дата рожднния':10,' | ', 'Курс':2,' | Оценки');
   for i:= 0 to n-1 do begin
      s:= Students[i];
      if (s.marks[1] + s.marks[2] + s.marks[3] + s.marks[4]) / 4 >= 5 then
         writeln((s.Fullname.Name + ' ' + s.Fullname.Surname + ' ' + s.Fullname.SecondName):30,' | ',
                 s.Group:6 ,' | ',
                 (inttostr(s.dd) + '/' + inttostr(s.mm) + '/' + inttostr(s.yy)):13,' | ',
                 inttostr(s.course):4 ,' | ',
                 s.marks[1],' ',s.marks[2],' ',s.marks[3],' ',s.marks[4]);
   end;
end.

@Puporev · 28.11.2016, 17:01

Сообщение от DarkOfDragon

чтобы эта программа брала данные из файла

Из какого, где он?

@DarkOfDragon · 28.11.2016, 17:11 **[ТС]**

Новый текстовый документ.txt

@Puporev · 28.11.2016, 17:51

Что-то Ваш код не бьет с файлом. У Вас 4 оценки, а в файле 9 разбитых на 2 сессии. Да и курса там нет.

@DarkOfDragon · 28.11.2016, 18:16 **[ТС]**

А если так?

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
uses
   crt;
 
const
   n = 3;
 
type
   FName = record                        
      Name, Surname, SecondName: string;
   end;
   
   student = record
      FullName: FName;                                          
      course: 1..4;                      
      marks: array [1..9]  of byte;     
      dd: 1..31;                         
      mm: 1..12;                         
      yy: integer;                      
      Eyy: 1900..2016;                  
   End;
var
   i: integer;
   s: Student;
   Students: array [0..n-1] of Student;  
 
begin
   ClrScr;
   for i:= 0 to n-1 do begin
       with s do begin
         Writeln(' * Заполнение данных ', i+1,'-ого учащегося * ');
         Writeln('Имя:');
         readln(Fullname.Name);
         
         Writeln('Фамилия:');
         readln(Fullname.Surname);
         
         Writeln('Отчество:');
         readln(Fullname.SecondName);
         
         Writeln('Группа:');
         readln(Group);
      
         Writeln('Дата рожднния:');
         Write('   День: ');
         readln(dd);
      
         Write('   Месяц: ');
         readln(mm);
      
         Write('   Год: ');
         readln(yy);
      
         
         Writeln('Оценки:');
         readln(marks[1], marks[2], marks[3], marks[4],marks[5], marks[6], marks[7], marks[8], marks[9] );
         c :=chr(0);
      end;
      Students[i]:= s;
      ClrScr;
   end;
   ClrScr;
   writeln('ФИО':30,' | ', 'Дата рожднния':10,' | Оценки');
   for i:= 0 to n-1 do begin
      s:= Students[i];
      if (s.marks[1] + s.marks[2] + s.marks[3] + s.marks[4] + s.marks[5] + s.marks[6] + s.marks[7] + s.marks[8]+ s.marks[8]) /
       4 >= 5 then
         writeln((s.Fullname.Name + ' ' + s.Fullname.Surname + ' ' + s.Fullname.SecondName):30,' | ',
                 s.Group:6 ,' | ',
                 (inttostr(s.dd) + '/' + inttostr(s.mm) + '/' + inttostr(s.yy)):13,' | ',
                 s.marks[1],' ',s.marks[2],' ',s.marks[3],' ',s.marks[4],' ',marks[5],' ',marks[6],' ',marks[7],' ',marks[8],' ',marks[9]);
   end;
end.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@DarkOfDragon 0 / 0 / 0 Регистрация: 27.08.2016 Сообщений: 75
	28.11.2016, 17:11 [ТС]
	Новый текстовый документ.txt 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.11.2016, 17:51
	Что-то Ваш код не бьет с файлом. У Вас 4 оценки, а в файле 9 разбитых на 2 сессии. Да и курса там нет. 0