Урок №1: Условия в Delphi - оператор 'If Then' на примере программы 'Решение квадратного уравнения'

Программирование
Урок №1: Условия в Delphi - оператор "If Then" на примере создания программы "Программа решения квадратного уравнения"
для студентов направлений: "Информационная безопасность" и "Прикладная информатика"

[zvejnieks]

Странно, уже 8 лет прошло, а русскоязычных уроков по Delphi Embarcadero кот наплакал. Однозначно лайк!

[Данил-ршц]

Спасибо огромное за вашу помощь! 2023г, а паскаль все еще актуален)

[SashaOshchypkoDaNTe]

спасибі) не зовсім те що мееі було потрібно..., але завдяки твоєму відео я навчився командам делфі !!! спасибі тобівелике за це!

[amaryllepaultysiba]

спасибо вам. я сдeлал тожe самоe упражнeниe и получил отвeт до конца. всё было ясно. была интeрeсная задача.

[НиколайСамсонов-фм]

Спасибо вам огромное! Мне очень понравилось! Ставлю лайк!

[Obnimayou_onelove]

Смотрю в 2023. Паскаль не актуален, но дельфи 7 нужен для лёгкого сдачи экзаменов в ССУЗе. Спасибо за видео.

[jylia]

Здравствуйте Вячеслав, Вы отлично преподаете! Жаль что забросили этот канал ((

[СозвездиеЛьва-кр]

Спасибо. Нашла свои косяки, почему не заработало.

[АсельЖамаледдинова]

как можно в edit прописать условие что нельзя вводить стринговые значения?

[БақтиярАбенов-фд]

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
c:=StrToFloat(edit3.Text);
d:=sqr(b)-4*a*c;
if d>=0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
X1.Text:=Floattostr(x1);
X2.Text:=FLoattostr(x2);
end
else
begin
X1.Text:='Ешқандай нақты түбірі жоқ';
X2.Text:='Ешқандай нақты түбірі жоқ';
end;
end;

[motivationcorporation]

Пипец как это учить в 8 классе не понятно