LAZARUS Створіть проект для віднімання двох дійсних чисел (real)Создайте проект для вычитания двух действительных чисел (real)

Знания

Информатика

1 ответ:

vados324 года назад

0 0

Procedure TForm1.Button1Click(Sender: TObject);
var a, b, x :real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
x := a - b;
Label1.Caption := FloatToStr(x);
end;

Читайте также

Переведите число их 10сс в 2, 8 , 16 сс а)29 б)56 в)287

Татьяна Вячеславовна [1]

а) 11101;35;1D

б) 111000;70;38

в) 100011111;37;17F

0 0

4 года назад

Добрый вечер, пожалуйста напишите паскаль, заранее спасибо

Ксения2011

===== PascalABC.NET =====

begin

var F: real-> real := n -> Sqrt(n) + n;

F(ReadReal('n =')).Println

end.

0 0

3 года назад

Собери мешок из 8 бусин, все бусины в котором треугольные и все бусины в котором разные. Нарисуй бусины в мешке.

Православный я

Просто нарисовать 8 разноцветных треугольников и обвести их, но все вместе

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите решить задачу по информатике, напишите решение задачи плиз

Raisa58

А2=12

В2=4

С2=4

Соответственно D2 тоже должно быть равно 4 (по диаграмме)

То есть B2=8 (4*2=8)

0 0

4 года назад

Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами сторон треугольника и если д

zui66

Var
a, b, c: real;

begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
    if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
    if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
    if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.

0 0

4 года назад