Установите соответствие между словами левого и правого столбиков : газета предмет радуга прогулка процесс стадион чтение мираж явление по информатике . !

Предмет-газета,стадион. процес-прогулка,чтение. явление-радуга,мираж.

Явление - мираж , радуга процесс - чтение , прогулка предмет - газета , стадион

Type   tr = real;   tf = file of tr; procedure swapfile(fn1, fn2: string); var   r: tr;   fin, fout: tf; begin   assign(fin, fn1); reset(fin);   assign(fout, fn2); rewrite(fout);   while (not eof(fin)) do begin read(fin, r); write(fout, r) end;   close(fin); close(fout) end; var   f1, f2, f3, f4, f5, fh: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin'; fh : = 'tmp.bin';   { f2 < -> f4 }   swapfile(f2, fh); swapfile(f4, f2); swapfile(fh, f4);   { f5-> h, f3-> f5, f1-> f3, h-> f1 }   swapfile(f5, fh); swapfile(f3, f5); swapfile(f1, f3); swapfile(fh, f1) end. ******************* для тестирования ****************** можно создать тестовые файлы с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string; m, n: integer); var   fout: tf;   i: integer; begin   assign(fout, fn); rewrite(fout);   for i : = m to n do write(fout, i / 2);   close(fout) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1, 3, 7); wf(f2, 11, 19); wf(f3, -6, 9); wf(f4, 0, 11); wf(f5, 14, 22);       end. далее можно просмотреть содержимое созданных файлов с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string); var   fin: tf;   r: tr; begin   writeln(fn);   assign(fin, fn); reset(fin);   while (not eof(fin)) do   begin read(fin, r); write(r: 0: 1, ' ') end;   writeln;   close(fin) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1); wf(f2); wf(f3); wf(f4); wf(f5) end. затем выполнить основную программу по перезаписи и снова запустить программу для просмотра файлов.

Const   nm = 50; type   data = record       day: 1..31;       month: 1..12;       year: integer   end;   lichn = record       famnam: string;       datr: data   end;   listlichn = array [1..nm] of lichn; var   m: listlichn;   n: integer; procedure getlichn(k: integer); begin   write(k, ') введите через пробел фамилию, имя: ');   readln(m[k].famnam);   writeln('введите через пробел день, месяц и год рождения: ');   readln(m[k].datr.day, m[k].datr.month, m[k].datr.year) end; procedure writelichn(k: integer); begin   writeln(m[k].famnam, ' ', m[k].datr.day, '.', m[k].datr.month, '.', m[k].datr.year) end; procedure vvod(var p: integer); var   i: integer; begin   write('введите количество лиц n (максимум 50) -> ');   readln(p);   if p < = 50 then for i : = 1 to p do getlichn(i)   else begin writeln('вы ввели неправильное значение'); p : = 0 end end; procedure zapros1;   { фамилии и имена тех кто родился в месяц l года } var   i: integer;   l: 1..12; begin   write('введите номер месяца рождения (1-12): ');   readln(l);   for i : = 1 to n do       if m[i].datr.month = l then writelichn(i) end; procedure zapros2;   { фамилии и имена тех кто родился в год a } var   a, i: integer; begin   write('введите год рождения: ');   readln(a);   for i : = 1 to n do       if m[i].datr.year = a then writelichn(i) end; procedure zapros3;   { фамилии и имена тех чья дата рождения z.l.a } var   a, i: integer;   z: 1..31;   l: 1..12; begin   write('введите через пробел день, месяц и год рождения: ');   readln(z, l, a);   for i : = 1 to n do       if (m[i].datr.year = a) and (m[i].datr.month = l)           and (m[i].datr.day = z) then           writelichn(i) end; begin   vvod(n);   zapros1;   zapros2;   zapros3 end. тестовое решение: введите количество лиц n (максимум 50) -> 3 1) введите через пробел фамилию, имя: иванов иван введите через пробел день, месяц и год рождения: 24 12 1973 2) введите через пробел фамилию, имя: петров петр введите через пробел день, месяц и год рождения: 05 03 1982 3) введите через пробел фамилию, имя: козлова екатерина введите через пробел день, месяц и год рождения: 1 12 1994 введите номер месяца рождения (1-12): 12 иванов иван 24.12.1973 козлова екатерина 1.12.1994 введите год рождения: 1982 петров петр 5.3.1982 введите через пробел день, месяц и год рождения: 5 3 1982 петров петр 5.3.1982