Правила форума
Прочтите прежде чем задавать вопрос!
Код
Список оценок: Средний балл:
------------------------------------------------------------------- --------
Белорусская литература |
------------------------------------------------------------------- --------
Русская литература |
------------------------------------------------------------------- --------
Основы алгоритмизации и прогр.|
------------------------------------------------------------------- --------
Операционные системы |
------------------------------------------------------------------- --------
Прикладное ПО |
------------------------------------------------------------------- --------
Экономическая теория |
------------------------------------------------------------------- --------
Философия |
------------------------------------------------------------------- --------
Высшая математика |
------------------------------------------------------------------- --------
Физкультура |
------------------------------------------------------------------- --------
Инженерная графика |
------------------------------------------------------------------- --------
Английский язык |
------------------------------------------------------------------- --------
Шаблон записан в текстовом файле. Все, что нужно, это при запуске программы выбрать пункт меню (от 1 до 11), выбрав таким образом предмет, ввести новую оценку, чтобы она заняла свое место и записалась в файл и автоматически высчитать средний балл по текущему предмету, соответственно записать снова в файл. То есть, чтобы заново открыв программу, мне выдавался уже обновленный дневник.
Вот, что есть на данный момент: (Паскаль только начал, так что не судите строго, если где-то нерационально)
program DNEVNIK;
uses crt;
var t:text; ln,pt:string; key,bl,rl,oap,os,ppo,et,fil,vm,fk,ig,ang,x,y:integer;
bls,rls,oaps,oss,ppos,ets,fils,vms,fks,igs,angs:real;spc:char;
begin
repeat
clrscr;
assign(t,'ocenki.txt');
reset(t);
while not eof(t) do
begin
readln(t,ln);
writeln(ln);
end;
close(t);
{----------------------------------------------------------}
writeln('Выберите дисциплину:');
writeln;
writeln('1. Белорусская литература');
writeln('2. Русская литература');
writeln('3. Основы алгоритмизации и прогр.');
writeln('4. Операционные системы');
writeln('5. Прикладное ПО');
writeln('6. Экономическая теория');
writeln('7. Философия');
writeln('8. Высшая математика');
writeln('9. Физкультура');
writeln('10. Инженерная графика');
writeln('11. Английский язык');
writeln;
readln(key);
until (key>=1) and (key<=11);
{--------------------------------------------------------------------}
case of key
1: begin
assign(t,'ocenki.txt');
append(t);
writeln ('Введите оценку:');
readln(bl);
gotoxy(32,4);
write(bl,' ');
close(t);
end;
{--------------------------------------------------------------------------}
end.
ЗЫ. Процедуры не предлагать
Сообщение отредактировано: volvo -
