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

Скачать 1.12 Mb.

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

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

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

Тема: Представление информации в различных системах счисления.

Цель работы:

приобрести умение перевода чисел из любой системы счисления в другую ручным и автоматизированным способами (на примере стандартной программы Калькулятор ОС Windows XP);

научиться выполнять арифметические операции над числами в двоичной системе системах счисления ручным и автоматизированным способом (на примере стандартной программы Калькулятор ОС Windows XP).

План работы:

Перевод чисел из десятичной системы счисления в другие системы счисления и обратно ручным способом.

Перевод чисел из различных систем счисления в другие системы счисления и обратно ручным способом.

Перевод чисел из различных систем счисления в другие системы счисления и обратно автоматизированным способом.

Выполнение арифметических операций над числами в различных системах счисления ручным способом.

Выполнение арифметических операций над числами в различных системах счисления автоматизированным способом.

Выполнение комбинированного задания

Теоретические сведения

Системы счисления – это способ представления чисел с использованием соответствующих правил действия над числами.

Существуют два способа перевода чисел из одной системы счисления в другие и выполнения арифметических операций над числами:

Ручной (с помощью определенных правил);

Автоматизированный (с помощью компьютерной программы).

Стандартная программа Калькулятор представлена на рисунке
Ход выполнения работы

1. Перевод чисел из десятичной системы счисления в другие системы счисления и обратно ручным способом. Выполните задания № 1-2 и запишите в тетрадь.

Задание №1

Переведите десятичное число 5710 в двоичную, восьмеричную, шестнадцатеричную систему счисления.

Задание №2

Переведите число 101102, 658, 12016 в десятичную систему счисления.
Задание № 3

Переведите число 101102, 478, 12016 в десятичную систему счисления.
Задание №4

Переведите число 101102, 478, 12016 в десятичную систему счисления.
2.Перевод чисел из двоичной системы счисления в системы счисления с основанием 2n и обратно ручным способом. Выполните задания №5-7 и запишите ответы

Задание №5

Осуществите переход из одной системы счисления в другие:

1А,F-X

15,7-X

6,24-X

1A,B-X

Задание № 6

Назовите системы счисления, в которых число 10 – нечётное

Задание № 7

На автосервисе стоят 507 машин: 341 российских и 166 импортных марок. В какой системе счисления представлены числа? Обоснуйте свой ответ. Определите количество машин российского и импортного производства.

Перевод чисел из одной системы в другие автоматизированным способам.

Пример № 1. Перевести двоичноечисло 11111101 в десятичную систему счисления автоматизированным способом.

Решение. Здесь необходимо выполнить слудующие действия:

Установить в режиме Инженерный калькулятор переключатель в положение Bin (Binary – двоичная)

Ввести двоичное число 1111101

Установить переключатель в положение Dec (Decimal – десятичная) – в результате получится соответсвующее десятичное число.

Выполните задание № 8, используя программу Калькулятор.

Задание № 8

Заполните таблицу.

Исходное число	Соответсвующее число	Исходное число	Соответсвующее число
	X		XXX
	X	41ADF	XXX
	XXX	BA35	XXX

Выполнение арифмитических операций над числами в различных системах счисления ручным способом.

Выполните задания №9 – 12 и запишите ответы.

Задание №9

Произведите сложение и вычитание чисел 110010 и 110101 .

Задание №10

Вычеслите сумму 1011,1 +7.2 +27,4А . Получите окончательный результат в десятичной системе счисления.

Задание №11

Имеются прейскуранты стоимости строительных и отделочных работо, приведённых в таблице.

Конструкция	Прейскурант 1	Прейскаурант 2	Прейскурант 3
Конструкция	Стоимость, р.
Полы	Паркетная доска- 2А80	Ковролин - 6736	Керамическая плитка
Стены	Стеклянная смальта - 23420	Декоративный камень - 5436	Краска, обои
Потолки	Краска - 23300	Потолочная плитка -173	Навесной потолок

Определите материалы для пола, стен и потолка, кторые будут использованы при ремонте квартиры, если сумма строительных и отделочных работ составляет 25130

Задание №12

В какой системе счисления произведено следующие сложение?

123

46

+51

11

253

Выполнение арифмитических операций над числами в различных системах счисления автоматизированным способом.

Пример №2. Умножить восмиричные числа 74 и 6 автоматизированным способом.

Решение. Здесь необходимо выполнить следующие действия:

установить в режиме Инженерный калькулятор переключатель

ввести восьмеричное число

нажать на калькуляторе кнопку *

ввести восьмеричное число

нажать на калькуляторе кнопку =

в результате получить соответствующее восьмеричное число (рис. 2.9).

Выполните задание №13, используя программу калькулятор

Исходное число	Арифмитическая операция	Результат	Исходное число	Арифмитическая операция	результат
10110011	+	ХХ	11071D5	+	ХХХ
71315	_	ХХ	74714153	_	ХХХ
3С1С0	*	ХХ ХХ	111B4 92	*	ХХХ
87F	/	ХХХХ	BC2410	/	ХХХХ

Выполнение зачётного задания.

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

Зачётное задание

Переведите числа 1011

, 217

,ACF

соответственно из двоичной, восьмеричной, шестнадцатеричной систем счисления в десятичную систему счисления.

Назовите системы счисления в которых справедливы следующие равенства:

5*2=12

6*3=22

7*4=34

Определите минимальное основание системы счисления, если в ней могут быть записаны числа: 241, 198, 10010, A2F9.

Сумму восьмеричных чисел

71+710+7100+…+7100000

перевели в шестнадцатеричную систему счисления. Найдите в записи числа, равного этой сумме, третью цифру слева.

Имеется расписание поезда Москва –Анапа

Станция назначения	Время прибытия на станцию	Время остановки, мин	Время отправления со станции	Путь, км
Москва	-	-	01:35	-
Орёл	07:18	1100	?	17D
Курск	09:48	С	?	575+ 234
Белгород	13:15	50	?	5AF- 1366
Ростов	0:25	40	?	A06/10
Киев	10:15	29	?	230*10
Анапа	13:45	-	-	818- 147

Определите время остановки и отправления со станции, а также путь ( в километрах) до станции, выполнив соответствующие арифметические операции.

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

Среда программирования.Тестирование готовой линейной программы.

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

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

Типы переменных в Паскале:
INTEGER – целый тип (диапазон -32768...32767)

REAL – действительный, вещественный тип (диапазон 2.9*10^-39...1.7*10⁺³⁸)

CHAR – литерный, символьный тип

BOOLEAN – логический тип

BYTE – целые числа от 0 до 255

LONGINT – целый тип (диапазон -2147483648... 2147483647)

STRING – строковый тип (от 0 до 255 символов)
Стандартные операции и функции от скалярных данных.

Функция, операция	Назначение	Тип переменных	Тип результата
A+B	Сумма	REAL, INTEGER	REAL, INTEGER
A-B	Разность	REAL, INTEGER	REAL, INTEGER
A*B	Произведение	REAL, INTEGER	REAL, INTEGER
A/B	Частное	REAL, INTEGER	REAL
ABS(x)	Абсолютное значение	REAL, INTEGER	REAL, INTEGER
SQR(x)	Вычисление х²	REAL, INTEGER	REAL,INTEGER
SIN(x)	Нахождение sin x	REAL,INTEGER	REAL
COS (x)	Вычисление cos x	REAL, INTEGER	REAL
ARCTAN(x)	Вычисление arctan x	REAL, INTEGER	REAL
EXP(x)	Вычисление экспоненты е^х	REAL, INTEGER	REAL
LN(x)	Вычисление ln x	REAL, INTEGER	REAL
SQRT(x)	Вычисление	REAL, INTEGER	REAL
A div B	Нахождение целой части при делении А на B	INTEGER	INTEGER
A mod B	Нахождение остатка при делении А на B	INTEGER	INTEGER
TRUNC(x)	Нахождение целой части х	REAL, INTEGER	INTEGER
ROUND(x)	Округление х в сторону ближайшего целого	REAL, INTEGER	INTEGER
PI	Зарезервированная константа число π		REAL

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

В математике	В программировании на языке Паскаль
xⁿ	exp(n*ln(x))
log _b a	ln(a)/ln(b)
tg x	sin(x)/cos(x)
ctg x	cos(x)/sin(x)

операторы:

Оператор	Назначение	Синтаксис
Readln	ввод значений с клавиатуры c переводом курсора на новую строку	Readln( перем1, …, перемN)
Writeln	вывод значений на экран c переводом курсора на новую строку	Writeln('Текст') Writeln(перем1, ..., перемN)
Read	ввод значений с клавиатуры	Read( перем1, …, перемN)
Write	вывод значений на экран	Write('Текст') Write(перем1, ..,перемN)

примеры решения задач:

Пример 1.

Составить программу расчета значения функции.

Z = |cos х⁴ – 3 tg х² |+0.8 sin yх²+ 10 при любых значениях х и у.

Результат вывести в виде: при х= и у=… z=…

Решение

Используемые переменные: x, y -аргументы, z – значение функции

Program pr1;

Var x,y,z: real;

Begin

writeln('введите X Y'); {вывод строки подсказки}

readln (x,y); {ввод аргументов x и y}

z:=abs(cos(sqr(x)*sqr(x)-3*sin(sqr(x))/cos(sqr(x))))+0.8*sin(y*sqr(x))+10;

writeln('при x=',x:8:2,' y=',y:8:2,' z=',z:8:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат

введите X Y

1 2

при x=1.00 y=2.00 z=11.59
Пример 2.

Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме сложения, получить 7а за четыре операции.

Решение

Используемые переменные: а –вводимое число,

b, c, d – вспомогательные переменные

Program pr2;

Var a,b,c,d:real;

Begin

write('введите a '); {вывод строки подсказки}

readln (a); {ввод исходного числа}

b:=a+a; {2a}

c:=b+b; {4a}

d:=b+c; {6a}

a:=d+a; {7a}

writeln('7a=',a:8:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат

введите a 2

7а= 14.00
Пример 3.

Найти площадь круга и длину окружности.

Решение

Используемые переменные: r - радиус, d – длина окружности,

s – площадь круга
Program pr3;

Var d,r,s: real;

Begin

write('введите радиус окружности '); {вывод строки подсказки}

readln (r); {ввод радиуса}

d:= 2*Pi*r; {вычисление длины окружности}

s:=Pi*sqr(r); { вычисление площади круга}

writeln('длина окружности= ',d:4:2); {вывод результата}

writeln('площадь окружности= ',s:4:2);

readln; {задержка до нажатия клавиши Enter}

End.

Результат

введите радиус окружности 5

длина окружности=31.42

площадь окружности=78.54
Пример 4.

Вычисление суммы цифр введенного натурального двузначного числа.

Решение

Используемые переменные: n - двузначное число, a, b – цифры числа

Program pr4;

Var n, a, b: integer;

Begin

write('n= '); readln(n); {ввод исходного двузначного числа}

a:=n div 10; {1-я цифра}

b:=n mod 10; {2-я цифра}

writeln('сумма = ', a+b); {вывод результата}

readln; {задержка до нажатия клавиши Enter}
End.

Результат

n=48

сумма=12

Пример 5.

Введенное 4-значное число изменить так, чтобы 2 и 3 цифры поменялись местами.

Решение:

Program pr5;

Var n,a,b,c,d:integer;

Begin

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

readln (n); {ввод исходного 4-значного числа}

a:=n div 1000; {1-я цифра числа}

b:=n div 100 mod 10; {2-я цифра числа }

c:=n div 10 mod 10; {3-я цифра числа }

d:=n mod 10; {4-я цифра числа}

n:= a*1000+c*100+b*10+d; {получение числа в виде суммы разрядных

слагаемых}

writeln('результат ', n); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат:

введите n 1234

результат 1324
Пример 6.

Обмен значениями переменных x и y.

Решение:

Program pr6;

Var x,y,t: integer;

begin

write('Введите x y '); {вывод строки подсказки}

readln(x,y); {ввод исходных чисел}

t:=x; {в переменную t }

x:=y;

y:=t;

writeln('x=', x, 'y=',y); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

end.

Результат:

Введите x y 3 7

x=7 y=3

Пример 7.

Вычислить значение y = (3tg x ²– e^x )/2sin x для х = -34, 0.89, 1.23

Решение:

Program pr7;

Var x,y:real;

Begin

Write('введите x ');

readln (x); {ввод аргумента}

y:=(3*sin(sqr(x))/cos(sqr(x))-exp(x))/(2*sin(x)); {вычисление значения функции}

Writeln('при x=',x:4:2,' y=',y:4:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}
End.

Результат:

1 случай:

введите x 34

при x=34.00 y=-551389941339996.31
2 случай:

введите x 0.89

при x=0.89 y=0.39
3 случай:

введите x 1.23

при x=1.23 y=25.64
ЗАДАНИЯ

Составить программу расчета значения функции
Z = |3 е^х+3 – 2 ln ху| + 1,8х² + 1 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Составить программу расчета значения функции
Z = tg х³ – |2 sin х²у + 7.8 cos х |+ 10 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Составить программу расчета значения функции
Z = (х⁴ – 2 ctg х²у² )/| 8х² – 5 arctg у| при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Составить программу расчета значения функции
Z = tg х⁵ – 21 ctg ху² /(18 sin х – 13 cos у + 11) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Составить программу расчета значения функции
Z = (2e^х-4 – |sin х²у| )/( 2.1ctg х² + 10.2) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁴ за две операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁶ за три операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁷ за четыре операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁸ за три операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁹ за четыре операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a¹⁰ за четыре операции.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме сложения, получить 6a за три операции.
Найти произведение цифр введенного 4-значного числа.
Найти сумму цифр введенного 4-значного числа.
Определить сумму квадратов цифр введенного 3-значного числа.
Введено 3-значное число. Вывести число в зеркальном отображении.
Введено 3-значное число. Вывести число в зеркальном отображении
Введенное 4-значное число изменить так, чтобы 1 и 4 цифры поменялись местами.
Найти среднее арифметическое цифр введенного 3-значного числа.
Введено 3-значное число. Поменять местами 1-ю и 3-ю цифры числа.
Введенное 4-значное число изменить так, чтобы 1-3 и 2-4 цифры поменялись местами.
Найти полусумму цифр введенного 4-значного числа.
Определить сумму квадратов цифр введенного 3-значного числа.
Введенное 4-значное число изменить так, чтобы 1 и 3 цифры поменялись местами.
Введенное 4-значное число изменить так, чтобы 3 и 4 цифры поменялись местами.

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

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

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

В программах с разветвляющей структурой используются условный оператор (оператор ветвления) и оператор выбора (оператор варианта), представленные на рис.2.15.1.

Ход выполнения работы

рой.

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

1.2. Вызовите готовую программу нахождения максимального числа из двух чисел, выполнив команды F3, Enter, затем в предложенном списке программ выберите файл Example_2.pas и нажмите Enter (рис. 2.16).

1.3. Введите два числа: 5 и 7 (х = 5, у = 7). (Условие х > у не выполняется, так как 5 не больше 7, работает оператор, стоящий после else, т.е. writeln(y), следовательно, на экране появится 7.)

1.4. Запустите программу на выполнение, сравнив любые целые числа.

1.5. Выполните задания № 1, 2 и продемонстрируйте преподавателю результаты работы
Рис. 2.15.1

Рис. 2.16. Программа нахождения максимального числа из двух чисел
Задание № 1

Определите, какие действия над числом осуществляет программа Example_3.pas. Готовую программу вызовите, исполнив команды F3, Enter, затем в предложенном списке программ выберите соответствующий файл и нажмите Enter (рис. 2.17).

Рис. 2.17. Программа Example_3.pas
Задание № 2

Определите, какие формы условного оператора использованы в примерах программ Example_2.pas, Example_3.pas.

1.6. Откройте готовую программу Example_4.pas (рис. 2.18), проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0, 5).

Рис. 2.18. Программа, проверяющая, принадлежит ли число интервалу
1.7. Запустите данную программу на выполнение. В программе ис-пользуется сложное условие, т.е. если одновременно выполняются оба условия {х > 0, х < 5}, то х принадлежит заданному интервалу.

1.8. Рассмотрите программу, которая определяет, является ли вве-денный символ буквой русского или английского алфавита. В программе использован оператор варианта (рис. 2.19).

Рис. 2.19. Программа Example_5.pas
1.9. Откройте программу Example_5.pas и запустите ее на выполнение. Варианты тестирования программы приведены в табл. 2.5.
Таблица 2.5

Тестирование программы Example_5.pas

Ввод исходных данных	Вывод данных
45	Этот символ не является буквой
Ь	Это буква русского алфавита
J	Это буква английского алфавита

2. Редактирование готовых программ. Выполните задания № 3—5 и продемонстрируйте преподавателю результаты работы.

Задание № 3

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

Задание № 4

Внесите изменения в программу Example_4.pas, проверяющую, принадлежит ли число отрезку [-10; 24].

Задание № 5

Измените программу Example_5.pas, которая определяет, является ли введенный символ либо буквой русского или английского алфавита, либо цифрой.
3. Составление программ с разветвляющей структурой. Выполните задания № 6—8.
Задание № 6

Составьте программу, в которой значение переменной с вычисляется по формуле: а + b, если а — нечетное (a mod 2 = 1), и а*b, если а — четное (a mod 2 = 0).

Задание № 7

Составьте программу вычисления значения функции

Задание № 8

Составьте программу, которая по данному числу (1 — 12) выводит название соответствующего ему месяца.
4. Выполнение зачетного задания. Выполните зачетное задание и предъявите преподавателю результат работы.

Вычислите значение функции

Имеется пронумерованный список деталей. Составьте программу, которая по номеру детали выводит на экран ее название.
Лабораторная работа 6

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

Теоретическая часть
ОПЕРАТОРЫ ВЫБОРА И УСЛОВНОГО ПЕРЕХОДА.

операторы:

Оператор	Назначение	Синтаксис
if … then…	проверка условий	if <�условие> then <�оператор1> else <�оператор2> if <�условие> then <�оператор>
case	выбор	case <�переменная> of <�константа 1>: <�операторы 1>; … < константа n>: <�операторы n> [else <�операторы>] end;

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

Пример 1.

Выбор минимального из трех введенных целых чисел.

Решение:

Program pr1;

Var a, b, c, m: integer;

BEGIN

Write('a, b, c='); readln(a, b, c); {ввод исходных чисел}

if a{выбор минимального из a и b}

if c{сравнение с третьим числом}

writeln('Мin=', m); {вывод результата}

readln

END.

Результат:

1 случай:

a, b, c= 15 6 9

Мin=6
2 случай:

a, b, c= 1 45 4

Мin=1
3 случай:

a, b, c= 25 16 9

Мin=9
Пример 2.

Решение квадратного уравнения вида Ax² + Bx + C = 0.

Решение:

Program pr2;

Var a, b, c, d, x1, x2: real;

Begin

Write('a, b, c='); readln(a, b, c); {вводим коэффициенты квадратного уравнения}

d:=sqr(b)-4*a*c; {вычисляем дискриминант}

if d>0 then begin {если дискриминант положительный, то вычисляем два корня}

x1:=(-b+sqrt(d))/(2*a); writeln('x1=', x1:6:2);

x2:=(-b-sqrt(d))/(2*a); writeln('x2=', x2:6:2)

end

else if d=0 then begin { иначе, если дискриминант равен 0, то вычисляем один корень}

x1:=-b/(2*a); writeln('x=', x1:6:2)

end

else writeln('Корней нет'); {иначе выводим сообщение Корней нет’}

readln

End.

Результат:

1 случай:

a, b, c= 1 -2 1

x= 1.00
2 случай:

a, b, c= 1 -6 8

x1= 4.00

x2= 2.00
3 случай:

a, b, c= 5 1 2

Корней нет
Пример 3.

Определить, есть ли в записи трехзначного числа хотя бы одна нечетная цифра.

Решение:

Program pr3;

Var a, a1, a2, a3: integer;

Begin

Write('a='); readln(a); {ввод исходного числа}

a1:= a div 100; {1-я цифра}

a2:= (a div 10) mod 10; {2-я цифра}

a3:= a mod 10; {3-я цифра}

if (a1 mod 2=1) or (a2 mod 2=1) or (a3 mod 2=1) {Если 1-я цифра нечетная,

then writeln('Yes') else writeln('No'); или 2-я нечетная, или 3-я нечетная, то выводим ‘Yes’, иначе выводим ‘No’}

readln;

End.

Результат:

1 случай:

a=418

Yes

2 случай:

a=246

No
Пример 4.

Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.

1

y

x

x²+y²=25

x²+y²=4

Точка будет принадлежать заштрихованной области, если она лежит внутри большого круга (x²+y² <25) И, одновременно, за пределами малого круга (x²+y²>4).
Решение:

Program pr4;

Var x,y: real;

Begin

Write('введите x y ');

readln (x,y); {ввод координат точки}

if (sqr(x)+sqr(y)<25) and (sqr(x)+sqr(y)>4)

then writeln('точка попадает в заштрихованную область')

else writeln('точка не попадает в заштрихованную область');

readln;

end.

Результат:

1 случай:

введите x y 1 1

точка попадает в заштрихованную область
2 случай:

введите x y 2 5

точка не попадает в заштрихованную область
Пример 5.

Введено трехзначное число. Необходимо разбить его на цифры. Все четные цифры, которые меньше 8 увеличить на 2, а 8 заменить на 0.

Решение:

Program pr5;

Var n,a,b,c,d:Integer;

begin

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

a:=n div 1000; b:=n div 100 mod 10;

c:=n div 10 mod 10; d:=n mod 10;

if (a mod 2=0) and (a<8) then a:=a+2 else if a=8 then a:=0;

if (b mod 2=0) and (b<8) then b:=b+2 else if b=8 then b:=0;

if (c mod 2=0) and (c<8) then c:=c+2 else if c=8 then c:=0;

if (d mod 2=0) and (d<8) then d:=d+2 else if d=8 then d:=0;

writeln('результат ',a,b,c,d);

readln;

end.

Результат:

введите n 1824

результат 1046

Пример 6.

Составить программу, которая выводит меню и выполняет указанные действия с заданными целыми числами:

1 - произведение двух чисел

2 - частное двух чисел

3 - сумма двух чисел
Решение:

program pr6;

var a,b,n: integer;

begin

writeln('1 – произведение двух чисел');

writeln('2 – частное двух чисел');

writeln('3 – сумма двух чисел');

write('введите номер операции ');

readln(n);

write('введите два числа'); readln(a,b);

case n of

1: writeln('произведение=',a*b);

2: writeln('частное=',a/b:4:2);

3: writeln('сумма=',a+b);

else writeln('не верный номер');

end;

readln;

end.

Результат:

1 – произведение двух чисел

2 – частное двух чисел

3 – сумма двух чисел

введите номер операции 2

введите два числа 3 5

частное=0.60

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

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

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

Похожие: