Задание 2.

1. Числовая последовательность задана рекуррентной формулой:

Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.

Результаты вычислений вывести в виде таблицы с заголовком.

2. Схема алгоритма решения задачи:

2. Код программы:

Program Variant_0;

Uses WinCRT;

Var s, k, a1, a2, a, n: Word;

Begin

WriteLn('Лабораторная работа №4-2');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных:');

Write('a1=');

ReadLn(a1);

Write('a2=');

Readln(a2);

Write('n=');

ReadLn(n);

WriteLn;

WriteLn('----------------');

WriteLn(' k a s');

WriteLn('----------------');

s:=a2+a1; {исходная сумма}

For k:=3 To n Do

Begin

a:=a2+a1; {очередное слагаемое}

s:=s+a; {очередная сумма}

a1:=a2;

a2:=a;

WriteLn(k:3, ' ', a:3, ' ', s:3);

End;

WriteLn('----------------');

WriteLn;

End.

2. Компиляция, отладка, тестирование и получение результата:

Задания на лабораторную работу №4

Вариант 1

Задание 1

Задание 2

Задать

Вариант 2

Задание 1

Задание 2

Задать ,

Вариант 3

Задание 1

Задание 2

Задать ,

Вариант 4

Задание 1

Задание 2

Задать ,

Вариант 5

Задание 1

Задание 2

Задать ,

Вариант 6

Задание 1

Задание 2

Задать ,

Вариант 7

Задание 1

Задание 2

Задать ,

Вариант 8

Задание 1

Задание 2

Задать ,

Вариант 9

Задание 1

Задание 2

Задать ,

Вариант 10

Задание 1

Задание 2

Задать ,

Вариант 11

Задание 1

Задание 2

Алгоритм нахождения квадратного корня из положительного числа x

можно представить следующей рекуррентной последовательностью:

y₀ = (x+1)/2

y_i = (y_i-1 + x/y_i-1)

(формула Герона Александрийского).

При заданном x определить n-ое приближение его квадратного корня.

Вариант 12

Задание 1

Задание 2

Алгоритм нахождения квадратного корня из положительного числа x

можно представить следующей рекуррентной последовательностью:

y₀ = x

y_i = y_i-1 + ( x/y_i-1 – y_i-1 )/2

При заданном x определить n-ое приближение его квадратного корня.

Вариант 13

Задание 1

Задание 2

Алгоритм нахождения корня k-ой степени из положительного числа x

можно представить следующей рекуррентной последовательностью:

y₀ = x

y_i = y_i-1 + ( x/y^k-1 _i-1 – y_i-1 )/k

При заданном x определить n-ое приближение его корня k-ой степени.

Вариант 14

Задание 1

Задание 2

Вывести рекуррентное соотношение для вычисления значения следующего выражения:

Вычислить значение этого выражения для заданного n.

Вариант 15

Задание 1

Задание 2

Вывести рекуррентное соотношение для вычисления значения следующего выражения:

Вычислить значение этого выражения для заданного n.

Лабораторная работа № 5

Строки

Тема: Программирование алгоритмов работы со строками.

Цель работы: Освоить основные алгоритмы работы со строками.

Задание на лабораторную работу

1. Получить задание в соответствии с номером своего варианта.

2. Составить схему алгоритма решения задачи.

3. Написать код программы на языке Паскаль в среде Borland Pascal for Windows.

4. Осуществить компиляцию, отладку и тестирование программы.

5. Получить результат.

6. Оформить отчет по лабораторной работе.

Пример оформления работы

1. Ввести с консоли строку символов. Определить количество цифр в этой строке и найти их сумму.

Начальные значения суммы summa и количества count сбрасываем на ноль. Определим длину введенной строки str, используя функцию Length(str). После этого будем рассматривать строку поэлементно: если очередной элемент - это цифра, то добавляем ее в сумму summa и увеличиваем количество цифр count на единицу. Для определения того, является ли очередной элемент строки цифрой, можно использовать операцию вхождения во множество цифр In [0..9] или коды элементов: код нуля – это 48, код единицы – это 49, и так далее. Найденные цифры, их количество и сумму вывести на экран.

2. Схема алгоритма решения задачи:

3. Код программы:

Program Variant_0;

Uses WinCrt;

Var str: String;

s: String[1];

c: Char;

error: Integer;

i, k, n, summa, count: Word;

Begin

WriteLn('Лабораторная работа №5_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

WriteLn('Введите строку символов:');

ReadLn(str);

WriteLn;

n:=Length(str); {определяем длину строки}

summa:=0; {начальные значения суммы и количества цифр - на ноль}

count:=0;

WriteLn('Найденные цифры:');

For i:=1 To n Do {просмотр строки - поиск цифр}

Begin

c:=str[i]; {очередной элемент строки - данное симв типа}

s:=str[i]; {в односимвольной строке s - очередной элемент}