Вариант 4 (задача 1) (задачи по вариантам)
Задание: Даны 3 числа.Высчитать сумму квадратов если все они меньше нуля. Если все числа больше нуля то каждое из них умножить на два. В других случаях вывести сообщение,что числа имеют разные знаки.
Текст программы:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i,n,d:integer;
begin
for i:=1 to 4 do
begin
randomize;
a:=random (20)+15;
b:=random (20);
c:=random (20)+15;
If (a > 0) and (b > 0) and (c > 0) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
Canvas.TextOut(50,20*i,inttostr(a));
Canvas.TextOut(100,20*i,inttostr(b));
Canvas.TextOut(150,20*i,inttostr(c));
end
else if (a < 0) and (b < 0) and (c < 0) then
begin
a:=a*a; b:=b*b; c:=c*c; d:=a+b+c;
Canvas.TextOut(50,20*i,inttostr(c));
end
else if (a < 0) and (b > 0) and (c < 0) then
begin
Button1.Caption:='÷èñëà èìåþò ðàçíûå çíàêè';
end;
end;
end;
end.
Результаты работы программы:
Дата добавления: 2015-10-21; просмотров: 17 | Нарушение авторских прав
| <== предыдущая лекция | | | следующая лекция ==> |
| План работы над исследованием. | | | Сибирская Государственная Геодезическая Академия |