выбирает группу и фамилию отличника (507093)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

program magazine;

uses crt;

const nos=3;

nom=4;

type student=record

name:string[20];

group:string[5];

mark:array[1..nom] of shortint;

end;

var

b:array [1..nom] of boolean;

i,o:integer;

mag:array[1..nos] of student;

f:text;

begin

clrscr;

for i:=1 to nos do begin

write ('Введите имя: ');

readln (mag[i].name);

write ('Введите группу:');

readln (mag[i].group);

for o:=1 to nom do begin

write ('Введите ',o,'-ую оценку: ');

readln (mag[i].mark[o]);

end;

end;

writeln ('Ввод базы данных завершен');

readln;

clrscr;

for i:=1 to nos do begin

write (i,' ');

writeln ('Имя : ',mag[i].name);

writeln ('Группа: ',mag[i].group);

for o:=1 to nom do begin

writeln (o,'-я оценка: ',mag[i].mark[o]);

end;

end;

writeln;

writeln ('ОТЛИЧНИКИ И ХОРОШИСТЫ');

assign (f,'magazine.txt');

rewrite (f);

writeln (f,'---------- Журнал ОТЛИЧНИКОВ и ХОРОШИСТОВ ----------');

for i:=1 to nos do begin

b[i]:=false;

for o:=1 to nom do begin

if (mag[i].mark[o])<4 then b[i]:=true;

end;

if (b[i]=false) then begin

writeln (f,'Студент: ',mag[i].name);

write ('Имя: ',mag[i].name);

writeln (f,'Группа : ',mag[i].group);

writeln (' Группа: ',mag[i].group);

for o:=1 to nom do writeln (f,o,'-я оценка: ',mag[i].mark[o]);

writeln (f,'');

end;

end;

close (f);

writeln ('Задание выполнено');

readln;

end.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

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

Список файлов ответов (шпаргалок)