Сделайте блок схему по этой программе, )) 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.
218
436
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nam005.06.2022 20:01
-
Kolabonic306.07.2022 21:53
-
kirill1s28.01.2022 08:14
-
evelina211212.05.2022 06:43
-
cbnybrjds27.12.2022 12:26
-
Шаурма111111119.04.2023 08:37
-
ycnakouc7oy2xua01.09.2022 21:45
-
Artur24202.01.2023 05:08
-
yaooiojhh05.12.2020 17:48
-
detsadraduga1030.03.2021 21:03
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.