Я готуюсь до курсу інформатики. Алгоритмізація та програмування

(1 + 0.1)(2 + 0.2)...(9 + 0.9)

Розв’язання: У даному випадку кількість повторів буде дорівнювати 9, тобто програма буде мати вигляд:

Program Example_189_2;

Uses crt; Var I:word; {I - параметр циклу}

Rez:real; {Rez - результат обчислень}

Begin

Clrscr;

Rez:=1; {Початкове значення дорівнює 1, тому що результат є накопиченням добутку}

For I:=1 to 9 do Rez:=Rez*(I+0.1*I);

Writeln(‘Rez= ‘,Rez:8:2);

Readkey;

End.

ЗАДАЧА № 190

Умова задачі: Дано ціле п. Визначити п!

Розв’язання: Відомо, що n! (вимовляється як n-факторіал) - це добуток всіх натуральних чисел від 1 до п. Тому програма має вигляд:

Program Example_190_1;

Uses crt;

Var I,n:word; {I - параметр циклу}

Factorial:longint; {Factorial - результат обчислень}

Begin

Clrscr;

Factorial:=1;

Write(‘Введіть значення n: ‘);

Readln(n);

For I:=1 to n do Factorial:=Factorial*I;

Writeln(‘Factorial= ‘, Factorial:8:2); Readkey;

End.

ЗАДАЧА № 191

Умова задачі: За данимнатуральним значенням змінної п обчислити:

Розв’язання: Для розв’язання цієї задачі необхідно виконати обчислення, починаючи з самого вкладеного кореня. Кожний наступний крок обчислюється таким чином: до попереднього результату додається двійка і з отриманої суми береться квадратний корінь.

Програма, що виконує описані обчислення, наведена нижче:

Program Example_191_6;

Uses crt;

Var I,n:word;{I - параметр циклу}

Rez:real;{Rez - результат обчислень}

Begin

Clrscr;

Rez:=0; {Початкове значення дорівнює 0,току що результат є накопиченням суми}

Write(‘Введіть значення n: ‘);

Readln(n);

For I:=1 to n do

Begin Rez:=sqrt(Rez+2);

End;

Writeln(‘Rez= ‘,Rez:8:2);