Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Vadim050596
1 / 1 / 0
Регистрация: 03.10.2013
Сообщений: 34
#1

Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях - Turbo Pascal

06.10.2013, 18:48. Просмотров 703. Ответов 1
Метки нет (Все метки)

Даны два числа.Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 18:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях (Turbo Pascal):

Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях - Turbo Pascal
Даны два числа.Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных...

Если оба числа отрицательны то меняем из знак и находим сумму. - Turbo Pascal
Вводятся два числа. Если оба отрицательны то меняем из знак и находим сумму. Если два положительны то также. А если одно положительное, а...

Вычислить произведение чисел, если они оба нечетные - Turbo Pascal
Даны два вещественных числа. Вычислить их произведение, если они оба нечетные, в противном случае увеличить каждое на 2.

Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму - Turbo Pascal
Даны числа X и Y отличные от нуля. Найти произведение этих чисел,если они имеют одинаковый знак,иначе определить их сумму.

Даны два круга, расположенных внутри прямоугольника. Найти координаты точек пересечения этих кругов, если они имеются. - Turbo Pascal
Окружности Даны два круга, расположенных внутри прямоугольника. Найти координаты точек пересечения этих кругов, если они имеются. ...

Если хотя бы одно из них равно нулю с погрешностью 0,01, то вычислить сумму этих чисел - Turbo Pascal
Даны три числа: a, b, c. Если хотя бы одно из них равно нулю с погрешностью 0,01, то вычислить сумму этих чисел, в противном случае - их...

1
Sharkboy
8 / 11 / 5
Регистрация: 30.09.2013
Сообщений: 88
06.10.2013, 21:38 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program abc;
var a,b,c,d,e,f:real;
begin
writeln('Vvedite 1 4islo');
readln(a);
writeln('Vvedite 2 4islo');
readln(b);
if (a>0) and (b>0) then
begin
f:=a+b;
c:=sqrt(f);
writeln('Koren iz summi raven',c:0:2);
readln;
end;
if (a>0) and (b<0) then
begin
d:=sqr(a+b);
writeln('summa kvadratov ravna',d:0:2);
readln;
end
else
begin
e:=a-b;
writeln('raznost ravna',e:0:2);
readln;
end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 21:38
Привет! Вот еще темы с ответами:

Вывести первое число, если оно меньше второго, и оба числа, если это не так - Turbo Pascal
Даны два действительных числа. Вывести первое число, если оно меньше второго, и оба числа, если это не так. Помогите, пожалуйста, а то...

Вывести первое число, если оно больше второго, и оба числа, если это не так - Turbo Pascal
Здравствуйте всем, я начинающий программист... :) Помогите, пожалуйста, кто сможет, решаю контрольную работу по турбо паскалю (заодно...

Вывести первое число, если оно вдвоё больше второго, и оба числа, если это не так - Turbo Pascal
помогите пожалуйста, я в этих структурах плохо шарю а решить надо: Даны два действительных числа разработать программу которая выводит...

Если отрицательно только одно из чисел, то оба значения увеличить на 0,5 - Turbo Pascal
1) Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем; - если отрицательно только одно...


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

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

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