Delphi dasturlash muhitida doira yuzini hisoblaydigan ilova yarating

Ответ

Bitta edit, 2ta label va 1ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var r:integer; s:real; begin
r:=strtoint(edit1.Text); s=pi*r*r;
label2.Caption:=‟S=‟+floattostr(s); end;

Другие задачи с этого варианта

1 2 3

Книга: Informatika fanidan imtixon savollariga javoblar 10 sinf
Билет/вопрос: №17

Абитуриентам

ЦТ, Беларусь

Сборники тестов, Узбекистан
DTM варианты
Онлайн ДТМ тестирование

Решебники

Физика
Математика

Онлайн тестирование

Английский язык
Русский язык
Математика
Биология
География
История

База знаний по предметам

Физика
Математика
Информатика
Литература
Английский язык
Русский язык
Химия
История
География
Биология

Все разделы