print("Математический тест(вообще не сложный)")
print("ответы вводить маленькими буквами")
mark=0
otwet1="в"
otwet2="в"
otwet3="а"
otwet4="г"
otwet5="б"
otwet6="б"
otwet7="в"
otwet8="г"
otwet9="а"
print("Задание номер 1: 2+2")
print("""
а)6
б)5
в)4
г)3""")
a=str(input("ответ:"))
if(a in otwet1 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 2: 79-56")
а)20
б)-20
в)23
г)26""")
if(a in otwet2 ):
print("Задание номер 3: 3*9")
а)27
б)12
в)-6
г)0,(3)""")
if(a in otwet3 ):
print("Задание номер 4: 10/5")
а)4
в)10
г)2""")
if(a in otwet4 ):
print("Задание номер 5: четыре пятых плюс пять пятых(вывести целую часть)")
а)девять девятых
б)1
в)одна первая
г)10""")
if(a in otwet5 ):
print("Задание номер 6: 0,1/0,1")
а)1
б)0,01
в)1,1
г)0,001""")
if(a in otwet6 ):
print("Задание номер 7: 5+(-6)")
б)-6
в)-1
г)-5""")
if(a in otwet7 ):
print("Задание номер 8: -10-12")
а)-2
б)22
в)-20
г)-22""")
if(a in otwet8 ):
print("Задание номер 9: пять в кубе")
а)125
б)25
в)15
г)50""")
if(a in otwet9 ):
mark=mark+8
print("Задание номер 10: -16*2")
if(a=="-32"):
mark=mark+12
print("Задание номер 11: -6*-5")
if(a=="30"):
print("Задание номер 12: -20/5")
if(a=="-4"):
print("Тест закончен")
if(mark<55):
print("Ваша оценка 2")
elif(mark in range(56,75)):
print("Ваша оценка 3")
elif(mark in range(75,86)):
print("Ваша оценка 4")
elif(mark>85):
print("Ваша оценка 5")
Объяснение:
1) создаем переменные, значения которых являются правильными вариантами ответов на первые 9 вопросов;
2) Создаем вопросы, если ответ правильный программа нас об этом информирует и добавляет процент, иначе пишет"Неправильно"
3)Выводим результат
Первая программа
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.
Вторая программа
Она состоит из процедуры и выводит на экран начальное уравнение, корни уравнения и дискриминант.
program sqrturavnenie;
uses crt;
Var a, b, c:Real;
procedure sq(a, b, c:Real);
Var d, x1, x2:Real;
Begin
d:=b*b-4*a*c;
Writeln ('d= ', d) ;
If d>=0 then begin
x1:=(-b+sqrt(d)) /(2*a);
x2:=(-b-sqrt(d))/(2*a);
If x1=x2 then
Writeln ('x1= ', x1:6:2)
else
Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)
End
Else
Writeln ('Корней нет!');
End;
Clrscr ;
Writeln ('a= ');
Readln (a);
Writeln ('b= ');
Readln (b);
Writeln ('c=') ;
Readln (c);
Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);
sq(a, b, c);
Readln
С комментариями будет трудно
print("Математический тест(вообще не сложный)")
print("ответы вводить маленькими буквами")
mark=0
otwet1="в"
otwet2="в"
otwet3="а"
otwet4="г"
otwet5="б"
otwet6="б"
otwet7="в"
otwet8="г"
otwet9="а"
print("Задание номер 1: 2+2")
print("""
а)6
б)5
в)4
г)3""")
a=str(input("ответ:"))
if(a in otwet1 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 2: 79-56")
print("""
а)20
б)-20
в)23
г)26""")
a=str(input("ответ:"))
if(a in otwet2 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 3: 3*9")
print("""
а)27
б)12
в)-6
г)0,(3)""")
a=str(input("ответ:"))
if(a in otwet3 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 4: 10/5")
print("""
а)4
б)5
в)10
г)2""")
a=str(input("ответ:"))
if(a in otwet4 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 5: четыре пятых плюс пять пятых(вывести целую часть)")
print("""
а)девять девятых
б)1
в)одна первая
г)10""")
a=str(input("ответ:"))
if(a in otwet5 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 6: 0,1/0,1")
print("""
а)1
б)0,01
в)1,1
г)0,001""")
a=str(input("ответ:"))
if(a in otwet6 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 7: 5+(-6)")
print("""
а)1
б)-6
в)-1
г)-5""")
a=str(input("ответ:"))
if(a in otwet7 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 8: -10-12")
print("""
а)-2
б)22
в)-20
г)-22""")
a=str(input("ответ:"))
if(a in otwet8 ):
mark=mark+7
print("Правильно")
else:
print("Неправильно")
print("Задание номер 9: пять в кубе")
print("""
а)125
б)25
в)15
г)50""")
a=str(input("ответ:"))
if(a in otwet9 ):
mark=mark+8
print("Правильно")
else:
print("Неправильно")
print("Задание номер 10: -16*2")
a=str(input("ответ:"))
if(a=="-32"):
mark=mark+12
print("Правильно")
else:
print("Неправильно")
print("Задание номер 11: -6*-5")
a=str(input("ответ:"))
if(a=="30"):
mark=mark+12
print("Правильно")
else:
print("Неправильно")
print("Задание номер 12: -20/5")
a=str(input("ответ:"))
if(a=="-4"):
mark=mark+12
print("Правильно")
else:
print("Неправильно")
print("Тест закончен")
if(mark<55):
print("Ваша оценка 2")
elif(mark in range(56,75)):
print("Ваша оценка 3")
elif(mark in range(75,86)):
print("Ваша оценка 4")
elif(mark>85):
print("Ваша оценка 5")
Объяснение:
1) создаем переменные, значения которых являются правильными вариантами ответов на первые 9 вопросов;
2) Создаем вопросы, если ответ правильный программа нас об этом информирует и добавляет процент, иначе пишет"Неправильно"
3)Выводим результат
Первая программа
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.
Вторая программа
Она состоит из процедуры и выводит на экран начальное уравнение, корни уравнения и дискриминант.
program sqrturavnenie;
uses crt;
Var a, b, c:Real;
procedure sq(a, b, c:Real);
Var d, x1, x2:Real;
Begin
d:=b*b-4*a*c;
Writeln ('d= ', d) ;
If d>=0 then begin
x1:=(-b+sqrt(d)) /(2*a);
x2:=(-b-sqrt(d))/(2*a);
If x1=x2 then
Writeln ('x1= ', x1:6:2)
else
Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)
End
Else
Writeln ('Корней нет!');
End;
begin
Clrscr ;
Writeln ('a= ');
Readln (a);
Writeln ('b= ');
Readln (b);
Writeln ('c=') ;
Readln (c);
Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);
sq(a, b, c);
Readln
end.
С комментариями будет трудно