Написать программу с использованием модуля CRT, без array

@NormanJ · Регистрация: 22.10.2012

Студворк — интернет-сервис помощи студентам

Написать программу, которая делит экран на 4 (равные) части закрашивает их в разные цвета.При этом надо чтобы окна появлялись с такой задержкой, чтоб в центре каждого из них выводился результат N четных чисел ( 1<=N<1000), N задается пользователем.
(S - СУММА) S:=2+4+6+...+(2*N)

В первом окне - прога запрашивает количество членов суммы N и повторяет ввод пока не будет введено нужное число.
Во втором - результат работы с циклом for;
В третьем - результат работы с циклом repeat;
В четвертом - результат работы с циклом while.
Заранее спасибо!

@Puporev · 11.11.2012, 14:17

Если немного не понял, поправите.

Pascal

uses crt;
var x,y,w,h,n,i,s:integer;
begin
textbackground(0);
textcolor(15);
clrscr;
x:=1;
y:=1;
w:=40;
h:=12;
window(x,y,x+w,y+h);
textbackground(2);
textcolor(10);
clrscr;
repeat
write('Введите n от 1 до 999 n=');
readln(n);
until (n>0)and(n<1000);
x:=41;
y:=1;
window(x,y,x+w-1,y+h);
textbackground(3);
textcolor(11);
clrscr;
s:=0;
for i:=2 to n do
if i mod 2=0 then s:=s+i;
gotoXY(x div 2-3,h div 2);
write('S=',s);
delay(500);
x:=1;
y:=14;
window(x,y,x+w,y+h-1);
textbackground(6);
textcolor(14);
clrscr;
s:=0;
i:=2;
repeat
s:=s+i;
i:=i+2;
until i>n;
gotoXY(w div 2-3,h div 2);
write('S=',s);
delay(500);
x:=41;
y:=14;
window(x,y,x+w-1,y+h-1);
textbackground(5);
textcolor(13);
clrscr;
s:=0;
i:=2;
while i<=n do
 begin
  s:=s+i;
  i:=i+2;
 end;
gotoXY(x div 2-3,h div 2);
write('S=',s);
delay(500);
readln
end.

@NormanJ 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 10
		1
	Написать программу с использованием модуля CRT, без array 11.11.2012, 12:35. Показов 1164. Ответов 1 Метки нет (Все метки) Написать программу, которая делит экран на 4 (равные) части закрашивает их в разные цвета.При этом надо чтобы окна появлялись с такой задержкой, чтоб в центре каждого из них выводился результат N четных чисел ( 1<=N<1000), N задается пользователем. (S - СУММА) S:=2+4+6+...+(2*N) В первом окне - прога запрашивает количество членов суммы N и повторяет ввод пока не будет введено нужное число. Во втором - результат работы с циклом for; В третьем - результат работы с циклом repeat; В четвертом - результат работы с циклом while. Заранее спасибо! 0

Опции темы

Написать программу с использованием модуля CRT, без array

Решение