: 34
Узор из окружностей
Ребят помогите.В паскале новичок.Нужно вывести узор из окружностей .Мне тут ребята помогли сделать,но тут окружности рисуются рандомно .Нужно что бы рисовал какой нибудь узор .Вот код
uses GraphABC; begin var d := ReadInteger(‘d =’); WriteLn(d); d := d shr 1; WriteLn(‘0-чёрный 1-красный 2-зелёный 3-жёлтый 4-синий 5-фиолетовый 6-бирюзовый 7-белый’); var c := ReadInteger(‘c =’) and 7; WriteLn(c); LockDrawing; if c and 7 > 0 then begin Brush.Color := rgb(0,0,0); Window.Clear(rgb(0,0,0)); end else Window.Clear; Pen.Color := rgb((c and 1) * 255, ((c shr 1) and 1) * 255, ((c shr 2) and 1) * 255); for var i := 1 to 100 do DrawCircle(Random(d, Window.Width — d), Random(d, Window.Height — d), d); unLockDrawing end.
Последний раз редактировалось Вадим Мошев; 10.02.2017 в 22:32 .
Форумчанин
: 786
uses GraphABC; var x,y:integer; begin SetWindowSize(700,500); for y:=0 to 499 do for x:=0 to 699 do begin if trunc((x*x+y*y)/200) mod 2 = 1 then PutPixel(x,y,clwhite) else PutPixel(x,y,clblack); end; end.
Источник: www.programmersforum.ru
Подпрограммы в Pascal
Написать программу на паскале которая выводит изображенный ниже узор
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
- Алгебра
- Математика
- Русский язык
- Українська мова
- Информатика
- Геометрия
- Химия
- Физика
- Экономика
- Право
- Английский язык
- География
- Биология
- Другие предметы
- Обществознание
- История
- Литература
- Українська література
- Беларуская мова
- Қазақ тiлi
Показать ещё
Как написать программу на Pascal за 30 секунд.
Источник: www.shkolniku.com
Написать программу на паскале которая выводит изображенный ниже узор
Привет Лёва Середнячок
Написать программу, которая выводит изображенный ниже узор. Turbo Pascal
5 (1 оценка)
PatifonKakao 8 лет назад
Светило науки — 196 ответов — 2307 раз оказано помощи
uses graph;
const
R=100;
var
drive,mode:integer;
path:string;
x,y,i,j:integer;
begin
drive:=detect;
InitGraph(Drive,Mode,Path);
x:=400;
for i:=1 to 5 do
begin
y:=100;
x:=x+150;
for j:=1 to 4 do
begin
circle(x,y,R);
y:=y+150;
end;
end;
end.
Источник: vashurok.com