7


  • Учителю
  • Практическая работа «Знакомство с 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. {Конец программы}





</<br>

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

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

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

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

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



 
 
X

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

После этого кнопка ЗАГРУЗКИ станет активной!

Кнопки рекомендации:

загрузить материал