Напишите код для обчесленния в среде Lazarus


Напишите код для обчесленния в среде Lazarus

fietisov fietisov    2   10.04.2021 13:04    0

Ответы
Жориккот123 Жориккот123  10.05.2021 13:04

Создаём Edit1, Label1, Button1 и для Button1 пишем код.

var x, y: real;

x:=strtofloat(Edit1. Text) ;

If (x< - 1)

Then y:=2*x-5

Else If (x>0) and (x<2 or x=2)

Then y:=x+3

Else If (x>3)

Then y:=sqrt 2*x/8;

Label1.Caption:=floattostr(y);

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика