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

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


НазваниеМетодические указания по проведению лабораторных работ по дисциплине «Информатика»
страница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



X X X



X

41ADF

X X X



X X X

BA35

X X X


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

Выполните задания №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

+

Х Х

110 71 D5

+

Х Х Х

713 15

_

Х Х

7471 41 53

_

Х Х Х

3С1 С0

*

Х Х Х Х

111 B4 92

*

Х Х Х

87 F

/

Х Х Х Х

BC2 4 10

/

Х Х Х Х

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

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

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

Переведите числа 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+38)

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)

Вычисление х2

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


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


В математике

В программировании на языке Паскаль

xn

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 х4 – 3 tg х2 |+0.8 sin yх2+ 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 2– ex )/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
ЗАДАНИЯ


  1. Составить программу расчета значения функции
    Z = |3 ех+3 – 2 ln ху| + 1,8х2 + 1 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

  2. Составить программу расчета значения функции
    Z = tg х3 – |2 sin х2у + 7.8 cos х |+ 10 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

  3. Составить программу расчета значения функции
    Z = (х4 – 2 ctg х2у2 )/| 8х2 – 5 arctg у| при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

  4. Составить программу расчета значения функции
    Z = tg х5 – 21 ctg ху2 /(18 sin х – 13 cos у + 11) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

  5. Составить программу расчета значения функции
    Z = (2eх-4 – |sin х2у| )/( 2.1ctg х2 + 10.2) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

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

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

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

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

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

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

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

  13. Найти произведение цифр введенного 4-значного числа.

  14. Найти сумму цифр введенного 4-значного числа.

  15. Определить сумму квадратов цифр введенного 3-значного числа.

  16. Введено 3-значное число. Вывести число в зеркальном отображении.

  17. Введено 3-значное число. Вывести число в зеркальном отображении

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

  19. Найти среднее арифметическое цифр введенного 3-значного числа.

  20. Введено 3-значное число. Поменять местами 1-ю и 3-ю цифры числа.

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

  22. Найти полусумму цифр введенного 4-значного числа.

  23. Определить сумму квадратов цифр введенного 3-значного числа.

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

  25. Введенное 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.

Решение квадратного уравнения вида Ax2 + 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

x2+y2=25

x2+y2=4

Точка будет принадлежать заштрихованной области, если она лежит внутри большого круга (x2+y2 <25) И, одновременно, за пределами малого круга (x2+y2>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

Похожие:

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

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания к проведению лабораторных работ рпк «Политехник»
Спецкурс по эксплуатации систем электроснабжения: Методические указания к проведению лабораторных работ / Сост. С. В. Хавроничев;...

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

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

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

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по проведению лабораторных работ по учебной дисциплине Физика
Краевое государственное автономное профессиональное образовательное учреждение «Пермский авиационный техникум им. А. Д. Швецова»

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по проведению лабораторных работ
Методические указания рассмотрены и одобрены на заседании пцк по укрупненной группе 140000 Электроснабжение (нпо и спо)

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

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

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по выполнению лабораторных работ Издательство
Инженерная геодезия. Методические указания по выполнению лабораторных работ. Составители: Шешукова Л. В., Тютина Н. М., Клевцов Е....

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по дисциплине пд. 02 Химия для выполнения лабораторных...
Методические указания и задания к лабораторно-практическим занятиям для студентов специальности 35. 02. 05 Агрономия по дисциплине...

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по выполнению практических и лабораторных работ...
Методические указания предназначены для обучающихся по специальностям технического профиля 21. 02. 08 Прикладная геодезия

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

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания по проведению лабораторно практических работ...
«Технология создания и преобразования информационных объектов», «Телекоммуникационные технологии». Основная часть работ служит элементом...

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconРеспублики Башкортостан Государственное бюджетное профессиональное...
Номинация «Учебно-методические разработки (практикум, методические указания по проведению лабораторных работ, методические рекомендации...

Методические указания по проведению лабораторных работ по дисциплине «Информатика» iconМетодические указания к проведению практических занятий по дисциплине «Менеджмент»
Методические указания к проведению практических занятий по дисциплине «Менеджмент» / С. Б. Олифер, Н. В. Челохьян, А. В. Малых; Рост...


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




При копировании материала укажите ссылку © 2018
контакты
rykovodstvo.ru
Поиск