Создан заказ №1393157
10 ноября 2016
1 Определите значение переменной S после выполнения следующих операторов поясните ответ
Как заказчик описал требования к работе:
Просьба сделать пояснения к командам Паскаля т.к. преподаватель спрашивает их значение.
Фрагмент выполненной работы:
1. Определите значение переменной S после выполнения следующих операторов, поясните ответ:
s:=0; i:=0;
While i<5 do i:=i+1; s:=s+1/ i;
Решение.
Заполним таблицу значений переменных:
i
s i<5
0 0 да
1 0+1/1=1
да
2 1+1/2=1,5
да
3 1,5+1/3=1,83
да
4 1,83+1/4=2,08
да
5 2,08+1/5=3,3
нет
Пояснения:
s:=0; {Переменной s присваивается значение 0}
i:=0; {Переменной i присваивается значение 0}
While i<5 do i:=i+1; s:=s+1/ i; {Цикл: пока i<5, очередное значение переменной i увеличивается на 1, а очередное значение переменной s увеличивается на 1/i}. (работа была выполнена специалистами Автор 24)
Таким образом, в данном фрагменте вычисляется значение выражения 1+1/2+1/3+1/4+1/5.
Решение:
s = 3,3.
2. Напишите программу (на алгоритмическом языке Паскаль) для выполнения следующих действий: меньшее из двух заданных неравных действительных чисел заменить половиной их суммы, а большее – их удвоенным произведением. Составить блок-схему алгоритма.
Решение.
var
a,b,c,d:real;
{описываем переменные a,b,c,d – действительные числа}
begin
{начало}
write (‘введите два различных числа’);
{запрашиваем два числа}
readln (a,b);
{считываем с клавиатуры два числа}
c:=(a+b)/2; d:=2*a*b;
{вычисляем полусумму чисел a и b и записываем ее в переменную с; удвоенное произведение a и b записываем в переменную d}
if a<b then begin a:=c; b:=d; end
{если a<b, то значение переменной a заменяем на c, значение переменной b заменяем на d}
else begin b:=c; a:=d;end;
{в противном случае значение переменной b заменяем на c, значение переменной a заменяем на d}
write (a,' ',b);
{выводим значения a, b}
end.
{конец}
Блок-схема:
ввод a, b
начало
a<b
a:=c;
b:= d
b:=c;
a:=d
вывод a, b
конец
c:=(a+b)/2;
d:=2*a*b
да
нет
3...Посмотреть предложения по расчету стоимости
Заказчик
заплатил
заплатил
20 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
11 ноября 2016
Заказ завершен, заказчик получил финальный файл с работой
![](https://author24shop.ru/assets/img/avatars/size176x176/13/227341.jpg?1675766229)
5
![скачать](/assets/img/lenta2020/download_icon.png)
1 Определите значение переменной S после выполнения следующих операторов поясните ответ.jpg
2019-09-19 10:14
Последний отзыв студента о бирже Автор24
Общая оценка
5
![](/assets/images/emoji/star-eyes.png)
Положительно
Благодарю автора за своевременно сделанную работу и за разумные деньги. Преподаватель оценил на 4 и 4.Однозначно рекомендую автора !!!