Урок 4 - Работа с таблицами (Режим ограниченной функциональности) - Word (Сбой активации продукта) Рецензирование Вид о что вы хотите сделать? Ссылки Рассылки Итоги сдачи экзаменов абитуриентов в институт nin Набраны 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Фамилия абитуриента Васильев Василий Иванович Петрова Мария Петровна Иванов Иван Иванович Прокофьев Игорь Николаевич Синичкина Вера Михайловна Лыкова Ольга Петровна Семенова Ольга Викторовна Радченко Елена Сергеевна Морозов Иван Иванович Боброва Лариса Геннадьевна Кротова Наталия Васильевна Викторов Петр Петрович Иванова Мария Ивановна Сидорова Виктория Сергеевна Симонов Игорь Игоревич Греков Андрей Кириллович Факультет История Математика Физкультура Математика Математика Физкультура История История Математика Математика Физкультура История Физкультура Математика История История 23 18 14 25 20 19 22 25 22 23 17 20 13 25 19 22 Сведения о зачислении Зачислен Не зачислен Не зачислен Зачислен Зачислен Не зачислен Зачислен Зачислен Зачислен Зачислен Не зачислен Зачислен Не зачислен Зачислен Не зачислен Зачислен
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.
С комментариями будет трудно