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

Скачать 1.12 Mb.

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

rykovodstvo.ru > Руководство эксплуатация > Методические указания

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

Похожие:

	Методические указания по проведению лабораторных работ по дисциплине «Информатика» Методические указания по проведению лабораторных работ предназначены для студентов гоапоу «Липецкий металлургический колледж» технических...		Методические указания к проведению лабораторных работ рпк «Политехник» Спецкурс по эксплуатации систем электроснабжения: Методические указания к проведению лабораторных работ / Сост. С. В. Хавроничев;...
	Методические указания по выполнению практических работ ен. 02 Информатика Методические указания разработаны на основе рабочей программы по учебной дисциплине ен. 02 «Информатика» по специальности 270101...		Методические указания по выполнению лабораторных работ по дисциплине... Методические указания по выполнению лабораторных работ рассмотрены и утверждены на заседании кафедры «Безопасность труда и инженерная...
	Методические указания по проведению лабораторных/практических работ по учебной дисциплине ...		Методические указания по проведению лабораторных работ по учебной дисциплине Физика Краевое государственное автономное профессиональное образовательное учреждение «Пермский авиационный техникум им. А. Д. Швецова»
	Методические указания по проведению лабораторных работ Методические указания рассмотрены и одобрены на заседании пцк по укрупненной группе 140000 Электроснабжение (нпо и спо)		Методические указания по выполнению лабораторных работ по дисциплине «Сметное дело» ...
	Методические указания для студентов по выполнению лабораторных и... Методические указания для студентов по выполнению лабораторных и практических работ		Методические указания по выполнению лабораторных работ Издательство Инженерная геодезия. Методические указания по выполнению лабораторных работ. Составители: Шешукова Л. В., Тютина Н. М., Клевцов Е....
	Методические указания по дисциплине пд. 02 Химия для выполнения лабораторных... Методические указания и задания к лабораторно-практическим занятиям для студентов специальности 35. 02. 05 Агрономия по дисциплине...		Методические указания по выполнению практических и лабораторных работ... Методические указания предназначены для обучающихся по специальностям технического профиля 21. 02. 08 Прикладная геодезия
	Методические указания по выполнению самостоятельных работ студентами по дисциплине «Информатика» Методические указания состоят из введения, перечня вопросов и заданий для самостоятельной работы обучающихся, которые снабжены списком...		Методические указания по проведению лабораторно практических работ... «Технология создания и преобразования информационных объектов», «Телекоммуникационные технологии». Основная часть работ служит элементом...
	Республики Башкортостан Государственное бюджетное профессиональное... Номинация «Учебно-методические разработки (практикум, методические указания по проведению лабораторных работ, методические рекомендации...		Методические указания к проведению практических занятий по дисциплине «Менеджмент» Методические указания к проведению практических занятий по дисциплине «Менеджмент» / С. Б. Олифер, Н. В. Челохьян, А. В. Малых; Рост...

Руководство, инструкция по применению