Перейти к содержимому


Помогите


В теме одно сообщение

#1 Леп икон

    Абитуриент

  • Пользователи
  • 1 сообщений

Отправлено 10 Апрель 2009 - 10:22

Люди!!! Помогите пожалуйста решить задачу. Я ни чего в Паскале не понимаю, пожалуйста, очень к завтра нужно, Помогите
А. Создайте программу, которая заполняет массив 6х12 числами по следующему правилу:
1 2 3 4 5 6 7 8 9 10 11 12
2 4 6 8 10 12 14 16 18 20 22 24
3 6 9 12 15 18 21 24 24 30 33 36
5 10 15 20 25 30 35 40 45 50 55 60
6 12 18 24 30 36 42 48 54 60 66 72
Каждый элемент равен произведению индексов.
Б. Выведите созданный массив на экран.

#2 elysian

    Абитуриент

  • Пользователи
  • 2 сообщений

Отправлено 11 Декабрь 2009 - 17:23

Program Matrix;
uses CRT;
const
a:array[1..12] of integer=(1,2,3,4,5,6,7,8,9,10,11,12);
var
i,j,index:integer;
begin
ClrScr();
for j:=1 to 5 do
begin
 inc(index,1);
  for i:=1 to 12 do
   begin
	write(a[i]*index,' ');
	 delay(156);
	  end;
	   if (a[i]=12) then
		begin
		 writeln;
		  writeln;
		   end;
			if (index=3) then index:=4;
			 end;
			  Readln();
			   end.





Ответить



  


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных