Язык программирования Pascal. Строки и записи. Васильев В.В - 24 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

24
write('Радиус : '); readln(radius);
end;
Rectangle: begin
write('Координаты точек на диагонали: ');
readln(s1.x, s1.y, s2.x, s2.y)
end;
Triangle: begin
write('Координаты вершин треугольника: ');
readln(t1.x, t1.y, t2.x, t2.y, t3.x, t3.y)
end;
end;
end;
{Подсчет количества новых цветов}
s:=0; j:=0;
for i:=1 to n do
with List[i] do
if FigureType=Rectangle
then
begin
inc(j); Mas[j]:=Color
end;
c:=j; {количество прямоугольников}
r:=false; g:=false; b:=false;
for i:=1 to c do
begin
if Mas[i]=Red then r:=true;
if Mas[i]=Green then g:=true;
if Mas[i]=Blue then b:=true;
end;
if r and g then s:=s+1;
if r and b then s:=s+1;
if b and g then s:=s+1;
if r and g and b then s:=s+1;
writeln('Количество новых цветов = ',s);
readkey
End.{New_Color}
Массив Mas можно было заполнить цветами прямоугольников при вводе
информации о фигурах . Мы разделили в программе блоки ввода и обработки
вариантных записей для учебных целей , чтобы показать , как записать и полу-
чить доступ к альтернативным группам полей .
Подготовьтесь к ответам на все(!) контрольные вопросы и выполните
все(!) контрольные задания. Дорогу осилит идущий!
Контрольные вопросы и задания

Страницы