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

Turbo Pascal

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

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

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

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

Дано натурально число. Определить, сколько в нем встречаются минимальная цифра (например, для числа 102 200 ответ равен 3 для числа 40 330 - 2) - Turbo Pascal
Дано натурально число. Определить, сколько в нем встречаются минимальная цифра (например, для числа 102 200 ответ равен 3 для числа 40 330...

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

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

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

Дано действительные числа а1 ... а20. - Turbo Pascal
Дано действительные числа а1 ... а20. Все числа различны. Поменять местами наибольший и последний элемент последовательности. Инициализация...

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

2
Kam_1995
32 / 32 / 9
Регистрация: 23.03.2013
Сообщений: 172
06.10.2013, 17:52 #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
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Дано два натуральных числа. - Turbo Pascal
Дано два натуральных числа.Верно ли, что в записи этих чисел используются все 10 цифр?

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

Дано число х. Напечатать в порядке возрастания числа x, 1+|x| и (1+х2) - Turbo Pascal
Дано число х. Напечатать в порядке возрастания числа x, 1+|x| и (1+х2) (используя if then else) Вот набросок program pr2nomer8; ...

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


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

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

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