2012 PASCAL Линейные программы. Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам. - презентация

1 2012 PASCAL Линейные программы

2 Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам a b S - ? P - ? S = ½ab P = a+b+c с = a 2 +b 2

3 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S); writeln(Периметр =,P); end.

4 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S:5:1); writeln(Периметр =,P:5:1); end.

5 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S: 6 :1); writeln(Периметр =,P: 10 : 4 ); end.

6 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S: 0 :1); writeln(Периметр =,P: 0 :1); end.

7 Оператор вывода write( параметр, параметр, …, параметр ); a:=10; write(2, +, a, =, a+2); writeln(1,2,3); writeln(1,, 2,, 3, ); writeln(1:3, 2:3, 3:3); write(pi:6:2); write(pi:1:2); write(pi:0:0) 2+10=

8 Что будет напечатано в результате? begin write(1);write(2,3);writeln(4); write(5);writeln(6,7);writeln; write(8) end begin write(1);writeln(2,3);write(4); writeln(5,6);write(7);writeln(8,9) end

9 Функции в Паскале |x| x x 2 sinx cosx tgx arctgx e x Lnx pi abs(x) sqrt(x) sqr(x) sin(x) cos(x) tan(x) arctan(x) exp(x) ln(x) pi

10 Запишите по правилам языка Pascal следующие арифметические выражения: (abs(x-3)+sqr(sin(x)))/(8*sqrt(sqr(x)+1)) a+b/(c+d/(e+f/(g*h)))

11 Возведение в степень x 4 x 9 x x sqr(sqr(x)) sqr(sqr(sqr(x)))*x exp(37*ln(x)) exp((1+sqrt(x))*ln(2)) exp(1/5*ln(1+sqr(x))) a b =exp(b*ln(a))

12 n:=k div m 20 div 6 = 30 div 11 = 40 div 8 = 3 div 5 = Нахождение целой части от деления (целое деление)

13 m:= k mod n 20 mod 6 = 30 mod 11 = 40 mod 8 = 3 mod 5 = Нахождение остатка от деления

14 Определите значения выражений 16 div 4 * * 2 16 div (4 * 2) mod 5 (1 + 19) mod 5 3 div mod div 5 mod 2 ( div 5) mod

15 Запишите условие на языке Паскаль: А – четное число В – нечетное число А и В имеют одинаковую четность A mod 2 = 0 B mod 2 0 B mod 2 = 1 A mod 2 = = B mod 2

16 Задачи 1.Найти сумму цифр заданного трехзначного числа 2.Дано четырехзначное число. Получить число, записанное в обратном порядке (например: ) 3. Дано количество секунд с начала суток. Вычислить текущее время в виде количества часов, минут и секунд. 4. Даны координаты центра круга и одной из точек на окружности. Написать программу вычисления площади круга. 5.Написать программу, которая выводит степени числа ПИ.

17 Домашнее задание выучить теоретический материал; Задачи: 1.Даны два числа. Найти среднее арифметическое этих чисел. 2.Написать программу, которая выводит степени числа ПИ.