Question

Сделайте пожалуйста блок схему по этой программе, спасибо )) program test; uses crt; var po,otv,p:char; s:integer; fam,imya: string[15]; function proverka(p: char): integer; begin if p=po then begin writeln('Правильно'); s:=s+1; end else writeln('Неправильно. Правильный ответ - ',po); end; begin Write('Введите вашу фамилию: '); read(fam); Write('Введите ваше имя: '); read(imya); S:=0; clrscr; writeln('1. Что такое целый тип?'); writeln('A.writeln'); writeln('B.integer'); writeln('C.char'); writeln('D.real'); write('Введите ответ: '); po:='B'; readln(otv); proverka(otv); Writeln('Для продолжения нажмите - Enter'); readln; clrscr; writeln('2. Что является переменной в Pascal?'); writeln('A.mod'); writeln('B.real'); writeln('C.type'); writeln('D.var'); write('Введите ответ: '); po:='D'; read(otv); proverka(otv); Writeln('Для продолжения нажмите - Enter'); readln; clrscr; writeln('3. Как записывается тип данных?'); writeln('A.type'); writeln('B.set'); writeln('C.write'); writeln('D.record'); write('Введите ответ: '); po:='A'; read(otv); proverka(otv); Writeln('Для продолжения нажмите - Enter'); readln; clrscr; writeln('4. Постоянная величина в Pascal?'); writeln('A.case'); writeln('B.const'); writeln('C.and'); writeln('D.lable'); write('Введите ответ: '); po:='B'; read(otv); proverka(otv); Writeln('Для продолжения нажмите - Enter'); readln; clrscr; writeln('5. Конец команды заканчивается словом?'); writeln('A.not'); writeln('B.for'); writeln('C.end'); writeln('D.program'); write('Введите ответ: '); po:='C'; read(otv); proverka(otv); Writeln('Для продолжения нажмите - Enter'); readln; clrscr; if s=5 then writeln(fam,' ',imya,' вы получили оценку - 5 Молодец!'); if s=4 then writeln(fam,' ',imya,' вы получили оценку - 4 Хорошо'); if s=3 then writeln(fam,' ',imya,' вы получили оценку - 3 Старайся') ; if (s=0) or (s=2) then writeln(fam,' ',imya,' вы получили оценку - 2 Плохо') ; end.

Answer 1

Сложна, ты в каком классе?