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

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

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.

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.

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.

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.

Оператор вывода 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=

Что будет напечатано в результате? 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

Функции в Паскале |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

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

Возведение в степень 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))

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

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

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

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

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

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