АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Программирование разветвляющихся алгоритмов

Читайте также:
  1. Введение в линейное программирование
  2. Линейное программирование: аналитическое задание области допустимых решений.
  3. Особенности алгоритмов управления ресурсами
  4. Перепрограммирование подсознания.
  5. По особенностям алгоритмов вирусы делят на
  6. Понятие алгоритмы. Исполнитель алгоритма. Свойства алгоритмов.
  7. Тема 10. Основы программирования на алгоритмическом языке VBA.Объектно-ориентрованное программирование.
  8. Тема 11. Макропрограммирование в MS Excel.

Программирование линейных алгоритмов

Цель: Ознакомиться с системой программирования Pascal, получить основные навыки работы с ней, освоить приёмы создания, компиляции и исполнения программы, научиться создавать программы для решения линейных задач.

Порядок выполнения работы:

1) Запустите программу Pascal.

2) Введите текст программы решения задачи: Найти сумму, разность, произведение и частное двух целых чисел.

Program Primer;

Var A, B, S, R, P: integer;

Ch: real;

Begin

Writeln(‘Введите два целых числа‘);

Readln(A, B);

S:=A+B;

R:=A-B;

P:=A*B;

Ch:=A/B;

Writeln(‘Сумма чисел‘, A, ’и’, B, ’равна’, S);

Writeln(‘Разность чисел‘, A, ’и’, B, ’равна’, R);

Writeln(‘Произведение чисел‘, A, ’и’, B, ’равно’, P);

Writeln(‘Частное чисел‘, A, ’и’, B, ’равно’, Ch);

Readln;

End.

3) Откомпилируйте программу.

4) Запустите программу и проверьте правильность решения задачи на числах:

20 и 5; 36,6 и 6.

5) Исправьте ошибку ввода данных, введя числа 36 и 6. Замените операторы Writeln и Readln на Write и Read.

6) Рассмотрите, что изменилось в ходе выполнения программы. Покажите результат преподавателю.

7) Разработать программу нахождения значения следующего выражения:

№1 -a3c+b-2; №2 * -; №3 x arctg xy;

№4 - ; №5 3 – 4x + (y -); №6 x - +;

№7 ln| (y -)(x -); №8 ex – x – 2 + (1 + x)2; №9;

№10; №11 ex -; №12;

№13 +16xcos(xy) –2; №14 sin- sin; №15 x - ln x +.

 

8) Составьте программу решения задачи:

Вычислить корни квадратного уравнения ах2 + bх + с = 0, заданного коэффициентами a, b и с (предполагается, что а ≠ 0).

9) Составьте программу решения задачи:

Дано трёхзначное число. Поменять местами вторую и третью его цифры.

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

 

10) Составьте программу решения задачи:

Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.

Откомпилируйте программу.

 

11) Составьте программу решения задачи: Найти площадь кольца, внутренний радиус которого R1, а внешний R2 (R1< R2).

Откомпилируйте программу. Используя составленную программу, вычислите площадь кольца, внутренний радиус которого – 16 см, а внешний – 25 см.

 

12) Запишите полученные результаты в тетрадь.

 

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

 

14) Выйдите из программы Pascal.


 

Лабораторная работа №3

Программирование разветвляющихся алгоритмов

Цель: научиться составлять программы для решения задач, содержащих условия, продолжить освоение работы в системе программирования Pascal.

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

Условный оператор используется для выполнения одного из двух возможных вариантов программы.

Формат записи команды ветвления:

if логическое_условие если логическое_условие верно

then оператор_1 то выполняется оператор_1,

else оператор_2; иначе оператор_2;

Перед else точка с запятой не ставится!

Формат полного оператора ветвления: Формат неполного оператора ветвления:
if <логическое выражение> if <логическое выражение>

then <оператор 1> then <оператор>;

else <оператор 2>;

Логическое выражение:

• Простой формой логического выражения является операция отношения:

– < меньше,

– > больше,

– <= меньше или равно,

– >= больше или равно,

– = равно,

– <> не равно.

• Сложные формы логических выражений составляются с использованием логических операций:

– not логическое отрицание (НЕ),

– and логическое умножение (И),

– or логическое сложение (ИЛИ),

– xor исключающее ИЛИ

• Порядок действий: Отрицание, умножение, сложение, операции отношений.

Операторные скобки:

• Если после слов then или else нужно выполнить не один оператор, а несколько, то эти операторы заключают в операторные скобки: begin … end

• Конструкция такого вида: Begin <последовательность операторов> end о тносится к составным операторам.

• Операторы ветвления могут быть вложены друг в друга, необходимо только следить за тем, чтобы then и else одного и того же оператора располагались друг под другом.

Порядок выполнения работы:

1) Запустите программу Pascal.

2) Составьте программу решения задачи: Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае вычесть из него два. Вывести полученное число.

3) Составьте программу решения задачи: Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, то есть имеют ли они равные площади.

4) Составьте программу решения задачи: Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением.

5) Составьте программу решения задачи: Вычислить значение У при значении Х=:

6) Составьте программу решения задачи: Даны целые числа a и b. Определить, является ли число a делителем числа b.

Откомпилируйте программу. Используя составленную программу, определите, является ли число 43 делителем числа 553, а число 56 делителем числа 672.

 

7) Запишите полученные результаты в тетрадь.

 

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

 

9) Выйдите из программы Pascal.

 

 

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


1 | 2 | 3 | 4 | 5 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.)