Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
SerVilkov123
0 / 0 / 0
Регистрация: 18.05.2017
Сообщений: 10
1

Составить программу для вычисления площади одной из фигур: квадрата, круга или прямоугольника по значению x

02.07.2018, 17:17. Просмотров 632. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите.
Составить программу для вычисления площади одной из фигур: квадрата, круга или прямоугольника по значению x, интерпретируемому как сторона квадрата, радиуса или основание прямоугольника, высота прямоугольника превышает основание в 2 раза. Для задания х использовать однострочный текстовый редактор Edit.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2018, 17:17
Ответы с готовыми решениями:

Вычисления по заданному радиусу и значению переменной площади круга.
Составьте программу вычисления по заданному радиусу и значению переменной площади круга (если ...

Составить программу нахождения площади квадрата, прямоугольника, круга и треугольника
Составить программу нахождения площади квадрата, прямоугольника, круга и треугольника.

Составить программу вычисления площади круга по номеру N одного из элементов и его значению
Пусть элементами круга является радиус (первый элемент), диа- метр (второй элемент) и длина...

Вычисление площади и периметра квадрата и прямоугольника, описанных вокруг круга заданной площади S
Составить программу для вычисления площади и периметра квадрата и прямоугольник, описанных вокруг...

Необходимо написать две функции для вычисления площади прямоугольника и круга
Необходимо написать две функции для вычисления площади прямоугольника и круга. Программа должна...

2
Puporev
Модератор
57088 / 43587 / 30123
Регистрация: 18.05.2008
Сообщений: 103,929
02.07.2018, 17:42 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var x,s:double;
    k:integer;
begin
val(Edit1.Text,x,k);
if(k<>0)or(x<=0) then
 begin
  ShowMessage('Вы неверно ввели х');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
case RadioGroup1.ItemIndex of
0:s:=x*x;
1:s:=pi*x*x;
2:s:=2*x*x;
else ShowMessage('Вы не выбрали фигуру');
end;
ShowMessage('Площадь='+formatfloat('0.00',s));
end;
1
Human_foot
129 / 85 / 31
Регистрация: 27.06.2018
Сообщений: 220
02.07.2018, 18:24 3
Вместо val можно использовать TryStrToInt
А для неотрицательных TryStrToUInt
Delphi
1
if TryStrToUInt(Edit1.Text, x) then
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2018, 18:24

Определение большей площади из двух фигур – круга и квадрата
Составить программу определения большей площади из двух фигур – круга и квадрата. Вывести на экран...

Составить программу, вычисляющую периметр квадрата по указаному значению его площади.
Составить программу вычесляющую периметр квадрата по указаному значению его площади.

Вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга
вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru