6.Простейшие графические построения.
Задача №6.
program _132;
uses CRT,GraphABC;
var
i,k: integer;
n: string;
begin
write('Введите число n : '); readln(n);
SetPenStyle(psDot);
for i:=1 to 6 do
begin
rectangle(k+10,20,k+20,40);
line(k+10,30,k+20,20);
line(k+10,40,k+20,30);
line(k+10,30,k+20,30);
k:=k+15;
end;
k:=0;
SetPenStyle(psSolid);
SetPenColor(clBlue);
SetPenWidth(2);
for i:=1 to 6 do
begin
if n[i]='0' then
begin
line(k+10,20,k+10,40);
line(k+20,20,k+20,40);
line(k+10,20,k+20,20);
line(k+10,40,k+20,40);
end;
if n[i]='1' then
begin
line(k+20,20,k+20,40);
line(k+10,30,k+20,20);
end;
if n[i]='2' then
begin
line(k+10,20,k+20,20);
line(k+20,20,k+20,30);
line(k+20,30,k+10,40);
line(k+10,40,k+20,40);
end;
if n[i]='3' then
begin
line(k+10,20,k+20,20);
line(k+20,20,k+10,30);
line(k+10,30,k+20,30);
line(k+20,30,k+10,40);
end;
if n[i]='4' then
begin
line(k+10,20,k+10,30);
line(k+10,30,k+20,30);
line(k+20,20,k+20,40);
end;
if n[i]='5' then
begin
line(k+10,20,k+20,20);
line(k+10,20,k+10,30);
line(k+10,30,k+20,30);
line(k+20,30,k+20,40);
line(k+20,40,k+10,40);
end;
if n[i]='6' then
begin
line(k+10,30,k+10,40);
line(k+10,30,k+20,30);
line(k+10,40,k+20,40);
line(k+20,30,k+20,40);
line(k+10,30,k+20,20);
end;
if n[i]='7' then
begin
line(k+10,20,k+20,20);
line(k+20,20,k+10,30);
line(k+10,30,k+10,40);
end;
if n[i]='8' then
begin
line(k+10,20,k+10,40);
line(k+10,20,k+20,20);
line(k+10,40,k+20,40);
line(k+20,20,k+20,40);
line(k+10,30,k+20,30);
end;
if n[i]='9' then
begin
line(k+10,40,k+20,30);
line(k+10,20,k+10,30);
line(k+10,20,k+20,20);
line(k+10,30,k+20,30);
line(k+20,20,k+20,30);
end;
k:=k+15;
end;
end.
7.Пошаговый ввод данных и вывод результатов.
Задача №7.
program 153;
uses CRT;
var
a: array[1..100] of real;
x,s: real;
i,n: integer;
begin
clrscr;
write('Введите значение х : '); readln(x);
write('Введите значение n : '); readln(n);
writeln('Введите ',n+1,' элементов а');
for i:=1 to n+1 do
read(a[i]);
for i:=n+1 downto 2 do
s:=(s+a[i])*x;
s:=s+a[1];
writeln('Значение функции = ',s:6:2);
end.
8 .Пошаговый ввод данных и вывод результатов.
Задача №8.
program 174;
uses CRT,GraphABC;
var
a: array[1..100] of integer;
i,j,n: integer;
s1,s2,s3: real;
begin
clrscr;
write('Введите кол-во треугольников : '); readln(n);
writeln('Введите ',6*n,' элементов а : ');
for i:=1 to 6*n do
read(a[i]);
clrscr;
for i:=1 to 6*n do
if (i mod 6) = 0 then
begin
s1:=sqrt(sqr(a[i]-a[i-2])+sqr(a[i-1]-a[i-3]));
s2:=sqrt(sqr(a[i]-a[i-4])+sqr(a[i-1]-a[i-5]));
s3:=sqrt(sqr(a[2]-a[i-4])+sqr(a[i-3]-a[i-5]));
if ((s1+s2) >= s3) and((s1+s3)>=s2) and ((s2+s3)>=s1 )then
begin
line(a[i-4],a[i-5],a[i-2],a[i-3]);
line(a[i-4],a[i-5],a[i],a[i-1]);
line(a[i-2],a[i-3],a[i],a[i-1]);
end;
end;
end.
