Добавьте кнопки 0, 4 – 9. Учтите, что действия сложения и вычитания выполняются только с двумя числами. На языке программирования Питон. За просто написанное сообщение бан
a,b,c=0,0,0
def p1():
global a
a=1
def p2():
global b
b=2
def p4():
global c
c=3
def p3():
global a
global b
global c
if a==0: a=c
elif b==0:b=c
lab=Label(width=10, height=1, text=(str(a)+'+'+str(b)+'='+str(a+b))).pack()
a,b,c=0,0,0
def p5():
global a
global b
global c
if a==0:
a=b
b=c
elif b==0:
b=c
# print(a)
lab=Label(width=10, height=1, text=(str(b)+'-'+str(a)+'='+str(b-a))).pack()
a,b,c=0,0,0
from tkinter import *
root = Tk()
btn1=Button(root, text = '1',width=10,height=2,command=p1).pack(side = 'left')
btn2=Button(root, text = '2',width=10,height=2,command=p2).pack(side = 'left')
btn4=Button(root, text = '3',width=10,height=2,command=p4).pack(side = 'left')
btn3=Button(root, text = '+',width=10,height=2,command=p3).pack(side = 'left')
btn5=Button(root, text = '-',width=10,height=2,command=p5).pack(side = 'left')
root.mainloop()
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.
С комментариями будет трудно