Составить программу которая по введенному значению выводит оценки по математике физике информатике

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

— вывести на экран данные из созданного файла (имя, фамилия, отчество, год рождения, оценка по физике и математике студентов у которых средняя оценка по физике и математике 4,5). 4 — Завершение программы. вот мой код если будет проще просто его подправьте как надо пожалуста

program shit; uses crt; const nmax=20; type studinfo=record group: string[10]; family: string[12]; name: string[12]; otch: string[15]; birth: string[11]; pol: string; fizika: string; matem: string; informat: string; stipendia: string; end; var student:studinfo; var meny:integer; var files:text; var a:array[1..nmax] of string; n,i,k:byte; label 1; label 2; label 3; label 4; Label 0; begin assign(files,’D:file.txt’); clrscr; 0: writeln(‘Выберите действие: 0-меню 1-создать файл 2-добавить запись 3-Выборка 4-выход’); readln(meny); case meny of 0:goto 0; 1:goto 1; 2:goto 2; 3:goto 3; 4:goto 4; end; 1:rewrite(files); 2: repeat write(‘Введите размер списка учеников до ‘,nmax,’ n=’); readln(n); until n in [1..nmax]; reset(files); writeln(‘Введите название ‘,n,’ групп’); for i:=1 to n do read(files,student.group); writeln(‘Введите фамилии ‘,n,’ студентов’); for i:=1 to n do read(files,student.family); writeln(‘Введите имена ‘,n,’ студентов’); for i:=1 to n do read(files,student.name); writeln(‘Введите отчества ‘,n,’ студентов’); for i:=1 to n do read(files,student.otch); writeln(‘Введите Д.Р. ‘,n,’ студентов’); for i:=1 to n do read(files,student.birth); writeln(‘Введите пол ‘,n,’ студентов’); for i:=1 to n do read(files,student.pol); writeln(‘Введите оценки по физике ‘,n,’ студентов’); for i:=1 to n do read(files,student.fizika); writeln(‘Введите оценки по математике ‘,n,’ студентов’); for i:=1 to n do read(files,student.matem); writeln(‘Введите оценки по информатике ‘,n,’ студентов’); for i:=1 to n do read(files,student.informat); writeln(‘Введите стипендии ‘,n,’ студентов’); for i:=1 to n do read(files,student.stipendia); writeln(‘Нажмите любую кнопгу’); close(files); readln; 3: writeln(student.group); writeln(student.family); writeln(student.name); writeln(student.otch); writeln(student.birth); writeln(student.pol); writeln(student.fizika); writeln(student.matem); writeln(student.informat); writeln(student.stipendia); goto 0; 4: end.
+ если можете очень прошу составить блок схему.

Код к задаче: «Вывести студентов, у которых средняя оценка по физике и математике 4,5»

Листинг программы
unit files; INTERFACE type ceh=record dil: string[10]; name: string[30]; vurib: integer; money: real; end; var f: file of ceh; buf: ceh; procedure menu; procedure zapis; procedure korrektirovka; procedure prosmotr; IMPLEMENTATION USES WINCRT; procedure menu; begin clrscr; gotoxy(1,1); writeln(‘

Решаем задания от подписчиков #5 | ОГЭ-2023 по информатике

MENU
‘); writeln(‘ 1 — запись рaботников;’); writeln(‘ 2 — корректировка;’); writeln(‘ 3 — просмотр;’); writeln(‘ 4 — выход.’); end; procedure zapis; var n:char; begin assign(f,’d:safeceh.txt’); reset(f); if ioresult=0 then seek(f,filesize(f)) else rewrite(f); writeln(‘

КККОМБО-РОЛИК: 4 ЧАСА Уничтожаем 8 задачи из ЕГЭ по инфе РУКАМИ и ПРОГОЙ

Запись работников
‘); repeat with buf do begin write(‘Отдел: ‘); readln(dil); write(‘Фамилия: ‘); readln(name); write(‘количество изделий: ‘); readln(vurib); write(‘деньги: ‘); readln(money); write(f,buf); write(‘Добавить еще информации?_(y/n)_’); readln(n); end; until (n=’n’)or(n=’N’)or(n=’-‘); end; procedure korrektirovka; var k: byte; n_name: string[30]; n_dil: string[10]; c: char; begin assign(f,’d:safeceh.txt’); writeln(‘
Корректировка
‘); REPEAT reset(f); K:=0; if ioresult <> 0 then begin writeln(‘Такого файла не найдено либо он не существует.’); break; end else begin write(‘Введите номер отдела: ‘); readln(n_dil); write(‘Введите фамилию: ‘); readln(n_name); while not eof(f) do begin read(f,buf); if (buf.dil=n_dil) and(buf.name=n_name) then begin write(‘Введите новое количество изделий: ‘); readln(buf.vurib); write(‘Введите новую зар. плату(в грн): ‘); readln(buf.money); seek(f,filepos(f)-1); write(f,buf); k:=1; end; end; if k=1 then writeln(‘Успешно сделано. ‘) else writeln(‘Tакой фамилии (отдела) не найдено либо она(он) введена(он) не верно. ‘); write(‘Продолжить корректировку?_(y/n)_’); readln(c); end; UNTIL (c=’n’)or(c=’N’)or(c=’-‘); end; procedure prosmotr; begin assign(f,’d:safeceh.txt’); reset(F); if ioresult<>0 then writeln(‘Ошибка. Файл не найден либо не существует.’) else begin writeln(‘ОТДЕЛ ФАМИЛИЯ ИЗДЕЛИЙ ЗАР. ПЛАТА’); writeln(‘
‘); while not eof(f) do begin read(f,buf); gotoxy(2,wherey); write(buf.dil); gotoxy(17,wherey); write(buf.name); gotoxy(38,wherey); write(buf.vurib); gotoxy(54,wherey); write(buf.money:5:2,’ грн.’); WRITELN; end; end; end; end.

Источник: studassistent.ru

Составить программку, которая по введенному значению выводит оценки по арифметике, физике,

USES Crt; LABEL R1,R2;
VAR nbsp;X: INTEGER; nbsp;nbsp;nbsp;M:CHAR; BEGIN
nbsp;nbsp;R1:ClrScr; nbsp;nbsp;WriteLn(ПРГ выводит оценки по математике, физике и химии);
nbsp;nbsp;WriteLn(1.Вывод оценок по предметам);
nbsp;nbsp;WriteLn(2.Выход);
nbsp;nbsp;WriteLn(Введите номер пт); nbsp;
nbsp;nbsp;ReadLn (X);
nbsp;nbsp;CASE X OF
nbsp;nbsp;1: Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( По какому предмету Вы желаете узреть оценки); nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( М — математика);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( Ф — физика);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( Х — химия);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ReadLn(M);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;CASE M OF
nbsp; nbsp; М,м:WriteLn(5 5 4 4 5 5 3 5 5 );
nbsp; nbsp; Ф,ф:WriteLn(5 4 5 3 5 4 5 5 5 );
nbsp; nbsp; Х,х:WriteLn(4 3 5 3 4 4 4 5 );
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;2: Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Программа окончена);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;GoTo R2;
nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Номер неверен); ReadLn;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;GoTo R1;
nbsp;nbsp;End;
nbsp;R2:End.

Источник: obrazovalka.com

Условный оператор Case

Оператор Case является обобщением оператора If и позволяет сделать выбор из произвольного числа имеющихся вариантов.

В этой структуре:

Выражение – выражение любого простого типа, кроме вещественного типа, значение которого вычисляется.

список 1, список 2,…, список n – константы, с которыми сравнивается значение выражения.

оператор 1, оператор 2,…, оператор n – операторы, из которых выполняется тот, с константой которого совпадает значение выражения.

оператор – оператор, который выполняется, если значение выражения не совпадает ни с одной из констант.

Ветвь оператора Else является необязательной. Если она отсутствует и значение выражения не совпадает ни с одной из перечисленных констант, весь оператор рассматривается как пустой. В отличие от оператора If перед словом Else точку с запятой можно ставить, хотя это и необязательно.

Примеры решения задач

1. Выражение целочисленного типа.

1. Выражение интервального типа.

1. Выражение символьного типа.

1. Составить программу, которая по введенному значению 1, 2, 3 вычисляет:

1. Площадь параллелограмма
2. Периметр параллелограмма
3. Выход

1. Составить программу «Календарь XX столетия», которая определяет день недели любого дня XX-го столетия. По введенному значению 1, 2, 3 вычисляет

1. Номер дня недели по формуле, где D- день, М-месяц, G-год:

• S=[(12-M)/10]
• K=[(G-1900-S)*365,25]+[(M+12*S-2)*30,59]+D+29
• N=K-7[K/7] (N-вычисляется от 0-воскресенье до 6-суббота, []-целая часть)

1. День недели по его номеру
2. Выход

Источник: studfile.net