0 / 0 / 0
Регистрация: 20.06.2012
Сообщений: 7
1

Даны 3 числа, возвести в квадрат те из них, которые положительны

10.10.2013, 07:23. Показов 2969. Ответов 1
Метки нет (Все метки)

Мы все реализовываем в программе Embarcadero. Язык Делфи. Я понятия не имею как и что делать. Выручайте

Даны 3 числа, возвести в Квадрат те из них которые положительные.

Как то все надо к каким то графич.объектам это присвоить.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2013, 07:23
Ответы с готовыми решениями:

Даны 3 числа, возвести в Квадрат те из них которые положительные
Даны 3 числа, возвести в Квадрат те из них которые положительные. (задачу решать только в QBASIK )....

Даны два числа. Возвести в квадрат те из них, значения которых чётны
3)Даны два числа. Возвести в квадрат те из них, значения которых чётны. Составить программу и ШАЯ....

Даны 3 действительных числа.Возвести в квадрат те из них, значения которых неотрицательны
Даны 3 действительных числа.Возвести в квадрат те из них, значения которых неотрицательны

Даны три числа. Возвести в квадрат те из них, значение которых отрицательны
надо написать прогу ну у меня с оператор IF - THEN else не лады :( так вот задание 1)Даны три...

1
Эксперт Pascal/Delphi
4745 / 2722 / 843
Регистрация: 04.10.2012
Сообщений: 9,933
10.10.2013, 10:27 2
Лучший ответ Сообщение было отмечено Nikintosh как решение

Решение

Nikintosh,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses ..... QDialogs; //подключаем  этот модуль
......................
procedure TForm1.FormCreate(Sender: TObject);
var
x, y,z:Integer;
begin
//вызываем диалог ввода числовых значений
InputQuery('Ввод числа', 'Введите 1-е число', x);
InputQuery('Ввод числа', 'Введите 2-е число', y);
InputQuery('Ввод числа', 'Введите 3-е число', z);
if x>0 then x :=x*x;
if y>0 then y :=y*y;
if z>0 then z :=z*z;
ShowMessage(IntToStr(x)+', '+IntToStr(y)+', '+IntToStr(z));
end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2013, 10:27

Даны три действительных числа. Возвести в квадрат те из них, значения которых не отрицательны
Даны три действительных числа. Возвести в квадрат те из них, значения которых не отрицательны.

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны
1. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны
Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны. Я...


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

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

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