с клавиатуры символ X и присваивает его переменной А1, затем считывает второй символ – Y и заносит его в переменную А2. Третий символ – Z соответственно считывается в переменную А3 .

Вывод значений осуществляется вами с помощью процедуры WriteLn в одну строку.

Задача 3

Необходимо ввести и вывести на печать два целых числа и два вещественных числа:

1)5;

2)317;

3)45,399;

4)700 000.

Program Lab2_3; Var

с1, с2 : Integer;

с3, с4 : Real; Begin

WriteLn (‘Введи число 1-е’); ReadLn (с1);

WriteLn (‘Введи число 2-е’); ReadLn (с2);

WriteLn (‘Введи число 3-е’); ReadLn (с3);

WriteLn (‘Введи число 4-е’); ReadLn (с4);

WriteLn (‘РЕЗУЛЬТАТ: ’);

WriteLn (‘Мы ввели 1-е число: ’, c1); WriteLn (‘Мы ввели 2-е число: ’, c2); WriteLn (‘Мы ввели 3-е число: ’, c3); WriteLn (‘Мы ввели 4-е число: ’, c4); End.

После запуска программы на исполнение мы видим на экране монитора: Введи число 1-е

5

Введи число 2-е

317

Введи число 3-е

45.6

Введи число 4-е

500000

Результат:

Мы ввели 1-е число: 5 Мы ввели 2-е число: 317

23

Мы ввели 3-е число: 4.56Е + 01 Мы ввели 4-е число: 7.0Е + 05

Пояснения к решению задачи 3

При вводе значений в переменную целого или вещественного типа процедура ReadLn ожидает последовательности символов, образующих целое или вещественное число со знаком. Любые пробелы, знаки табуляции или признаки конца строки, предшествующие числовой строке, пропускаются.

Ввод значений осуществляется нами в две переменные целого типа с1, с2, объявленные в программе как Integer, и в две переменные вещественного типа с3, с4, объявленные как Real. Процедура ReadLn считывает с клавиатуры числа 5, 317, 45,6 и 500 000 и присваивает их значения соответственно переменным с1, с2, с3, с4.

Вывод значений осуществляется с помощью процедуры WriteLn: каждое число в своей строке. Первое и второе числа выведены в привычном виде, как и были введены.

Третье и четвертое числа выведены в показательной форме. В следующем пункте мы рассмотрим форматированный вывод данных, который позволит вывести вещественные данные в обычном виде.

6.3. Управление выводом данных (форматированный вывод)

Каждый элемент списка оператора вывода может быть снабжен указанием желаемого количества позиций, которое должно быть отведено для размещения его значения при выводе. Это называется форматированием вывода. Желаемая ширина поля (формат вывода) указывается через двоеточие после данного элемента списка.

Если фактически для размещения значения потребуется меньше позиций, то первые слева незанятые позиции поля будут заполнены пробелами. Если же значение элемента не поместится в требуемое поле, то при выводе будет использовано столько позиций, сколько нужно фактически.

Для элементов вещественного типа после ширины поля можно указать, также через двоеточие, еще одно число – количество цифр, которые должны быть выведены после десятичной точки. В этом случае число выводится не в показательной, а в обычной форме.

Если в дробной части десятичного числа цифр больше, чем требуется вывести, то перед выводом автоматически будет выполнено округление. Если же цифр в дробной части меньше, то будут выведены дополнительные нули. Если для дробной части указать нулевое количество позиций, то вещественное число будет выведено в виде целого (табл. 8).

				Таблица 8
	Значения элементов	Операторы вывода		Результат вывода
	списка
	1	2		3
	А = –7,86	WriteLn ('A = ', A : 5	: l)	A = –7.9
	А = –7,86	WriteLn ('A = ', A : 5	: 2)	A = –7.86

24

Рис. 8. Положение курсора на экране монитора

		Окончание табл. 8
1	2	3
Х = 25,014	WriteLn ('x = ', x : 4 : 0)	X = 25
Х = 25,014	WriteLn (x = ', х : 6 : 3)	X = 25.014
В = –7,86	WriteLn ('B = ', В : 0 : 0)	B = –8
D = 5,0	WriteLn (‘Длина = ', d : 0 : 0))см')	Длина = 5 см
R = –123,1234567	WriteLn (‘R = ’, R)	R = –1.2312345670000E + 0002
R = –123,1234567	WriteLn (‘R = ’, R7 : 2)	R = –123.12

7. Управление режимами вывода данных на экран дисплея

В понятие «удобство работы с пользовательским интерфейсом» входят:

–шрифтовое оформление информации, представленной на экране;

–расположение различных частей информации, относительно друг друга;

–цветовое оформление информации, представленной на экране. Шрифт в текстовом режиме устанавливает операционная система. Изме-

нить его нет возможности, но можно менять расположение информации на экране и цветовое оформление.

7.1. Управление положением курсора на экране монитора

Инструкции Write и WriteLn выводят информацию, начиная с той позиции экрана, в которой находится курсор. Положение курсора на экране определяется номером строки и номером позиции в строке, которые можно рассматривать как координаты курсора. В стандартном режиме на экране могут быть отображены до 25 строк текста длиной до 80 символов.

Х – это горизонтальная координата которая меняется от 1 до 80 (определяет номер позиции в строке).

Y – это вертикальная координата, которая меняется от 1 до 25 (определяет номер строки). За начало координат принят левый верхний угол экрана (рис. 8). Левая верхняя точка экрана имеет координаты (1,1), правая нижняя – (80,25). Процедура GoTo (X,Y) позволяет вывести текст с определенной позиции экрана.

Процедура в общем виде выглядит так: GoToXY(координата Х, координата Y), где координата Х, координата У — выражения целого типа, значения которых задают новое положение курсора. К примеру, инструкции

GoToXY(34,13); write('Turbo Pascal');

выводятсообщениепримерновсерединеэкрана, в 34-йстрокес13-йпозиции.

25

7.2. Стандартный модуль CRT. Подключение модулей с помощью Uses. Процедура очистки экрана дисплея ClrScr. Функция ReadKey

Процедуры, управляющие представлением информации на экране в текстовом режиме, собраны в стандартном модуле CRT (Cathod ray tube – электронно-лучевая трубка), который необходимо подключить к программе в разделе подключения модулей Uses.

Процедура ClrScr

ClrScr – сокращение от англ. Clear Screen («очистить экран»). Результатом работы данной процедуры является удаление всех символов с экрана и перемещение каретки в левый верхний угол.

Функция ReadKey

ReadKey в переводе с английского означает «читать клавишу». ReadKey позволяет дождаться нажатия пользователем какой-либо клавиши, после чего определяется код нажатой клавиши. С ее помощью можно организовать паузу в программе, так как программа приостанавливается до нажатия клавиши.

Задача 4

Подключение к программе модуля CRT и очистка экрана:

Рrogram Lab2_4; Uses CRT; Begin

ClrScr;

Writeln (‘Нравится чистый экран?’); ReadKey;

End.

7.3. Процедуры работы с цветом (TextColor,TextBackground)

Влюбой момент времени выполнения программы экран в текстовом режиме имеет две цветовые характеристики:

– текущий цвет выводимого текста;

– текущий фон выводимого текста.

Втабл. 9 мы видим цвета, используемые для вывода информации на экран, и соответствующие им константы модуля CRT.

		Таблица 9
Цвет	Код	Константа модуля CRT
1	2	3
Черный	0	Black
Синий	1	Blue
Зеленый	2	Green
Морской волны	3	Cyan
Красный	4	Red
Фиолетовый	5	Magenta
Коричневый	6	Brown
Светло-серый	7	LightGray

26

		Окончание табл. 9
1	2	3
Темно-серый	8	DarkGray
Светло-синий	9	LightBlue
Светло-зеленый	10	LightGreen
Светлый морской волны	11	LightCyan
Светло-красный	12	LightRed
Светло-фиолетовый	13	LightMagenta
Желтый	14	Yellow
Белый	15	White

Для изменения цвета символов используется процедура TextColor – цвет текста, имеющая следующий вид:

TextColor(< цвет >).

В качестве параметра «цвет» можно использовать код цвета (0 ÷ 15) или именованную константу. Для всех возможных цветов в модуле CRT описаны константы.

Обратим внимание на то, что процедура TextColor устанавливает цвет только тех символов, которые будут выводиться после ее выполнения. Символы, уже находящиеся на экране, сохранят свой цвет.

Вторая цветовая характеристика выводимого на экран текста – текущий цвет фона. Для изменения текущего цвета фона используется процедура TextBackground (англ.) – фон текста, имеющая следующий вид:

TextBackground (< номер цвета >);

Для цвета фона могут использоваться первые восемь цветов (0 ÷ 7) из 16 доступных в текстовом режиме.

Задача 5

Вывести на экран дисплея на светло-сером фоне красными буквами текст

«Goodbye!». Рrogram Lab2_5; Uses CRT; Begin

ClrScr;

TextColor(Red);

TextBackGround(LigtCray); Writeln (‘Goodbye!’);

ReadKey;

End.

Задача 6

Названия пунктов меню вывести на синем фоне светло-серым цветом, а номера пунктов меню – ярко-белым цветом.

27

Рrogram Lab2_6; Uses CRT; Begin

ClrScr;

TextBackGround(Blue); TextColor (15); WriteLn (‘1’); TextColor (7);

Write (‘Вывод на экран’); TextColor (15);

WriteLn (‘2’);

TextColor (7);

Write (‘Вывод на принтер’); ReadKey;

End.

8.Контрольные вопросы

1.Что такое тип переменных?

2.Назовите простые основные типы языка Паскаль.

3.Что такое оператор?

4.Что такое идентификатор? Для чего используются идентификаторы в языке Паскаль?

5.Перечислите правила записи идентификаторов на языке Паскаль.

6.Перечислите арифметические операции для данных целочисленного типа языка Паскаль, приоритеты выполнения арифметических операций.

7.Почему знак умножения всегда записывается явно?

8.Назовите две формы записи вещественных чисел.

9.Что представляют собой мантисса и порядок в показательной форме записи вещественной константы?

10.Какие стандартные тригонометрические функции, реализованные в языке Паскаль, вы знаете?

11.Назовите стандартные математические функции языка Паскаль, имеющие вещественный тип.

12.Назовите стандартные математические функции языка Паскаль, имеющие целый тип.

13.В чем отличие двух типов числовых данных: Real и Integer?

14.КкакимтипамданныхприменимыарифметическиеоперацииDiv иMod?

15.При каких значениях аргумента стандартные функции trunc(x) и round(x) возвращают одинаковый результат?

16.Для каких чисел определены стандартные функции Susc(x) и Pred(x)?

17.Можно ли при записи арифметических операций использовать квадратные и фигурные скобки?

18.Какие функции преобразуют вещественный аргумент в целый?

19.Назовите операции отношения, которые применимы к данным числового типа.

28

20.Как называются элементы данных языка, значения которых определены в описательной части программы и не меняются в процессе ее выполнения?

21.Что такое «выражение», «операция», «операнд»?

22.Как называется некоторый конечный набор операций (действий, предписаний), выполнение которых одна за другой за конечное число шагов приводит к намеченной цели (искомому результату, решению поставленной задачи)?

23.Какие функциональные клавиши вызывают диалоговое окно «Открыть», позволяют сохранить текст программы в виде файла на магнитном носителе и выйти из ИСП Turbo Pascal?

24.Как сменить каталог в ИСП Turbo Pascal?

25.Что означает добавление буквосочетания Ln в операторах Write, Read? Как влияет на результат выполнения программы его отсутствие?

26.В чем заключается роль блока Uses в программе?

27.Оператор GotoXY(10,5) и его влияние на позицию курсора во время выполнения программы.

28.Какие процедуры устанавливают цвет фона и цвет символа?

29.Каков диапазон изменения константы процедуры, устанавливающей цвет фона?

30.Каков диапазон изменения константы процедуры, устанавливающей цвет символа?

31.Сколькострокисимволовотображаетсянаэкраневстандартномрежиме?

32.Каков приоритет выполнения арифметических операций?

33.Из каких символов может состоять идентификатор?

34.Может ли пробел входить в число символов, составляющих идентификатор?

35.Для чего служит процедура ClrScr?

36.Для чего служит функция ReadKey?

37.Что называется мантиссой числа?

38.Что называется порядком числа?

39.Почему знак умножения всегда выписывается явно?

40.Что такое форматированный вывод числа?

41.Чтонадосделать, чтобывещественноечислобыловыведеноввидецелого?

42.Считается ли пробел разделителем при чтении символов?

43.Для какого типа данных определены операции сложения, вычитания, умножения, деления?

9. Практическое задание – решение задач линейной структуры

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

Методические указания

1. Составить блок-схему программы, после чего приступить к написанию программы в ИСП.

29

2. Программа должна выполняться при любых значениях начальных данных. Данные для тестового задания № 1 приведены в условии задачи. Желательно сделать форматированный вывод результата вычислений.

Вариант 1

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

Вычисление длины отрезка.

Введите координаты отрезка (числа разделяйте пробелом): первая координата: х1, у1 – > 6 6 вторая координата: х2, у2 – > 9 10

–––––––––––––––––––––––––––––

Длина отрезка: 5 см

2.Написать программу, выводящую на светло-сером фоне черными буквами следующий текст, который надо расположить на экране c 20-й позиции, 6-й строки:

Буря мглою небо кроет, Вихри снежные крутя…

(А.С. Пушкин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значения а, b подобрать самостоятельно):

3а2 + 4 b

Вариант 2

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

Вычисление дохода по вкладу. Введите исходные данные: величина вклада (руб.) – > 2500 срок вклада (дней) – > 30 процентная ставка (годовых) – > 20

–––––––––––––––––––––––––––––

Доход: 41,10 руб.

Сумма по окончании срока вклада: 254,1,10 руб

2.Написать программу, выводящую на синем фоне желтыми буквами следующий текст, который надо расположить на экране c 10-й позиции, 14-й строки:

30

Блеснул мороз. И рады мы Проказам матушки-зимы!

(А.С. Пушкин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

х2 −2 +3х2 −8х

Вариант 3

1.Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним.

Вычисление стоимости покупки. Введите исходные данные: цена тетради (руб.) – > 2,75 цена обложки (руб.) – > 0,5

количество комплектов (шт.) – > 7

––––––––––––––––––––––––––––

Стоимость покупки: 22,75 руб

2.Написать программу, которая выводит на экран фразу: «Каждый охотник желает знать, где сидит фазан», позволяющую запомнить порядок следования цветов радуги. (Первая буква слова кодирует цвет: каждый – красный, охотник – оранжевый, желает – желтый, знать – зеленый, где – голубой, сидит – синий, фазан – фиолетовый). Текст надо расположить на экране c 7-й позиции, 9-й строки.

3.Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

y = 5 ln 0,8x tg0,4x

Вариант 4

1.Написать программу пересчета расстояния из верст в километры (1 верста равна 1 066,8 м). Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Пересчет расстояния из верст в километры.

Введите расстояние в верстах и нажмите < Enter > – > 100.

––––––––––––––––––––––––––––––––––––––––––––––––

100верст – это 106,680 км

2.Написать программу, выводящую на синем фоне желтыми буквами следующий текст, который надо расположить на экране c 8-й позиции, 19-й строки:

31

Его лошадка, снег почуя, Плетется рысью как-нибудь…

(А.С. Пушкин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

	y		+sin x
	x2 +	6x
Вариант 5				1
					πHR	2
1. Написать программу вычисления объема конуса V =				3			. Ниже

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

Вычисление объема конуса. Введите исходные данные: высота (см) — > 3 радиус (см) — > 10

–––––––––––––––––––––––––

Объем конуса: 314 см2

2. Написать программу, выводящую на бирюзовом фоне синими буквами следующий текст, который надо расположить на экране c 12-й пози- ции,16-й строки:

Выткался на озере алый цвет зари, На бору со звонами плачут глухари…

(С.А. Есенин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

x − x2 −3

2 sin x

Вариант 6

1. Написать программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 125 должно быть преобразовано к виду 12 руб. 50 коп. ( данные, введенные пользователем, выделены полужирным шрифтом).

Преобразование числа в денежный формат. Введите дробное число – > 23,6 23,6 руб. – это 23 руб. 60 коп

32

2. Написать программу, которая выводит на экран фразу, состоящую из трех строк:

Любишь кататься – Люби и саночки возить.

(Пословица)

Первую строку вывести белым цветом на синем фоне, вторую – белым цветом на бирюзовом фоне, третью – белым цветом на зеленом фоне. Текст надо расположить на экране c15-й позиции, 14-й строки.

3. Написать программу на языке Паскаль для вычисления выражения по формуле

u = x2 +y 6x +sin x, где u = –2, x = 1,5

Вариант 7

1.Написать программу вычисления объема куба. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление объема куба.

Введите длину ребра (см) и нажмите < Enter >

–9,5

––––––––––––––––––––––––––––––––––––––

Объем куба: 857,38 см3

2.Написать программу, выводящую на бирюзовом фоне синими буквами следующий текст, который надо расположить на экране c 6-й позиции, 17-й строки:

Привольем пахнет дикий мед, Пыль – солнечным лучом…

(А.А. Ахматова)

3. Написать программу на языке Паскаль для вычисления выражения по формуле

V = x − y +2 +sin(x2 + y2 ), где x = 3,2, y = 1,25

Вариант 8

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

Вычисление силы тока в электрической цепи. Введите исходные данные:

напряжение (вольт) – > 36 сопротивление (Ом) – > 1500

–––––––––––––––––––––––––

Сила тока: 0,024 ампер

33

2. Написать программу, выводящую на светло-сером фоне голубыми буквами следующий текст, который надо расположить на экране c 16-й позиции, 11-й строки:

Водою пахнет резеда, И яблоком – любовь…

(А.А. Ахматова)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

x −2 +sin(x2 −8)

Вариант 9

1.Написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости поездки на дачу и обратно. Расстояние до дачи (км) – > 67 Расход бензина на 100 км пробега (л) – > 8,5 Цена литра бензина (руб.) – > 6,5

Поездка на дачу и обратно обойдется в 74 руб.

2.Написать программу, выводящую на бирюзовом фоне синими буквами следующий текст, который надо расположить на экране c 12-й позиции, 13-й строки:

Выхожу один я на дорогу, Сквозь туман кремнистый путь блестит…

(М.Ю. Лермонтов)

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

x sin(x −8) +1+ y

Вариант 10

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

Вычисление площади треугольника.

Введите (через пробел) длины двух сторон треугольника (см) – > 25 17

34

Введите величину угла между сторонами треугольника – > 30

––––––––––––––––––––––––––––––––––––––––––––––––––––––

Площадь треугольника: 106,25 см2

2. Написать программу, выводящую на синем фоне серыми буквами следующийтекст, которыйнадорасположитьнаэкранеc 20-йпозиции, 15-йстроки:

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

(М.Ю. Лермонтов)

3. Написать программу на языке Паскаль для вычисления выражения по формуле

	2sin(x2 −6x)		,	где х = 2,1
	1+ x2	−2x

Вариант 11

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

Введите величину временного интервала (в мин) – > 150

––––––––––––––––––––––––––––––––––––––––––––––––

150минут – это 2 ч. 30 мин

2.Написать программу, выводящую на красном фоне белыми буквами следующийтекст, которыйнадорасположитьнаэкранеc 7-йпозиции, 9-йстроки:

Зима! Крестьянин, торжествуя, На дровнях обновляет путь…

(А.С. Пушкин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

y = 5 ln 0,8x tg0,4x

Вариант 12

1. Написать программу вычисления площади поверхности цилиндра (S = 2πr(h + r)). Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление площади поверхности цилиндра. Введите исходные данные:

радиус основания (см) – > 5,5 высота цилиндра (см) – > 7

––––––––––––––––––––––––––––––––––––––––

Площадь поверхности цилиндра: 431,970 см2

35

2. Написать программу, выводящую на сиреневом фоне белыми буквами следующий текст, который надо расположить на экране c 4-й позиции, 14-й строки:

Скажи-ка, дядя, ведь недаром Москва, спаленная пожаром, Французу отдана.

(М.Ю. Лермонтов)

3. Написать программу на языке Паскаль для вычисления выражения по формуле

x −2 +sin(x2 −8), где х = 1,25

Вариант 13

1.Написать программу пересчета веса из фунтов в килограммы (1 фунт равен 409,5 г). Ниже представлен рекомендуемый вид экрана во время работы программы(данные, введенныепользователем, выделеныполужирнымшрифтом).

Пересчет веса из фунтов в килограммы. Введите вес в фунтах и нажмите < Enter > – > 5

–––––––––––––––––––––––––––––––––––––––

5фунтов – это 2,05 кг

2.Написать программу, выводящую на экран фразу, состоящую из двух

строк:

Правда – хорошо, А счастье – лучше.

(Пословица)

Первую строку вывести желтым цветом на синем фоне, вторую – белым цветом на черном фоне. Текст надо расположить на экране c 5-й позиции, 11-й строки.

3. Написать программу на языке Паскаль для вычисления выражения по формуле

x − y +2x −6, где х, у можно задать любые значения.

Вариант 14

1. Написать программу вычисления стоимости покупки, состоящей из тетрадей и карандашей.

Вычисление стоимости покупки. Введите исходные данные: цена тетради (руб.) – > 2,75 количество тетрадей – > 5 цена карандаша (руб.) – > 0,85 количество карандашей – > 2

–––––––––––––––––––––––––––

Стоимость покупки: 15,45 руб

36

2. Написать программу, выводящую на сиреневом фоне белыми буквами следующий текст, который надо расположить на экране c 4-й позиции, 14-й строки:

Плачет где-то иволга, схоронясь в дупло, Только мне не плачется, на душе светло.

(С.А. Есенин)

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

sin(x −2) +cos2 (x −2)

Вариант 15

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

Вычисление сопротивления электрической цепи. Введите исходные данные:

величина первого сопротивления (Ом) – > 15 величина второго сопротивления (Ом) – > 20

––––––––––––––––––––––––––––––––––––––

Сопротивление цепи: 8,57 Ом

2.Написать программу, выводящую на экран фразу из трех строк:

Три раза – отмерь, Один раз – отрежь..

(Пословица)

Первую строку вывести красным цветом на черном фоне, вторую – алым цветом на светло-сером фоне, третью – голубым цветом на бирюзовом фоне. Текст надо расположить на экране c 3-й позиции, 18-й строки.

3. Написать программу на языке Паскаль для вычисления выражения по формуле (значение х подобрать самостоятельно):

x −2 +sin(x2 −8)

Вариант 16

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

Вычисление сопротивления электрической цепи при последовательном соединении элементов.

Введите исходные данные:

37