Скачать 0.87 Mb.
|
— перемещение курсора в начало текущей строки; — перемещение курсора в конец текущей строки; — перемещение курсора на страницу вверх; — перемещение курсора на страницу вниз; + — перемещение курсора в левый верхний угол. Команды вставки и удаления текста — удаление символа, стоящего в позиции курсора; — удаление символа, стоящего перед курсором; + — вставка пустой страницы для ввода программы; + — удаление строки, в которой находится курсор. Для ввода с клавиатуры используется оператор Read (или ReadLn). Вызов: Read (r1, r2, …, rn). Параметры r1, r2, …, rn имеют тип Integer, Real, Char или String. Вывод на экран осуществляется с помощью операторов Write (или WriteLn). Вызов: Write (r1, r2, …, rn ). Параметры: r1, r2, …, rn имеют тип Integer, Real, Boolean, Char или String. Выражения и операции Любое выражение имеет определенный тип и после вычисления возвращает некоторое значение. Простейшими выражениями являются переменные и константы. Более сложные выражения строятся из более простых с использованием операций, скобок, вызовов функций, индексов и приведений типов. Данные, к которым применяются операции, называются операндами. В Pascal ABC имеются следующие операции: @, not, ^, *, /, div, mod, and, shl, shr, +, -, or, xor, =, >, <, <>, <= и >=. Арифметические операции К арифметическим относятся бинарные операции + - * / для вещественных и целых чисел, бинарные операции div и mod для целых чисел и унарные операции + и - для вещественных и целых чисел. Выражение, имеющее числовой тип, называется арифметическим. Тип арифметического выражения определяется по следующему правилу: если все операнды целые и в выражении отсутствует операция деления /, то выражение имеет тип integer, в противном случае выражение имеет тип real. Например, если b имеет тип byte, c имеет тип 1..9, то b+c и -b имеют тип integer, а 2.0+b и 1/2 - тип real. Операции отношения Операции отношения <, >, <=, >=, =, <> возвращают значение типа boolean (логический) и применяются к операндам целого, вещественного, символьного, логического и строкового типов, а также к типизированным указателям. При сравнении символа и строки символ преобразуется в строку длины 1. Типы данных
Пример №2 : Вычислить значение выражения: у=5х3+16х2+18х-29 program Prim 2; var y,x:integer; begin writeln('Введите x:'); readln(x); y:=5*x*x*x+16*x*x+18*x-29; writeln('y=',y); readln end. Пример№1. Программа, вычисляющая произведение двух чисел Program Myl ; Var a, b, rez : Integer; Begin WriteLn ('Введите два числа через пробел'); ReadLn (a, b); rez :=a*b; WriteLn ('Их произведение равно ', rez); WriteLn ('Нажмите '); ReadLn End. П Пример №4 : Задан квадрат с длиной стороны a. Найти его площадь и длину диагонали. program Prim_4; Var a,S,d: real; Begin Write(‘введите значение a=’); Readln(a); S:=SQR(a); D:=a*SQRT(2); Write(‘площадь=’,S:7:3); Write(‘длина диагонали=’,d:7:3); End. ример №3 Составить программу вычислении я значения выражения: program Prim_3; var a,b,c,d:real; begin writeln('Введите 3 численных значения через пробел и нажмите :'); readln(a,b,c ); d:=(4.2/a-3.2*b)/(c/7+8); writeln('d=',d); writeln('Для завершения работы программы нажмите :'); readln end. Задание №1
Задание №2
Задание №3
Порядок выполнения работы
7.Оформить отчёт (составленные программы внести в отчёт) и сделать выводы Литература:
Практическая работа № 3 Тема: Составление программ разветвляющей структуры. Цель: 1. Научиться составлять программы с условным и безусловным переходом на языке Pascal . 2. Научиться вводить программу с клавиатуры, запускать её на выполнение Оборудование: IBM PC Программное обеспечение: WINDOWS, АВС Pascal Вопросы для повторения: 1.Какие формы записи оператора if вам известны? 2. Объясните исполнение оператора if. 3. Какие условия, используемые при записи оператора if, вам известны? 4. В каких случаях в программе используется полный условный оператор? 5. В каких случаях в программе используется неполный условный оператор? 6. Сколько строк может быть записано в списке выбора? 7. Может ли в операторе выбора отсутствовать часть else? 8.Можно ли оператор выбора заменить условным оператором if … then? Краткая теория Конструкция ветвления- это часть алгоритма, в которой в зависимости от выполнения или невыполнения некоторого условия выполняется либо одна, либо другая последовательность действий. Алгоритм, в котором используется конструкция ветвления, называется алгоритмом с ветвлением. Условный оператор if... then ... else Наименование оператора говорит само за себя, так как в него входит логическое условие или логическое выражение. Условный оператор может быть полным (альтернативным) и неполным (без альтернативы). Он имеет следующий формат: полная форма if <�Логическое условие (выражение)> then <�Оператор 1> else <�Оператор 2> сокращенная (неполная) форма if <�Логическое условие (выражение)> then < Оператор 1> Здесь if <�Логическое условие (выражение)> — логическое условие или выражение, которое может быть записано в операторе явно или вычислено в программе и присвоено логической переменной; <�Оператор 1>, <�Оператор 2> — простые или составные операторы. В случае составного оператора (группы операторов) следует применять операторные скобки begin и end. Алгоритм работы условного оператора if... then ... else следующий: Если (if) <�Логическое условие (выражение)> принимает значение True (истина), то (then) выполняется <�Оператор 1> и далее следует выполнение операторов программы, иначе (else) выполняется <�Оператор 2> и далее следует выполнение операторов программы. Неполный формат условного оператора в случае ложного (False) значения <�Логическое условие (выражение)> не выполняет <�Оператор 1>, а переходит к выполнению операторов программ, следующих за условным оператором. Оператор case Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Структура оператора выбора такова: case <�ключ выбора> of <�список выбора> [else <�операторы>] end;
П Пример 2. Задано x. Вычислить у: program zadacha_3; var x,y:integer; Begin write(' Введите числo x: '); readln(x); if x>3 then y:=x-3; if x=3 then y:=x; if x<3 then y:=x*x-5; writeln('y =',y); End. ример 1. Даны два числа. Найти большее из них. program zadacha_1; var max,x,y:integer; Begin writeln('Введите число x '); readln(x); writeln(' Введите число y '); readln(y); if x>y then max:=x else max:=y; writeln('большее из двух = ',max); End. Пример 3. Даны три числа. Найти максимальное. program zadacha_2; var max,x,y,z:real; Begin writeln(' Введите три числа '); readln(x,y,z); if x>y then max:=x else max:=y; if z>max then max:=z; writeln('большее из трёх =',max); End. Пример 4. Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 - зима, 2 - весна, 3 - лето, 4 - осень). var n:byte; Begin writeln('Введите номер поры года'); readln(n); case n of 1: writeln('зима'); 2: writeln('весна'); 3: writeln('лето'); 4: writeln('осень'); else writeln('неправильно ввели номер поры года'); end; End. Задание №1 В 8. 9. 10. 11. 12. 13. ычислить значение функции 1. 2. 3. 4. 5. 6. 7. Задание №2 1.Ввести три числа. Определить являются ли положительными все числа или нет. 2. Ввести три числа. Определить является ли их сумма положительной или нет 3. Ввести три числа. Определить максимальное 4. Ввести коэффициенты квадратного уравнения. Определить корни, если они существует 5. Ввести три числа. Найти сумму двух из них, которые не являются min. 6. Ввести два числа. Если оба числа положительны, найти их сумму, в противном случае найти их произведение 7. Ввести координаты точки X и Y. Определить, в какую координатную четверть оно попадает. 8. Ввести число. Определить принадлежит ли это число отрезку [-5; 0]. 9. Ввести номер месяца года. Вывести время года (зима, весна, лето, осень). 10. Ввести четыре числа. Вывести минимальное 11. Ввести площадь круга S1 и площадь квадрата S2. Определить поместиться ли круг в квадрате. 12. Ввести три числа. Вывести «да», если они введены в порядке возрастания 13. Ввести три числа. Вывести их в порядке возрастания Задание №3 1. Имеется пронумерованный список деталей 1) шуруп 2) винт 3) гвоздь 4) гайка 5) болт. Написать программу, которая по номеру детали выводит на экран её название. 2. Написать программу, которая бы по введённому номеру единицы измерения (1-миллиграм, 2-грамм, 3-килограмм, , 4-центнер, 5-тонна) и масса M выводит соответствующее значение массы в килограммах. 3. Написать программу, которая бы по введённому номеру единицы измерения (1-децеметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр) и длине отрезка L выдавала бы соответствующее значение длины отрезка в метрах. 4. Написать программу, которая по данному натуральному числу от 1 до 12 (номеру месяца) выдаёт все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января - Новый год, 7 января – Рождество. 5. Написать программу, которая выдавала бы на экран словесное представление числа в диапазоне от 0 до 9 (0-нуль, 1-единица и т.д.). 6. Написать программу, которая по номеру месяца выдавала название следующего за ним месяца (при m=1 получаем февраль, 4-май) 7. Составить программу, которая анализирует студента по его оценкам и выводит на экран одно из сообщений: “Вы учитесь плохо”, “Вы учитесь посредственно” и т.д. 8. Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, …7) выводит на экран его название. 9. Ввести возраст ребенка. Вывести в какой отряд пионерского лагеря он попадет, если известен принцип распределения: с 6 до 7 лет - 5 отряд; с 7 до 9 лет - 4 отряд; с 9 до 11 лет - 3 отряд; с 11 до 13 - 2 отряд с 13 до 15 (включительно) - 1 отряд. 10. Ввести время в часах. Определить время суток (ночь, утро, день, вечер). 11. Составить программу, позволяющую получить словесное описание школьных отметок (1-плохо, 2-неудовлетворительно, 3-удоволетворительно, 4-хорошо, 5-отлично). 12. Ввести число ( от 1 до 4) если число = 1 то вывести окружность, если - 2, то вывести квадрат, если - 3, вывести ромб, если - 4, вывести параллелограмм. Задание №4 1 8. rez = 9. rez = 10. rez = . 11. rez = 12. rez = . rez = 2. rez = 3. rez = 4. rez = 5. rez = 6 13. rez = . rez = 7. rez = Порядок выполнения работы
Литература.
Практическая работа №4. </3> |
Методические указания по выполнению лабораторных работ Издательство Инженерная геодезия. Методические указания по выполнению лабораторных работ. Составители: Шешукова Л. В., Тютина Н. М., Клевцов Е.... |
Методические указания по выполнению лабораторных работ по дисциплине... Методические указания по выполнению лабораторных работ рассмотрены и утверждены на заседании кафедры «Безопасность труда и инженерная... |
||
Методические указания для студентов по выполнению лабораторных и... Методические указания для студентов по выполнению лабораторных и практических работ |
Методические указания по выполнению практических и лабораторных работ... Учебно-методическое пособие предназначенодля студентов 3 курса, обучающихся по профессии 23. 01. 03 Автомеханик. Пособие содержит... |
||
Сборник методических указаний для студентов по выполнению лабораторных работ дисциплина «химия» Методические указания для выполнения лабораторных работ являются частью основной профессиональной образовательной программы Государственного... |
Методические указания по выполнению лабораторных работ по дисциплине «Сметное дело» ... |
||
Методические указания по выполнению лабораторных работ Казань 201 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев. Казань: Казан гос... |
Методические указания по выполнению лабораторных работ Казань 2013 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев. Казань: Казан гос... |
||
Методические указания для студентов по выполнению Правила техники безопасности при выполнении лабораторных и практических работ по химии |
Методические указания по выполнению лабораторных работ по дисциплине... Государственное бюджетное профессиональное образовательное учреждение московской области |
||
Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования |
Лабораторная работа №7 Тема: «Арифметические операции. Битовые команды» Методические указания к выполнению лабораторных работ по мдк 01. 01 «Системное программирование» |
||
Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования |
Методические указания к выполнению лабораторных работ по дисциплине радиолокационные системы Лабораторная работа №1 «Изучение принципов построения штатной радиолокационной киа» |
||
Методические указания по выполнению лабораторных работ по междисциплинарному курсу мдк02. 01 ПМ02. Применение микропроцессорных систем, установка и настройка периферийного оборудования |
Методические указания по выполнению практических и лабораторных работ... Методические указания предназначены для обучающихся по специальностям технического профиля 21. 02. 08 Прикладная геодезия |
Поиск |