Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Лабораторная работа №2. Тема: Логический и литерный тип данных

Тема: Логический и литерный тип данных. Операторы условного перехода и выбора.

Цель: Знакомство с условными операторами языка Паскаль. Приобретение навыков построения ветвящихся алгоритмов.

Задание: Известны технические характеристики транспортного средства: мощность двигателя и масса. Требуется определить, на сколько процентов удельная мощность одного транспортного средства больше удельной мощности другого.

Для определения удельной мощности транспортного средства необходимо воспользоваться формулой:

Ud (n) = F(n)/M(n)

где Ud(n) – удельная мощность, F(n) - мощность двигателя, M(n) – масса транспортного средства.

Для определения того, на сколько процентов удельная мощность одного транспортного средства больше удельной мощности другого, воспользуемся формулой:

Ud1/Ud2*100-100:0:1
Ud2/Ud1*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.

<== предыдущая лекция | следующая лекция ==>
Операторы цикла с параметром (FOR). | Языки программирования низкого уровня


Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных