Составить тест из 3 вопросов на языке паскаль, с 3 вариантами ответа, и в конце составить процент верных и вывести оценку 90% < % -5 70-80% - 4 > 60% -3 < 60%-2

👇

Ответ:

lev2121

21.05.2023

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.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале

4,8(65 оценок)

Открыть все ответы

Ответ:

sergeygrachev

21.05.2023

1. → 2 [сдвинуться вправо, перейти на строку 2]
2. → 3 [сдвинуться вправо, перейти на строку 3] — в вопросе опечатка?
3. → 4 [сдвинуться вправо, перейти на строку 4]
4. ? 5;2 [если в текущей ячейке нет метки, перейти на строку 5, иначе вернуться на 2]
5. ← 6 [сдвинуться влево, перейти на строку 6]
6. V 7 [поставить метку, перейти на строку 7]
7. ! [закончить работу]

Программа делает следующее: переходит на метку вправо, шагами по две ячейки идёт вправо, пока не дойдёт до пустой ячейки, возвращается на ячейку влево, ставит там метку и заканчивает работу.

Пусть метки расположены в ячейках 0 - (n-1), каретка под ячейкой 0.
Тогда сначала каретка окажется подячейкой 1, сделает [n/2] шагов по 2 вправо ([x] — целая часть x), оказавшись под ячейкой 1 + 2 * [n/2], вернётся на ячейку влево (ячейка 2 * [n/2]) и поставит там метку.

Если n было четным, будут заполнены ячейки от 0 до n, каретка под ячейкой n
Если n было нечетным, будут заполнены ячейки от 0 до n - 1, каретка под ячейкой n - 1

4,5(13 оценок)

Ответ:

kerikan

21.05.2023

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;
B: Array[1..100] of integer;
C: Array[1..100] of integer;
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(A[i]);
end;
Writeln('Вводится второй массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(B[i]);
end;
For i:=1 to s do begin
If A[i]>B[i] then C[i]:=A[i]
else C[i]:=B[i];
If C[i] mod 2=1 then h:=h+1;
If C[i] mod 2=0 then g:=g+1;
end;
Writeln('Количество нечётных элементов в массиве:',h);
Writeln('Количество чётных элементов в массиве:',g);
end.

4,6(70 оценок)

Это интересно:

Стиль-и-уход-за-собой

15.12.2021

Как подчеркнуть вырез декольте: 5 советов от стилистов...

01.04.2023

Беременность и дневник: как вести записи и зачем это нужно?...

Образование-и-коммуникации

01.10.2020

Как подготовиться и успешно выступить с речью...

Финансы-и-бизнес

20.08.2021