ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ Нарисуйте вертикальные линии от левого края граф...

July 2022 1 19 Report

ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ
Нарисуйте вертикальные линии от левого края графического окна до правого. Расстояние между линиями задаётся с клавиатуры. (Функция WindowWidth возвращает ширину графического окна)
__________________________________________________________
желательно в решении использовать процедуры.Буду очень благодарна !!!

Answers & Comments

влад540 Uses graphabc;procedure vvod(var r: integer);//процедура ввода переменнойbegin writeln('Введите ширину отступа');//запрос на ввод read(r);//считывание переменнойend;procedure linii(r: integer);//процедура рисования линийvar x: integer;begin x:=0;//присваивание начального значения while x<windowwidth do//выполнение действия пока не дойдет до конца экрана begin line(x,0,x,100);//рисование линии x:=x+r;//присваивание нового значения х end;end;var r:integer;begin vvod(r);//запрос ввода переменной linii(r);//запрос рисования линийend.

6 votes Thanks 5

влад540 ща

влад540 по другому отправлю

влад540 uses graphabc;
procedure vvod(var r: integer);
begin
writeln('Введите ширину отступа');
read(r);
end;
procedure linii(r: integer);
var
x: integer;
begin
x:=0;
while x<windowwidth do
begin
line(x,0,x,100);
x:=x+r;
end;
end;
var
r:integer;
begin
vvod(r);
linii(r);
end.

Answers & Comments

s klaviatury vvoditsya celoe polozhitelnoe chislo opredelit skolko v etom chisl

s klaviatury vvoditsya celoe polozhitelnoe chislo vychislit summu nechyotnyh cifr

s klaviatury vvodyatsya dva naturalnyh chisla a b altb najti v diapazone ot592894d191daee788e00f9e8285cf27d 34407

s klaviatury vvodyatsya dva naturalnyh chisla a b altb najti v diapazone ot

Xfact(n - k)* Xfact(k); writeln('C = ',c); end...

pascalfunkciis klaviatury vvodyatsya dva celyh chisla a i b najti i vyvesti na e

kompyuter vydaet oshibkuvstrechen konec fajla a ozhidalsya operator pomogite ispr

informatikapaskaltemacikl so schyotchikom narisovat n koncentricheskih okruzhnos

8...

ukazhite znachenie kakogo vyrazheniya kratno 3128 7 11 2227 5 15 431

рекомендуемые вопросы

Helpful Links

Helpful Social