Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 184400
07.11.2011, 15:01
51.74 руб.
07.11.2011, 15:54
0 4 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

задача 3, программа на языке Turbo Pascal



Обсуждение

Неизвестный
07.11.2011, 16:29
общий
это ответ
Здравствуйте, Aleksandrkib!
Ответ на вашу задачу, удачи)

Приложение:
var
i,k:integer;
a,b:real;
begin
a:=0;
b:=1;
for i:=1 to 3 do
a:=a+(sqr(i)+4)/(i*i*i+7);
for k:=1 to 3 do
b:=b*(1/k);
if a<b then writeln('a=',a:5:3): //5 - это сколько отобразить знаков, 3 - сколько знаков из 5 отобразить после запятой
if a>b then writeln('b=',b:5:3);
if a=b then writeln('числа равны');
end.
давно
Aleksandrkib
Посетитель
317729
109
10.11.2011, 10:24
общий
Здравствуйте, kalim! Спасибо за решение!
С задачами такого типа не приходилось сталкиваться.
Набрал программу, она выдает результат b=0,167. То есть здесь одно решение?
Правильно ли я понимаю работу программы?
1. Вычисляются значения а1 и в1 при i=1, k=1;
2. Вычисляются значения а2 и в2 при i=2, k=2 (a2=а1+а2, в2=в1*в2);
3. Вычисляются значения а3 и в3 при i=3, k=3 (а3=а2+а3, в3=в2*в3)
4. Из а3 и в3 определяется минимальное число.
Неизвестный
10.11.2011, 10:44
общий
Адресаты:
Здравствуйте, Aleksandrkib!

Программа работает так:
1) Вычисляется значение а при i=1.
2) Вычисляется значение а при i=2 и суммируется с предыдущим значением (а=а(при i=1)+а(при i=2).
3) Вычисляется значение а при 3=2 и суммируется с предыдущим значением (а=а(при i=2)+а(при i=3).

Аналогично вычисляется b, только не суммируется, а умножается с предыдущим.

Потом проверяется какое число меньше а или b и выводится на экран наименьшее, так же есть условие если эти числа оказались бы равными if a=b then writeln('числа равны')

Удачи)
давно
Aleksandrkib
Посетитель
317729
109
10.11.2011, 10:47
общий
Спасибо Вам за пояснения! Теперь всё понятно.
Форма ответа