<span>def prog(last_name,ekz_1,num_1,ekz_2,num_2)<span>:
</span> print("Студент",last_name.title(),'\nотримав оцінку з ',ekz_1,num_1,'\nотримав оцінку з ',ekz_2,num_2,)
last_name = input("Введіть прізвище: ")
ekz_1 = (input("Введіть 1-ий екзамен: "))
num_1 = int(input("Введіть оцінку: "))
ekz_2 = (input("Введіть 2-ий екзамен: "))
num_2 = int(input("Введіть оцінку: "))
prog(last_name,ekz_1,num_1,ekz_2,num_2)</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
2) Правильный треугольник.
Если бы задание было
Повтори 6 [Направо 60 Вперед 20]
тогда был бы ответ (1).
В данном случае черепашка:
первый повтор -
повернёт на 60°
пройдёт 20
повернёт на 60°
второй повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20
повернёт на 60°
третий повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, из которой черепашка отправилась в путь
повернёт на 60°
четвёртый повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, в которой была черепашка после того, как прошла 20 шагов в первый раз!
повернёт на 60°
Var n,i:integer;
Begin
Read(n);
I:=0;
While n>0 do begin
I:=i*n;
Dec(n);
End;
Writeln(i);
End.
Ответ:
<h3>а)
<em>программа написана на делфи</em> </h3>
на форме создаем Edit1(куда вводится значение а), Edit2(куда вводится значение b) Label1(выводится результат) и кнопку(Button1).
var a,b,c:Real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=power(a+b,2)*2*(power(a,2))*b;
Label1.Caption:=IntToStr(C);
end;
end.
б)на форме создаем как и в первом!!
var x,y,z:Real;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=Abs(sqr(x-2))+x*sqrt(y);
Label1.Caption:=IntToStr(Z);
end;
end.
<u>НЕ</u><u> </u><u>ЗАБУДЬТЕ</u><u> </u><u>ДОБАВИТЬ</u><u> </u><u>МОДУЛЬ</u><u> </u><u>math</u><u> </u><u> </u><u>,</u><u> </u><u>иначе</u><u> </u><u>будет</u><u> </u><u>выдавать</u><u> </u><u>ошибку</u><u>.</u><u>.</u><u>.</u>