Меню сайта

Даны стороны прямоугольник —aи —b. Найти его площадьS= —a*bи периметр —P —= 2*(a —+ —b).
Program ploshad-
Uses crt-
Var a,b,P,S :real-
Begin
Clrscr-
Writeln(‘введите сторону прямоугольника а‘)- readln(a)-
Writeln(‘введите сторону прямоугольника b‘)- readln(b)-
S:=a*b-
Категория: Линейные программы | Дата: 29.11.12

Дан диаметр окружности —d. Найти ее длину —L —= —?*d. В качестве значения —? —использовать -3.14.
Program dlina-
Uses crt-
Var L,d :real-
const pi=3.14-
Begin
Clrscr-
Writeln(‘введите диаметр окружности‘)- readln(d)-
L:=pi*d-
Writeln(‘Длина равна: ‘,L:5:3)-
readln-
End.
Категория: Линейные программы | Дата: 28.11.12

Дана длина ребра куба —a. Найти объем куба —V= —a3 -и площадь его поверхности —S —= 6a2
Program ploshad-
Uses crt-
Var a,v,s :real-
Begin
Clrscr-
Writeln(‘введите ребро‘)- readln(a)-
V:=sqr(a)*a-
S:=6*a*sqr(a)-
Writeln(‘объем равен:­ ‘,V:5:3)-
Writeln(‘Площадь равна ‘,S:5:3)-
Категория: Линейные программы | Дата: 28.11.12

Дано расстояние в сантиметрах. Найти число полных метров в нем.
Program prim_6-
Var a,b:integer-
Begin
— — Write(‘введите расстояние в сантиметрах‘)-
— — Readln(a)-
— — b:=a div 100-
— — Writeln(b,’метров ‘)-
— -Readln
End.
Категория: Линейные программы | Дата: 28.11.12

Дана масса в килограммах. Найти число полных центнеров в ней.
Program prim_7-
Var a,b:integer-
Begin
— — Write(‘введите массу в килограммах‘)-
— — Readln(a)-
— — b:=a div 100-
— — Writeln(b,’ центнеров ‘)-
— -Readln
End.
Категория: Линейные программы | Дата: 27.11.12

Найти площадь кольца по заданным внешнему и внутреннему радиусам.
Program prim_8-
Var r1,r2,s:real-
Begin
— — Write(‘введите радиус кольца r1 —‘)-
— — Readln(r1)-
— -Write(‘введите радиус кольца r2 — -‘)-
— — Readln(r2)-
— — S:=abs(3.14*sqr(r1)-3.14*sqr(r2))- — —
Категория: Линейные программы | Дата: 27.11.12

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

Начертить N окружностей.

uses graph,crt-

vargd,gm,n,i:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtext(‘Введите кол-во окружностей’)-

readln(n)-

clearviewport-

FOR i:= 1 TO n do

begin-

CIRCLE(Random(640),Random(480), 50)

end-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 26.11.12

Построениетреугольника по трем точкам.

uses crt,graph-

varx,x1,x2,y,y1,y2,gd,gm:integer-

a,b,c:real-

begin

clrscr-

writeln(‘Введите координаты первой точки (X и Y) послекаждой коор. ENTER’)-

readln(x)-

readln(y)-

writeln(‘Введите координаты второй точки (X1 и Y1)после каждой коор. ENTER’)-

readln(x1)-

readln(y1)-

(далее…)

Категория: Графика в Паскале | Дата: 26.11.12

Построениетреугольника по заданным координатам.

uses crt,graph-

vargd,gm,x,y,a,c:integer-

begin

clrscr-

writeln(‘Введите координаты центра звезды X и Y ‘)-

readln(x)-

readln(y)-

writeln(‘Введите длину луча звезды (не меньше 90)’)-

readln(a)-

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

c:=round(3/4*a)-

line(x,y-a,x+c,y+2*c)-

(далее…)

Категория: Графика в Паскале | Дата: 26.11.12

Страница 20 из 27« Первая...10...1819202122...Последняя »
Меню раздела
Блок