Составить тест из 3 вопросов на языке паскаль, с 3 вариантами ответа, и в конце составить процент верных и вывести оценку 90% < % -5 70-80% - 4 > 60% -3 < 60%-2
176
179
Ответы на вопрос:
Var x,y,z: longint; begin writeln(' test'); writeln(' выберите верный вариант ответа 1,2 или 3'); writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; if (y=3)then write('ваша оценка 5'); if (y=2)then write('ваша оценка 3'); if (y=1)then write('ваша оценка 2'); end. p.s.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Паскаль: var b: array[2..7] of real; бейсик: dim b(2 to 7) as double у с/с++/c# и нижний индекс всегда равен 0 и там это написать невозможно.
Популярно: Информатика
-
BaSfOr05.12.2022 10:21
-
Дания2907.08.2022 01:42
-
DIlyus20.01.2023 04:52
-
terminator2719.07.2022 06:29
-
gjjfdkjgfyijh07.08.2020 22:41
-
Светлая2602.11.2020 12:31
-
уукуку20.05.2020 01:59
-
Russiansss08.10.2021 12:16
-
осоащумоо02.11.2022 03:49
-
tnepolu12.08.2021 01:15