Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Практическая работа «Знакомство с ABC Pascal»

Практическая работа «Знакомство с ABC Pascal»


  • Информатика

Поделитесь материалом с коллегами:

Практическая работа: «Знакомство с ABC Pascal»


Упражнение 1. Создать программу, вычисляющую длину гипотенузы c и величины двух углов α и β прямоугольного треугольника, если заданы длины двух его катетов a и b. Значения катетов вести с клавиатуры.


1. Наберите текст программы:


Program Pr_1; {Заголовок программы Pr_1}

var {Раздел описаний}

a, b, c, alf, bet : real; {Переменные a, b, c, alf, bet - вещественные}

Begin {Тело программы}

Write('a='); {Вывод запроса на экран}

Read (a); {Ввод значения a с клавиатуры}

Write('b='); {Вывод запроса на экран}

Read (b); {Ввод значения b с клавиатуры}

c:=sqrt(a*a+b*b); {Вычисление гипотенузы c}

alf:=arctan(a/b); {Вычисление угла alf }

bet:=arctan(b/a); {Вычисление угла bet }

Writeln('c=', c:6:2); {Вывод ответа}

Writeln('Радианы'); {Вывод ответа: углы в радианах}

Writeln('alf=', alf:6:2, 'bet=', bet:6:2);

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




Задания для самостоятельной работы

  1. Вычислите среднее арифметическое (a+b)/2.

  2. Составить программу вычисления площади и периметра прямоугольника по двум введенным сторонам. Предусмотреть вывод на экран сообщения о результате.

  3. Вычислить сумму цифр трехзначного числа.

  4. Вычислить произведение цифр трехзначного числа.


Автор
Дата добавления 17.08.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров484
Номер материала ДБ-158915
Получить свидетельство о публикации


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