Автор Вероника Васькович задал вопрос в разделе Другие языки и технологии
Помогите пожалуйста составить программы в ABC pascal с циклом While! и получил лучший ответ
Ответ от Redis[гуру]
синтаксис у while такой:
while (условие = истина) do block;
Где блок это или одна команда, или бегин-енд с несколькими.
Ответ от Sasha Programmer[гуру]
№1.
var
i:integer;
begin
i:= 1;
while i <= 10 do begin
write(i,' ');
inc(i);
end;
end.
================================
№2.
var
i,j,a:integer;
begin
i:= 1;
while i <= 10 do begin
a := i;
for j := 1 to 3 do begin
write(a:5);
a := a * i;
end;
inc(i);
writeln();
end;
end.
=========================
№3.
var
i:integer;
begin
i := 10;
while i <= 20 do begin
if(i mod 2 = 0) then writeln(i);
// if not(odd(i)) then writeln(i);
inc(i);
end;
end.
№1.
var
i:integer;
begin
i:= 1;
while i <= 10 do begin
write(i,' ');
inc(i);
end;
end.
================================
№2.
var
i,j,a:integer;
begin
i:= 1;
while i <= 10 do begin
a := i;
for j := 1 to 3 do begin
write(a:5);
a := a * i;
end;
inc(i);
writeln();
end;
end.
=========================
№3.
var
i:integer;
begin
i := 10;
while i <= 20 do begin
if(i mod 2 = 0) then writeln(i);
// if not(odd(i)) then writeln(i);
inc(i);
end;
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите пожалуйста составить программы в ABC pascal с циклом While!
Как сделать анимацию в Paskal Abc.net ?
uses
GraphABC;
var
x : integer;
begin
//for x := 0 to 500 do
подробнее...
Ребят я тут начал изучать Pascal ABC и мне нужны все команды с объяснением
в комплекте идут хорошие пример-обуалки по всем нужным для старта операторам.
а так смотри оф.
подробнее...
Pascal abc задачи с текстом, вроде не сложно а алгоритм не могу понять(
все варианты будут лежать в одном большом цикле
Assign(...
Reset(....
while
подробнее...
спросили в Vocaloid
Написать программу на Pascal ABC с графикой
program salyt;
uses crt,graphABC;
var vx,vy: integer;
procedure Vzlet(x,k:
подробнее...
Написать программу на Pascal ABC с графикой
program salyt;
uses crt,graphABC;
var vx,vy: integer;
procedure Vzlet(x,k:
подробнее...
спросили в Randomness
Движение, анимация в Pascal ABC. HELPP!)
Запихни смайл в цикл, и каждый прогон увеличивай координаты на
подробнее...
Движение, анимация в Pascal ABC. HELPP!)
Запихни смайл в цикл, и каждый прогон увеличивай координаты на
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Randomness Игры Level 5
Приведите пример игры которая написана на Pascal ABC.
uses GraphABC, crt;
label metka,metka2;
var x,y: array [1..100] of integer;
подробнее...
Приведите пример игры которая написана на Pascal ABC.
uses GraphABC, crt;
label metka,metka2;
var x,y: array [1..100] of integer;
подробнее...
спросили в RFID Rhabditida
Помогите Pascal ABC операторы и их функции -Goto -Break -Continue -Exit -if -case -for -while -repeat -witch
у операторов нет функций,
подробнее...
Помогите Pascal ABC операторы и их функции -Goto -Break -Continue -Exit -if -case -for -while -repeat -witch
у операторов нет функций,
подробнее...
как перевести двоичный код в текст?
Не знаю про волшебные программы, но Excel вполне с этим справляеться.
с копируй всю эту
подробнее...
спросили в Randomness
Помогите.. Как двигать например круги в паскале?
рисовать, например, со смещенным
подробнее...
Помогите.. Как двигать например круги в паскале?
рисовать, например, со смещенным
подробнее...