ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Лабораторная работа №2. Тема: Логический и литерный тип данныхТема: Логический и литерный тип данных. Операторы условного перехода и выбора. Цель: Знакомство с условными операторами языка Паскаль. Приобретение навыков построения ветвящихся алгоритмов. Задание: Известны технические характеристики транспортного средства: мощность двигателя и масса. Требуется определить, на сколько процентов удельная мощность одного транспортного средства больше удельной мощности другого. Для определения удельной мощности транспортного средства необходимо воспользоваться формулой: Ud (n) = F(n)/M(n) где Ud(n) – удельная мощность, F(n) - мощность двигателя, M(n) – масса транспортного средства. Для определения того, на сколько процентов удельная мощность одного транспортного средства больше удельной мощности другого, воспользуемся формулой: Ud1/Ud2*100-100:0:1 где Ud1/Ud2 – отношение удельных мощностей, *100 - произведение для получения результата в процентах, -100 разность для нахождения разницы удельных мощностей.
Алгоритм:
Рисунок 1 – структурная схема программы Описание программы: Разработанная в ходе лабораторной работы №1 программа имеет следующую структуру: 1. Раздел переменой 2. Раздел операторов Для хранения числовой информации используется тип real. Для ввода информации с клавиатуры используется оператор readln (ввод значения переменных Ud,F,M). Разработанная в ходе лабораторной работы №2 программа на основе программы лабораторной работы №1 и имеет следующую структуру: o Составной оператор Составной оператор представляет собой группу из произвольного числа операторов, отделенный друг от друга точкой с запятой и ограниченную операторными скобками begin и end. Оператор условия if предназначен для изменения естественного порядка выполнения операторов программы. Текст программы: Program Udelnaya; uses crt; var F1, M1, Ud1, F2, M2, Ud2: real; begin write('Введите мощность и массу первого транспортного средства через пробел: '); readln (F1, M1); write('Введите мощность и массу второго транспортного средства через пробел: '); readln (F2, M2); Ud1:= F1/M1; Ud2:= F2/M2; writeln; If (Ud1>Ud2) then writeln ('Удельная мощность первого больше второго на: ', (Ud1/Ud2*100-100:0:1), '%') else writeln ('Удельная мощность второго больше первого на: ', (Ud2/Ud1*100-100:0:1), '%'); readln; end.
Не нашли, что искали? Воспользуйтесь поиском:
|