Написать программу нахождения суммы двух чисел. Числа
вводятся с клавиатуры.
Слайд 3
Решение задачи №1 program summa; uses CRT; var a,b,s: integer; begin clrscr; write('a='); read(a); write('b='); read(b); s:=a+b; writeln('s=',s) end.
Найти периметр треугольника. Длины сторон вводятся с
клавиатуры
Слайд 5
Решение задачи №2 program perimetr; uses CRT; var a,b,c,P: integer; begin clrscr; write('a='); read(a); write('b='); read(b); write('c='); read(c); P:=a+b+c; writeln('P=',P) end.
Написать программу нахождения периметра и площади прямоугольника.
Стороны прямоугольника вводятся с клавиатуры.
Слайд 7
Решение задачи №3 program pryam; uses CRT; var a,b,S,P: integer; begin clrscr; write('a='); read(a); write('b='); read(b); P:=(a+b)*2; S:=a*b; writeln('P=',P); writeln('S=',S) end.
Написать программу нахождения периметра и площади. Сторона
квадрата вводится с клавиатуры.
Слайд 9
Решение задачи №4 program kvadrat; uses CRT; var a,S,P: integer; begin clrscr; write('a='); read(a); P:=4*a; S:=sqr(a); writeln('P=',P); writeln('S=',S) end.
Написать программу нахождения площади прямоугольного треугольника. Длины
катетов вводятся с клавиатуры.
Слайд 11
Решение задачи №5 program treug; uses CRT; var a,b,S,P: real; begin clrscr; write('a='); read(a); write('b='); read(b); S:=0.5*a*b; writeln('S=',S:2:2) end.
Слайд 13
Решение задачи №6 program prog; uses CRT; var a,x,y: real; begin clrscr; write('a='); read(a); write('x='); read(x); y:=(sqr(x)-sqrt(x*a))/abs(a); writeln('y=',y:2:2) end.
Написать программу нахождения площади треугольника со сторонами
по формуле Герона.
Слайд 15
Решение задачи №7 program treug; uses CRT; var a,b,c,p,s: real; begin clrscr; read(a,b,c); p:=0.5*(a+b+c); s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s=',s:2:2) end.