Чтобы переваривать знания, Нужно поглощать их с аппетитом. А. Франс. - презентация

1 Чтобы переваривать знания, Нужно поглощать их с аппетитом. А. Франс

2

3

4

5 конец начало Чтение данных из файлов Вывод их на экран Запись данных в массивы Сортировка элементов двух массивов Вывод элементов двух массивов по убыванию оценок

6 Название программыprogram Kurator; Раздел описания uses crt; const n=5; var x,y:text; i,b,k,d:integer; a,p:string; f:array [1..n] of string; g:array [1..n] of integer; Объявление начала программы begin clrscr; Объявление и открытие файлов с данными assign(x,'C:\1.txt'); assign(y,'C:\2.txt'); reset(x); reset(y);

7 Чтение данных из файлов Вывод их на экран Запись данных в массивы for i:=1 to n do begin writeln; write(i,' студент - '); readln(x,a); write(a); f[i]:=a; writeln; write('оценка - ':11); read(y,b); write(b); g[i]:=b; writeln; end; writeln;

8 Сортировка элементов двух массивов for k:=1 to n do for i:=1 to n do if g[i]

9 Работа с 2 файламиРабота с 1 файлом 1Сортировка по возрасту6Количество 16-летних 2Сортировка по годам7Количество 17-летних 3Сортировка по полу8Количество отличников 4Список отличников9Количество бюджетников 5Список ударников10Количество девочек Задания для самостоятельной работы

10 При работе с различными типами входных данных записывать их в файл нужно с новой строки для программы Pascal ABC.

11 В задаче о сортировке по полу мальчиков можно отметить символом m (man), а девочек символом w (woman)

12 for i:=1 to n do begin writeln; readln(x,a,b); write(a,b); end; for i:=1 to n do begin writeln; readln(x,a); write(a); readln(x,b); write(b); end;

13