Студопедия — ПРИМЕРЫ ПО АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЮ
Студопедия Главная Случайная страница Обратная связь

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

ПРИМЕРЫ ПО АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЮ






Алгоритмы линейной структуры

Вычислительный процесс, в котором все действия выполняются последовательно в порядке их записи строго по одному разу, называется линейным. К такому процессу сводится вычисление значения величин, задаваемых формулами. Рассмотрим алгоритм линейной структуры.

Задача 1. Определить площадь треугольника по формуле Герона S= Ö;р(р-а)(р-в)(р-с), где a,b,c – длины сторон, р – полупериметр треугольника.

Схема алгоритма представлена ниже.

 

Рис.1. Схема алгоритма решения задачи 1.

Программа на Паскале решения этой задачи выглядит так:

 

Program Prim_1; {заголовок программы}

Var A, B, C, S, P: Real; {блок описания данных}

Begin {начало операторов программы}

Read(A,B,C); {ввод трех чисел с клавиатуры }

WriteLn(A,B,C); {вывод этих чисел на экран для контроля}

P:=(A+B+C)/2; {нахождение полупериметра}

S:=Sqrt(P*(P-A)*(P-B)*(P-C)); {нахождение площади }

WriteLn('S=',S:8:3) {вывод результата}

End. {конец программы}

 

Все операторы заканчиваются знаком “;”. Перед оператором END точку с запятой не ставят.

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

Этот же алгоритм решения задачи записывается на Бейсике следующим образом:

 

10 Input A,B,C

20 Print A,B,C

20 P=(A+B+C)/2

30 S=Sqr(P*(P-A)*(P-B)*(P-C))

40 Print “S=”;S

50 End







Дата добавления: 2015-10-15; просмотров: 427. Нарушение авторских прав; Мы поможем в написании вашей работы!



Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Логические цифровые микросхемы Более сложные элементы цифровой схемотехники (триггеры, мультиплексоры, декодеры и т.д.) не имеют...

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

Ведение учета результатов боевой подготовки в роте и во взводе Содержание журнала учета боевой подготовки во взводе. Учет результатов боевой подготовки - есть отражение количественных и качественных показателей выполнения планов подготовки соединений...

Сравнительно-исторический метод в языкознании сравнительно-исторический метод в языкознании является одним из основных и представляет собой совокупность приёмов...

Влияние первой русской революции 1905-1907 гг. на Казахстан. Революция в России (1905-1907 гг.), дала первый толчок политическому пробуждению трудящихся Казахстана, развитию национально-освободительного рабочего движения против гнета. В Казахстане, находившемся далеко от политических центров Российской империи...

Виды сухожильных швов После выделения культи сухожилия и эвакуации гематомы приступают к восстановлению целостности сухожилия...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Studopedia.info - Студопедия - 2014-2024 год . (0.008 сек.) русская версия | украинская версия