Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
LR3_Paskal.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
920.06 Кб
Скачать

Липецкий государственный технический университет

Заочный факультет ЛГТУ

Кафедра электропривода Лабораторная работа №3

по информатике

Программирование циклических алгоритмов

Вариант № 4

Студент _______________ _Улитин Н.П._

подпись, дата фамилия, инициалы

Группа З-ЭП-15-1

Руководитель

______Доцент_______ _______________ _Суслова С.А.

ученая степень, ученое звание подпись, дата фамилия, инициалы

Липецк 2017

Содержание

Цель работы 3

Общие сведения 3

Вариант задания 1 3

Этапы решения задачи 3

Вариант задания 2 5

Этапы решения задачи 5

Вариант задания 3 9

Этапы решения задачи 9

Вариант задания 4 11

Этапы решения задачи 11

Библиографический список 14

Лабораторная работа №3. Программирование циклических алгоритмов

Цель работы

Закрепить практические навыки работы с системой PascalABC.net, научиться правильно использовать различные операторы циклов; научиться составлять программы решения задач с использованием циклических структур.

Общие сведения

Алгоритм называется циклическим, если он содержит многократное выполнение одних и тех же операторов при различных значениях промежуточных данных. Число повторений этих операторов может быть задано в явной (цикл с известным заранее числом повторений) или неявной (цикл с неизвестным заранее числом повторений) форме.

Вариант задания 1

Вычислить значение функции y. Значение x задать произвольно.

варианта

Значение y

4

Этапы решения задачи

  1. Представим заданное выражение под знаком суммы в виде последовательности вычислительных операций с использованием стандартных функций языка Pascal cos(t*x)/sqr(t).

  2. Составляем блок-схему алгоритма и программу расчета, используя оператор цикла for.. .

program LR3;

var x, y:real; t:integer;

begin

x:=random(300)/100-1.5; {задаём произвольное х от -1.50 до +1.50}

y:=0; {задаём начальное значение суммы}

for t:=1 to 25 do

begin

y:=y+cos(t*x)/sqr(t); {расчет суммы}

end;

y:=17*y; {расчет параметра у}

writeln ('При х = ',x,' y = ', y:0:5); {вывод x и у }

end.

  1. Выполним программу в среде PascalABC.NET.

Вариант задания 2

Написать программу для вычисления значения функции F(x) с использованием операторов: For…; While…do; Repeat…until. Значение x задать произвольно.

варианта

Вид выражения F(x)

4

Этапы решения задачи

  1. Определим переменные, которые будем использовать в программе:

S – сумма ряда, x – произвольная переменная, z – знак слагаемого, t – индекс цикла, одновременно являющийся степенью числителя и знаменателем дроби.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]