Курсовая работа: Алгоритмизация и программирование на языке Паскаль

Writeln (' ЦИКЛСЗАДАННЫМЧИСЛОМПОВТОРЕНИЙ');

Writeln ;

Writeln (' Лабораторная работа ь 5 (задания 2), 8-ой вариант');

Writeln (' Дано:');

Writeln (' Дана последовательность s,');

Writeln ;

Writeln (' x^2 x^4 x^6 x^n');

Writeln (' s = 1 - --- + --- - --- + ... ---');

Writeln (' 2! 4! 6! n!');

Writeln ;

Writeln (' Значение x и n надо ввести с клавиатуры.');

Writeln (' Где: x - не известная x');

Writeln (' n - кол-во решений (дробей)');

Writeln ;

Writeln (' *для примера x,n большими лучше не вводить ');

Writeln (' ограничение и переполнение не учитывается ');

Writeln (' т.к. это выходит за рамки данного задания* ');

Writeln ;

textcolor (LightGreen);

Write (' Введите занчение х нажмите Enter: ');

Read (x);

Write (' Введите значенеи n нажмите Enter: ');

Read (n);

Writeln ;

Writeln ('Выберите вариант вывода значений:');

Writeln (' 1 - вывод итогового значения s');

Writeln (' 2 - вывод значения s, для каждого решения');

Writeln ('(нажмите соотв. цифру на клавиатуре)');

{Проверяем выбораный режим 49="1" vr=10, 50="2" vr=1}