Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Freezy32rus
0 / 0 / 1
Регистрация: 06.10.2013
Сообщений: 32
#1

Дано 2 числа - Turbo Pascal

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

Дано два числа. Вычислить их сумму, разность, площадь, частное, среднее арифметическое и среднее геометрическое.
http://www.cyberforum.ru/turbo-pascal/thread896669.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 17:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано 2 числа (Turbo Pascal):

Дано действительные числа s,t
Дано действительные числа s,t. Получить f(t,-2s,1.17) -f(2.2, t,s-t) f(a,b,c)=...

Дано целое число. Если оно нечетное,о вычислить сумму синуса и косинуса этого числа,в противоположном случае вычислить модуль этого числа
Дано целое число. Если оно нечетное,о вычислить сумму синуса и косинуса этого...

Дано действительные числа s, t. Получить f(2t-s, 3s, 1.7)+f(2.2, t, s+t)
Дано действительные числа s, t. Получить f(2t-s, 3s, 1.7)+f(2.2, t, s+t), где ...

Дано два натуральных числа.
Дано два натуральных числа.Верно ли, что в записи этих чисел используются все...

Дано два натуральных числа n и m
Вычислите в

2
Kam_1995
32 / 32 / 22
Регистрация: 23.03.2013
Сообщений: 175
06.10.2013, 17:52 #2
Лучший ответ Сообщение было отмечено Freezy32rus как решение

Решение

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
uses crt;
var  x,y,s,r,p: integer;
     ch,sa,sg: real;
 
BEGIN
clrscr;
write('Vvedite 1-oe chislo: ');
readln(x);
write('Vvedite 2-oe chislo: ');
readln(y);
s:=x+y;
r:=x-y;
p:=x*y;
ch:=x/y;
sa:=(x+y)/2;
sg:=sqrt(x*y);
writeln('Summa: ',s);
writeln('Raznost: ',r);
writeln('Ploshad: ',p);
writeln('Chastnoye: ',ch:0:2);
writeln('Sredneye arifmeticheskoye: ',sa:0:2);
writeln('Sredneye geometricheskoye: ',sg:0:2);
repeat until keypressed;
END.
0
Freezy32rus
0 / 0 / 1
Регистрация: 06.10.2013
Сообщений: 32
06.10.2013, 18:47  [ТС] #3
Спасибо большое!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 18:47
Привет! Вот еще темы с решениями:

Дано действительные числа а1 ... а20.
Дано действительные числа а1 ... а20. Все числа различны. Поменять местами...

Дано натуральное число n, целые числа a1,.an
Дано натуральное число n, целые числа a1,...an. Найти номер последнего...

Дано число х. Напечатать в порядке возрастания числа x, 1+|x| и (1+х2)
Дано число х. Напечатать в порядке возрастания числа x, 1+|x| и (1+х2) ...

Дано натуральное число n, действительные числа a1...an Вычислить
(*) - В задачах этого параграфа не требуется хранения исходных...


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

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

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