Задание по теме Операторы цикла. 3 часть. "Операторы цикла"

• Название: "Операторы цикла"
• Анкор: Задание по теме Операторы цикла
• Дата: 16.12.2021
• Размер: 71.96 Kb.
• Имя файла: 3 часть .docx
• Тип: Отчет; #305660

Министерство образования и науки Российской Федерации

Пермский Национальный Исследовательский Политехнический Университет

Кафедра Общей физики

Отчёт по лабораторной работе:

«Задание по теме "Операторы цикла"

Выполнил:

Вариант 17

Проверил преподаватель:

Банников Руслан Юрьевич

Пермь, 2016.

Постановка задачи.

Написать программу, которая реализует генератор чисел Пифагора , , ( ). В основу положить формулы: , , (где , – натуральные, , , – заданное число). Результат вывести на экран в виде таблицы из пяти столбцов: , , , , .Для реализации алгоритма можно использовать вещественные типы переменных.

Алгоритм решения.

Перечень переменных. Для реализации алгоритма необходимы переменные: k,n,m,.

Real: диапазон значений: ; объём занимаемой оперативной памяти – 6 бит;

Single: диапазон значений: ; объём занимаемой оперативной памяти – 4 бит;

Double: диапазон значений: ; объём занимаемой оперативной памяти – 8 бит;

Extended: диапазон значений: ; объём занимаемой оперативной памяти – 10 бит.

Shortint: Диапазон допустимых значений -128…127; Отводимая память, в байтах 1;

Integer: Диапазон допустимых значений -32 768…32 767; Отводимая память, в байтах 2;

Longint: Диапазон допустимых значений -2 147 483 648…2 147 483 647; Отводимая память, в байтах 4;

Byte: Диапазон допустимых значений 0…255; Отводимая память, в байтах 1;

word: Диапазон допустимых значений 0…65 535; Отводимая память, в байтах 2;

Для того что бы минимизировать использование оперативной памяти программой, для двух переменных воспользуемся типом Byte.

Затраты оперативной памяти.

Для созданной программы необходимо 9 бит оперативной памяти.

Входные данные.

Для реализации алгоритма программы необходимо ввести одну переменных (являющимися входными данными).

Переменная k: переменная k>3 .

Выходные данные.

Результатом программы является переменная m n a b c. Результатом программы может быть любое число .

Программа.

Var m,n:integer; k:byte;

begin

writeln('ведите к');

readln(k);

if k<=2 then write('1

else

writeln(' m n a b c');

for m:=2 to k-1 do

for n:=2 to k-1 do

begin

if (b>0) and (c>0) then writeln(m:3,' ',n:3,' ', sqr(m)-sqr(n):3 ,' ', 2*m*n:3,' ', sqr(m)+sqr(n);:3);

end;

end.

Результат работы.

Тест 1: k=4



Тест 2: k=2



Тест 3: k=5

Постановка задачи.

Написать программу, которая по заданным натуральным значениям и вычисляет результат выражения:

.

Алгоритм решения.

Перечень переменных.

Для реализации алгоритма необходимы переменные: a,n.

Для реализации алгоритма можно использовать вещественные типы переменных.

Real: диапазон значений: ; объём занимаемой оперативной памяти – 6 бит;

Single: диапазон значений: ; объём занимаемой оперативной памяти – 4 бит;

Double: диапазон значений: ; объём занимаемой оперативной памяти – 8 бит;

Extended: диапазон значений: ; объём занимаемой оперативной памяти – 10 бит.

Shotint: Диапазон допустимых значений -128…127; Отводимая память, в байтах 1;

Integer: Диапазон допустимых значений -32 768…32 767; Отводимая память, в байтах 2;

Longint: Диапазон допустимых значений -2 147 483 648…2 147 483 647; Отводимая память, в байтах 4;

Byte: Диапазон допустимых значений 0…255; Отводимая память, в байтах 1;

word: Диапазон допустимых значений 0…65 535; Отводимая память, в байтах 2;

Для того что бы минимизировать использование оперативной памяти программой, для двух переменных воспользуемся типом Single и для двух byte

Затраты оперативной памяти.

Для созданной программы необходимо 10 бит оперативной памяти.

Входные данные.

Для реализации алгоритма программы необходимо ввести две переменных (являющимися входными данными).

Переменная n: переменная n натуральное число

Переменная a: переменная a не имеет ограниченней

Выходные данные.

Результатом программы является переменная g. Результатом программы может быть только положительное число.

Программа.

var n,j:byte; g,a:single;

begin

write('ведите н=');

readln(n);

write('ведите а=');

readln(a);

for j:=1 to n do

begin

g:=g+1/(power(a,2*j-2));

end;

write('=',g);

end.

Результат работы.

Тест 1: n=2 a=10 g=1.01



Тест 2: n=4 a=-5 g=1.041664



Тест 3: n=2 a=10 g=1.01