Меню сайта
Дана сторона квадрата a. Найдите его периметр P=4*a.
Program kvadrat-
Uses crt-
Var a,P :integer-
Begin
Clrscr-
Writeln(‘введите cторону квадрата а‘)- readln(a)-
P:=4*a-
Writeln(‘Периметр равен: ‘,P)-
readln-
End.
Категория: Линейные программы | Дата: 04.12.12

Ввести трехзначное число a. Поменять крайние цифры числа местами.
Program prim_10-
Var a,b,c:integer-
Begin
— — Write(‘введите трехзначное число а — — -‘)-
— — Readln(a)-
— — b:= a div 100-
— — c:= (a div 10) mod 10-
— — d:=a mod 10-
— — a:=c*10+b-
Категория: Линейные программы | Дата: 04.12.12

Даны два ненулевых числа. Найти их сумму, разность, произведение и -частное.


Program begin_11-

Uses crt-

Var a,b,s,d, p,v: integer-

Begin

ClrScr-

Writeln(‘vvedite dva chisla’)- readln(a,b)-

s:=a+b- p:=a-b- v:=a*b- d:=a/b

writeln(‘summa=’,s)-

writeln(‘raznost’,p)-

writeln(‘proizvedenie’,v)-

writeln(‘chastnoe’,d)-

(далее…)

Категория: Линейные программы | Дата: 03.12.12

Найти периметр и -площадь прямоугольного треугольника, если даны длины его катетов -a и -b.


Program begin_12-

Uses crt-

Var — a,b: integer-

c,p,s:real

Begin

Clrscr-

Writeln(‘введите а и b’)- readln(a,b)-

c:=sqrt(sqr(a)+sqr(b))-

p:=a+b+c-

s:=1/2*a*b-

writeln(‘s=’,s:4:2,’p=’,p:4:2)-

Readln-

end.

Категория: Линейные программы | Дата: 03.12.12

Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.


Program begin_13-

Uses crt-

Var a,b,c,d, x: integer-

Begin

ClrScr-

Writeln(‘введите четырехзначное число’)-

Readln(x)-

a:= x div 1000-

b:=x (div 100) mod 10 —

c := (x mod 100) div 10-

d:=x mod 10-

writeln(a,’ тысяч ‘, b, ‘сотен’, c, ‘десятков’,d,’единиц’)-

(далее…)

Категория: Линейные программы | Дата: 03.12.12

Дан цилиндр, с заданным радиусом основания —r и высотой —h. Найти объем цилиндра.


Program begin_14-

Uses crt-

Var r,h: integer-

v:real-

Begin

ClrScr-

Writeln(‘введите радиус r’)- readln(r)-

Writeln(‘введите высоту’)- readln(h)-

v:=pi*sqr(r)*h-

writeln(v:4:2)-

readln-

end.

Категория: Линейные программы | Дата: 02.12.12

Треугольник задан координатами вершин (x1-y1),(x2-y2),(x3-y3). Найти площадь треугольника (используя формулу Герона).


program Begin_15

uses crt-

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real-

begin

clrscr-

write(‘x1=’)-readln(x1)-

write(‘y1=’)-readln(y1)-

write(‘x2=’)-readln(x2)-

write(‘y2=’)-readln(y2)-

write(‘x3=’)-readln(x3)-

(далее…)

Категория: Линейные программы | Дата: 02.12.12

Даны координаты диагонали прямоугольника. — Найти его площадь.


Program begin_16-

uses crt-

var x1,x2,y1,y2,s,a,b : real-

begin

clrscr-

write(‘x1=’)-readln(x1)-

write(‘y1=’)-readln(y1)-

write(‘x2=’)-readln(x2)-

write(‘y2=’)-readln(y2)-

a:=abs(x2-x1)-

b:=abs(y2-y1)-

s:=a*b-

write(‘s=’,s)-

readln-

end.

Категория: Линейные программы | Дата: 02.12.12

Даны стороны треугольника: a,b,c. Вычислить косинусы углов по теореме -косинусов: —sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa).


Program begin_17-

uses crt-

var a,b,c,cosa,cosb,cosc:real-

begin

clrscr-

write(‘введите сторону a=’)-readln(a)-

write(‘введите сторону b=’)-readln(b)-

write(‘введите сторону c=’)-readln(c)-

(далее…)

Категория: Линейные программы | Дата: 02.12.12

Дан радиус шара. Найти его объем.


Program begin_18-

uses crt-

var r,V: real-

Begin

ClrScr-

Writeln(‘введите радиус r’)- readln(r)-

V:=4/3*PI*sqr(r)*r-

writeln(‘объем равен’,v:4:2)-

Readln-

end.

Категория: Линейные программы | Дата: 01.12.12

Страница 50 из 230« Первая...102030...4849505152...607080...Последняя »
Меню раздела
Блок