Зробити в Паскалі для обчислення площі всієї поверхні (Sp=a*a*6) та об’єму куба (V=a3). В тексті програми необхідно викликати 1-шу при натиснення клавіші «1», або 2-гу при натиснення клавіші «2».
1) полная таблица истинности каждого выражения с пятью переменными содержит 2^5 = 32 строки;
2) в каждой таблице содержится по 4 единицы и по 28 нулей, ( то есть 32-4);
3) выражение a v - b равно нулю тогда, когда a = 0 или b = 1;
4) min количество единиц в таблице истинности выражения a v - b будет тогда, когда там будет наибольшее число нулей, то есть в max количество строк одновременно a = 0 и b = 1;
5) по условию a = 0 в 28 строках, и b = 1 в 4 строках, поэтому выражение a v - b может быть равно нулю не более чем в 4 строках, а оставшиеся 32 – 4 = 28 могут быть равны 1.
1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
1) полная таблица истинности каждого выражения с пятью переменными содержит 2^5 = 32 строки;
2) в каждой таблице содержится по 4 единицы и по 28 нулей, ( то есть 32-4);
3) выражение a v - b равно нулю тогда, когда a = 0 или b = 1;
4) min количество единиц в таблице истинности выражения a v - b будет тогда, когда там будет наибольшее число нулей, то есть в max количество строк одновременно a = 0 и b = 1;
5) по условию a = 0 в 28 строках, и b = 1 в 4 строках, поэтому выражение a v - b может быть равно нулю не более чем в 4 строках, а оставшиеся 32 – 4 = 28 могут быть равны 1.
ответ: 28.