Файл: Лабораторная работа Создание линейного алгоритма 5 Лабораторная работа Решение задач с линейным алгоритмом 7.docx

4. 
   Сгенерировать 2 действительных числа (a,b) в диапазоне от – 40 до + 40. Вычислить следующие выражения:
   

• 
  a+b
  
• 
  a/b
  
• 
  b/a
  
• 
  a^b
  
• 
  (a+b)²
  

5. 
   Сгенерировать случайное число в диапазоне от a до b и вывести его на экран. Границы диапазона вводятся пользователем, причем a

6. 
   Написать программу, которая проверяет знание таблицы умножения и выводит оценку по 5-ти балльной системе. Должно быть предложено 5 примеров для вычисления произведения однозначных чисел (использовать генератор случайных чисел).
   

---

Лабораторная работа № 9. Использование цикла с параметром

Решить задачу: Вычислить сумму первых 10-ти натуральных чисел
Блок-схема

Листинг программы
PROGRAM SUMMA;

USES CRT;

VAR S,I:INTEGER;

BEGIN

CLRSCR;

S:=0; I:=0;

FOR I:=1 TO 10 DO {цикл с параметром, перебирает все значения I от 1 до 10 с шагом 1}

S:=S+I; {циклическая часть, повторяется столько раз, сколько значений I перебирается}

WRITELN(‘S=’,S:5);

READLN;

END.

Примечание. Если в циклической части выполняется более 1 оператора, то ее надо поместить в операторные скобки BEGIN и END
Задание для самостоятельной работы:

1. 
   Измените программу, чтобы вычислялась сумма целых чисел от 20 до 50 (с шагом 1). (Сверьте ответ - 1085)
   
2. 
   Измените программу, чтобы вычислялась сумма целых нечетных чисел от 30 до 60.
   

(Сверьте ответ - 675)
Задачи на использование цикла с параметром

1. 
   Написать программу, которая вычисляет сумму 5 чисел, введенных с клавиатуры
   
2. 
   Написать программу, которая выводить квадраты четных 10 натуральных чисел
   

2	4
4	16
6	36
8	64
10	100
12	144
14	196
16	256
18	324
20	400

Лабораторная работа № 10. Использование цикла с предусловием

Задача :

---

Вычислить значения функции и составить таблицу значений для х от -1 до 8 с шагом 1.5.
Результат:



Листинг программы:
PROGRAM CYCL_WHILE;

USES CRT;

VAR X,Y:REAL;

BEGIN

CLRSCR;

WRITELN(' X | Y ');

X:=-1; {начальное значение х}

WHILE X<>9.5 DO {проверка условия}

BEGIN

Y:=2*SQR(X)+5*X-2; {вычисление значения функции}

WRITELN(X:6:2,' | ',Y:6:2); {вывод результатов}

X:=X+1.5; {изменение шага}

END;

READLN

END.
Задание для самостоятельной работы:

1. 
   Составить блок-схему по данной задаче.
   
2. 
   Изменить программу: шаг изменения аргумента х = 2.
   
3. 
   Протабулировать функцию (вычислить значения) . Значения x в диапазоне от 2.4 до 12 с шагом 0.8. Вывести значения в виде таблицы:
   

Лабораторная работа № 10. Использование цикла с предусловием

Задача 1: Вычислить значения функции и составить таблицу значений для х от 2 до 5 с шагом 0.5.
Результат:



Листинг программы:
PROGRAM CYCL_REPEAT;

USES CRT;

VAR X,Y:REAL;

BEGIN

CLRSCR;

WRITELN(' X | Y ');

WRITELN(' ----------------- ');

X:=2; {нижняя граница}

REPEAT

Y:=SQR(X)+2*X+5; {вычисление значения функции}

WRITELN(X:6:2,' | ',Y:6:2); {вывод значений}

X:=X+0.5; {шаг}

UNTIL X=5.5; {проверка условия остановки цикла}

READLN

END.
Блок схема:

Задание для самостоятельной работы:

1. 
   Изменить программу таким образом, чтобы запрашивалась нижняя и верхняя граница х (шаг 0.5 не изменять).
   
2. 
   Протабулировать функцию (вычислить значения) . Значения x в диапазоне от 2.4 до 12 с шагом 0.8. Вывести значения в виде таблицы:
   

Задача 2: Вывести на экран таблицу

---

квадратов первых десяти натуральных чисел

X	X^2
0	0
1	1
2	4
3	9
4	16
5	25
6	36
7	49
8	64
9	81

Листинг программы
PROGRAM SQUARE;

USES CRT;

VAR S,I:INTEGER;

BEGIN

CLRSCR;

S:=0; I:=0;

WRITELN (' X | X^2 ');

WRITELN('-----------');

REPEAT {начало цикла}

S:=SQR(I);

WRITELN(I:3,' | ',S:3);

I:=I+1;

UNTIL I=10; {условие, при котором останавливается действие цикла}

READLN;

END.
Задание для самостоятельной работы:

1. 
   Измените программу, чтобы выводились квадраты целых нечетных положительных чисел от 20 до 30
   
2. 
   Вводится последовательность N целых чисел. Ввод прекращается, когда пользователь введет значение 0. Вычислить количество введенных чисел, их сумму и среднее значение.
   

---

Лабораторная работа № 11. Решение задач с использованием циклического алгоритма

1. 
   Пользователь вводит любое слово. Необходимо вывести это слово N раз. N также вводится с клавиатуры и должно быть ≥0.
   
2. 
   Написать программу, которая 10 раз выводит на экран имя и фамилию.
   
3. 
   Написать программу, которая вычисляет сумму первых N положительных целых чисел. Количество суммируемых чисел должно вводиться во время работы программы.
   
4. 
   Написать программу, которая вычисляет сумму первых N членов ряда 1+1/2+1/3+1/4+1/5+…. Количество суммируемых чисел задается во время выполнения программы.
   
5. 
   Составить таблицу значений функции при x от -3 до 3 (с шагом 0,5)
   

x	y

6. 
   Написать программу, которая выводит таблицу степеней 2 (от 0 до 10).
   

Таблица степеней двойки
0	1
1	2
2	4
3	8
4	16
5	32
6	64
7	128
8	256
9	512
10	1024

7. 
   Дано натуральное n и действительное x. Вычислить значение:
   
8. 
   Вывести таблицу умножения.
   

Лабораторная работа № 12. Использование цвета

Программы можно оформлять, используя разный цвет для символов. Turbo Pascal поддерживает 16 основных цветов, для обозначения которых используется код цвета или его название на английском языке.
Для применения цвета используется функция TEXTCOLOR(ЦВЕТ), при этом обязательно должна быть подключена библиотека CRT. Цвет устанавливается ДО вывода символов!
Таблица цветов

Код	Название
0	black	черный
1
2	green	зеленый
3
4	red	красный
5
6
7
8
9
10
11
12
13
14
15	white	белый

---