Пятница, 20.10.2017, 18:55
Приветствую Вас Гость | RSS
Главная | Урок 38 | Регистрация | Вход
Меню сайта
Форма входа
Поиск
Опрос
В каких социальных сетях вы предпочитаете общаться?
Всего ответов: 30
Полезно

Управление по делам образования г.Челябинска

Учебно-методический центр г.Челябинска

Служба информационно-аналитического обеспечения Калининского района г.Челябинска

Олимпийский образовательный портал

Вход в Электронный журнал

Блог АС "Сетевой город.Образование"

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сайт заместителя директора по УВР
Тема: Решение задач. Линейный алгоритм.

Задание 1. Найдите периметр и площадь прямоугольника, если известны его ширина и длина.



Нахождение периметра прямоугольника:

procedure TForm1.Button1Click(Sender: TObject);
var
a, b : integer ;
c: real;
begin
a:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
c:=(b+a)*2;
Label3.Caption:= 'Ответ: '+FloatToStr (c);
end;

Нахождение площади прямоугольника:

procedure TForm1.Button2Click(Sender: TObject);
var
a, b : integer ;
c: real;
begin
a:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
c:=b*a;
Label3.Caption:= 'Ответ: '+FloatToStr (c);
end;


Задание 2. Дано действительное число S - площадь квадрата. Составить программу, определяющую его сторону и периметр.


Задание 3. Найти значение выражения .


Бесплатный хостинг uCozCopyright MyCorp © 2017