Методические указания по проведению лабораторных работ по дисциплине «Информатика»

Скачать 1.12 Mb.

Название	Методические указания по проведению лабораторных работ по дисциплине «Информатика»
страница	5/12
Тип	Методические указания

1 2 3 4 5 6 7 8 9 ... 12

C - Cos x

Составить программу, которая по введенной заглавной букве выводит название столиц мира: Москва, Париж, Лондон, Рим.
Составить программу, которая выводит меню и при вводе буквы вычисляет соответствующую функцию:

A - Abs x

S - Sin x

C - Cos x
Лабораторная работа 7

Тема:		Циклические алгоритмы. Оператор For.
Цель работы:		научиться применять основные операторы (команды) и редактировать программы с циклической структурой; сформировать навыки работы в среде программирования (на примере Turbo Pascal); изучить на практике, как составляются программы с циклической структурой.
Приборы, материалы и инструмент		ПК
Порядок выполнения лабораторной работы	1. Тестирование готовых программ с циклической структурой. 2. Редактирование готовых программ. 3. Составление программ с циклической структурой. 4. Выполнение зачетного задания.

Теоретическая часть

В программах с циклической структурой используются циклы с параметром (for), предусловием (while) и постусловием (repeat), представленные в табл. 2.6.

Таблица 2.6

Операторы, использующиеся в программах с циклической структурой
Ход выполнения работы

1. Тестирование готовых программ с циклической структурой

1.1. Запустите программу Turbo Pascal.

1.2. Рассмотрите готовые программы вычисления значения выражения у = ((...(202 +192)2 + 182)2 +... + 12)2, в которых используются различные операторы цикла.

1.3. Вызовите программу с использованием цикла с параметром For, выполнив команды F3, Enter, а затем в предложенном списке программ выберите файл Example_6.pas и нажмите Enter (рис. 2.20). В данном случае используется цикл с параметром, изменяющимся от 20 до 1 (т.е. шаг изменения параметра равен 1). Обозначения: у — очередное значение квадрата числа; п — параметр цикла.

1.4. Запустите программу на выполнение (на экране появится сообщение: Значение выражения равно 1923352100).

1.5. Откройте файл Example_6.1.pas с использованием цикла с предусловием While (рис. 2.21).

1.6. Запустите на выполнение программу и сравните результаты.

1.7. Рассмотрите третий вариант вычисления значения выражения с использованием оператора цикла с постусловием, представленный на рис. 2.22 (Example_6.2.pas).
Рис. 2.20. Программа вычисления значения функции с использованием цикла с параметром
Рис. 2.21. Программа вычисления значения функции с использованием цикла с предусловием
Рис. 2.22. Программа вычисления значения функции с использованием цикла с постусловием

1.8. Запустите программу на выполнение и сравните результаты.

Рис. 2.23. Программа Example_7.pas
2. Редактирование готовых программ.

2.1. Рассмотрите пример программы Example_7.pas (рис. 2.23), которая из чисел от 10 до 99 выводит суммы цифр, равных N (0 < N< 18). Обозначения: k — просматриваемое число; р1 — первая цифра числа k, р2 — вторая цифра числа k; s — сумма цифр данного числа k. Число k будем выписывать только в том случае, когда сумма р1 и р2 будет равна s.

2.2. Запустите программу на выполнение и введите число п (0 < N< 18).

2.3. Выполните задание № 1 и покажите преподавателю результаты работы.

Задание № 1

Измените программу Example_7.pas, используя циклы с предусловием и постусловием.

Алгоритм Евклида — это алгоритм нахождения наибольшего общего делителя (НОД) двух целых неотрицательных чисел.

Алгоритм Евклида нахождения НОД основан на следующих свойствах этой величины. Пусть х и у одновременно целые неотрицательные числа и пусть х > у, тогда если у = 0, то НОД(x, у) = х, а если у <>0, то для чисел х, у и r, где r — остаток от деления х на у, выполняется равенство НОД(х, у) = НОД(y, r).

Пусть например х = 48, а у = 18. Найдем их наибольший общий делитель (табл. 2.7).

Таблица 2.7

Нахождение НОД двух целых неотрицательных чисел 48 и 18

X	У	Условие	Результат
48	18	-	-
48 mod 8 = 12	18	х>у	НОД (48, 18) = НОД(12, 18)
12	18 mod 12 = 6	х<у	НОД(12, 18) = НОД(12, 6)
12 mod 6 = 0	6	х> у	НОД(12, 6) = НОД(0, 6)
0	6	х = 0	НОД(0, 6) = 6

Таким образом, НОД(48, 18) = 6.

Рассмотрите два способа нахождения НОД двух неотрицательных чисел (табл. 2.8), вызвав соответствующие программы.

Таблица 2.8

Примеры программ нахождения НОД двух целых неотрицательных чисел с использованием цикла Repeat

2.4 Выполните задание № 2 и покажите преподавателю результаты работы.
Задание № 2

Внесите изменения в программы Example_8.pas и Example_9.pas, используя циклы с предусловием и параметром.

3. Составление программ с циклической структурой. Выполните задания № 3—6.

Задание № 3

Составьте программу вычисления суммы кубов чисел от 25 до 125 с применением оператора цикла с параметром.

Задание № 4

Составьте программу вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представьте в виде таблицы, первый столбец которой включает в себя значения аргумента, второй — соответствующие значения функции.

Задание № 5

Составьте программу нахождения НОД трех чисел.

Примечание: НОД (а, b, с) - НОД(НОД(а, b), с).

Задание № 6

Составьте программу нахождения наименьшего общего кратного

(НОК) чисел a и b, если НОК(a, b)=a·b:НОД(a, b)

4. Выполнение зачетного задания. Выполните зачетное задание и предъявите преподавателю результат работы.

1. Дана программа подсчета количества цифр целого числа:
Измените программу, чтобы она находила:

первую цифру числа;
меньшую цифру числа;
разность цифр числа.

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

Лабораторная работа 8

Тема:		Программирование и реализация циклических алгоритмов.
Цель работы:		научиться применять основные операторы (команды) и редактировать программы с циклической структурой; сформировать навыки работы в среде программирования (на примере Turbo Pascal); изучить на практике, как составляются программы с циклической структурой.
Приборы, материалы и инструмент		ПК
Порядок выполнения лабораторной работы	1. Составление программ с циклической структурой. 2. Выполнение зачетного задания.

Теоретическая часть
ЦИКЛЫ

операторы:

Оператор	Назначение	Синтаксис
For	Цикл с параметром	For <перем>:=<начальное знач> to <кон.знач> do <оператор>; Значение переменной изменяется от начального значения к конечному с шагом 1. For <перем>:=<нач. знач> downto <конеч. знач> do <оператор>; Значение переменной изменяется от начального значения к конечному с шагом -1
While	Цикл с предусловием	While <условие> do <оператор>; Цикл выполняется, пока условие истинно.
Repeat Until	Цикл с постусловием	Repeat <Операторы>; Until <условие>; Цикл выполняется, пока условие ложно.

Пример 1.

Вывести квадраты первых десяти натуральных чисел.
Решение:

Program pr1;

Var i, x: integer;

begin

for i:=1 to 10 do begin {перебираем натуральные числа от 1 до 10}

x:=sqr(i); {возводим очередное число в квадрат}

write(x, ' '); {выводим полученное значение}

end;

readln

end.

Результат

1 4 9 16 25 36 49 64 81 100
Пример 2.

Найти сумму 1 + 1/3 + 1/5 +...(N слагаемых).

Решение:

Program pr2;

Var I, N: integer;

S: real;

begin

Write('N='); Readln(N); {вводим количество слагаемых}

S:=0; {обнуляем сумму}

For I:=1 to N do {выполняем цикл N раз, добавляя к сумме по од ному слагаемому}

S:=S+1/(2*I-1);

Writeln('S=',S:5:2); {выводим значение суммы с двумя десятичными знаками}

Readln

end.

Результат:

N=4

S= 1.68

Пример 3.

Дано натуральное число n. Найти сумму S=1+2/3+3/7... (n слагаемых)

Решение:

Program pr3;

var i,b,n:integer;

s:real;

begin

write('Введите n ');

readln(n);

s:=1;

b:=3;

for i:=2 to n do

begin

s:=s+ i/b;

b:=b+4;

end;

writeln('сумма=',s:4:2);

readln;

end.

Результат:

Введите n 5

сумма=2.79
Пример 4.

Дано натуральное число n. Вычислить 3¹+3²+…...+3ⁿ

Решение:

program pr4;

var i,n:integer;

s:real;

begin

write('введите n ');

readln(n);

s:=0;

for i:=1 to n do

s:=s+ exp(i*ln(3));

writeln('сумма=',s:4:0);

readln;

end.

Результат:

введите n 5

сумма= 363
Пример 5.

Найти сумму ряда: S = x - x² /4 + x³/9 - x⁴/16... (n слагаемых).

Решение:

Program Pr5;

Var i, n, z, х : integer;

p, s: real;

begin

writeln ('введите n'); readln ( n );

writeln('введите x'); readln( x );

z:=1; p:=x; s:=0;

for i:=1 to n do begin

s:= s + z*p/sqr(i); p:=p*x; z:=-z

end;

writeln ('S=', S :6:2);

readln

end.
Пример 6.

Вычислить произведение:

(1 + sin2 )*(2 + sin3 )*... (n сомножителей).

Решение:

Рrogram Pr6;

Var n, i: integer;

p: real;

begin

write('n='); readln(n); p:=1;

for i:=1 to n do

p:=p* (i + sin(i+1));

writeln('p=', p:6:3);

readln

end.

Результат:

n=5

p=131.645
Пример 7.

Задана арифметическая прогрессия -21; - 16;… Определить номер первого положительного члена прогрессии.

a – очередной член прогрессии, n – его порядковый номер

Решение:

Program Pr7;

var

a, n: integer;

begin

a:= -21; n:=1; {задаем начальные значения}

while a<=0 do begin {пока очередной член прогрессии меньше либо ра

a:=a+5; n:=n+1; равен 0, вычисляем следующий член

прогрессии и end; и его порядковый номер}

writeln(‘n=’, n); {выводим номер 1-го положительного члена

прогрессии}

readln;

end.

Результат:

n=6
Пример 8.

Протабулировать функцию y:=sin(x)*x интервале [-/2,/2] с шагом /10.

Решение:

Program pr8;

Var x, y: real;

begin

x:=-pi/2;

while x<=pi/2 do

begin

y:=sin(x)*x;

writeln('x=',x:8:2,' y=',y:8:2);

x:=x+pi/10

end;

end.
Пример 9.

Вычислить сумму:

S =cos(1+x)+cos²(1+x)+cos³(1+x)+...+cosⁿ(1+x) (n слагаемых).

Решение:

Рrogram Pr9;

Var n, i: integer;

s,x,t: real;

begin

write(' n='); readln(n);

write(' x='); readln(x);

s:=0; t:=cos(1+x);

for i:=1 to n do begin

s:=s+t;

t:=t*cos(1+x);

end;

writeln('s=', s:4:2)

end.
Пример 10.

Подсчитать количество двузначных чисел, у которых сумма цифр нечетна.

1 2 3 4 5 6 7 8 9 ... 12

	Е. П. Пегова Методические указания к выполнению лабораторных работ по дисциплине Методические указания к выполнению лабораторных работ по дисциплине информатика для студентов I курса специальности 080507 IV курса...		Методические указания для выполнения лабораторных работ по дисциплине «Информатика» Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
	Егорова А. А. Романчева Н. И., канд техн наук, доцент Пособие к выполнению... Пособие к выполнению лабораторных работ по дисциплине "Информатика", часть IV. М.: Мгту га, 2001. 44 с		Методические указания для обучающихся по проведению практических... «Электромонтер по ремонту и обслуживанию электрооборудования в сельскохозяйственном производстве»
	Методические указания к выполнению практических и лабораторных работы... Методические указания к выполнению практических работ обучающимися по дисциплине оп. 05		Методические указания по выполнению лабораторных работ по дисциплине «Сметное дело» ...
	Методические указания по проведению лабораторно практических работ... «Технология создания и преобразования информационных объектов», «Телекоммуникационные технологии». Основная часть работ служит элементом...		Методические указания по изучению раздела «субд ms access» ивыполнению... Информационные технологии на транспорте: Методические указания по изучению раздела «субд ms access» и выполнению лабораторных работ....
	Методические указания по выполнению лабораторных работ по дисциплине «Физика» Монтаж, наладка и эксплуатация электрооборудования промышленных и гражданских зданий		Методические указания к выполнению практических работ по дисциплине «Информатика» Государственное бюджетное профессиональное образовательное учреждение Республики Крым

Методические указания по проведению лабораторных работ по дисциплине «Информатика»

C - Cos x

Похожие: