2. Самостоятельная работа

3. Вариант 1

1. Укажите, что будет напечатано в результате выполнения следующей программы:

Var a:array[1..3, 1..3] of integer;

i,j: integer;

Begin

For i:=1 to 3 do

For j:=3 downto 1 do

If i > j then

a[i,j]:=10 * i + j;

else

a[i,j]:=10 * i - j;

for i:=1 to 3 do begin

For j:=1 to 3 do

write (a[i,j], ' ')'

writeln (' ');

End;

End.

2. Вариант 2

1. Укажите, что будет напечатано в результате выполнения следующей программы:

Var a:array[1..3, 1..3] of integer;

i,j: integer;

Begin

i:=1;

while i<=3 do

begin

for j:=1 to 3 do

begin

a[i,j]:=10 * i - j;

write (a[i,j], ' ')'

end;

i:=i+1;

writeln (' ');

End;

End.

Список используемых источников

1. Меженный, О.А. Turbo Pascal. Учитесь программировать / О.А Меженный. – М.: Диалектика, 2001. -88 с.

2. Житкова, О.А. Справочные материалы по программированию на языке Паскаль / О.А. Житкова, Е.К. Кудрявцева. – М.: Интеллект-центр, 2002. – 77 с.

3. Попов, В.Б. Turbo Pascal для школьников / В.Б. Попов. – М.: Финансы и статистика, 2001. – 518 с.

4. Анеликова, Л.А. Тесты. Информатика и информационные технологии. 6-11 классы / Л.А. Анеликова. – М.: Дрофа, 2007. – 251 с.

5. Васюков, Н.Д. Практикум по основам программирования язык Паскаль / Н.Д. Васюков, В.В.Тюляева. – М.: Высшая школа, 2000. – 200 с.

6. Рапаков, Г.Г. Turbo Pascal для студентов и школьников / Г.Г. Рапаков, С.Ю. Ржеужкая. – СПб.: БХВ-Петербург, 2009. – 352 с.

7. Фаронов, В.В. TURBO PASCAL 7.0 / В.В.Фаронов. – М.: Нолидж, 2000. – 312 с.

8. Марченко, А.И. Программирование в среде TurboPascal 7.0 /А.И.Марченко. – М.: Бином Универсал, 2000. – 485 с.

9. Моргун, А.Н., Кривель И.А. Программирование на языке Паскаль. Основы обработки структур данных / А.Н. Моргун, И.А. Кривель. – М.: Издательский дом «Вильямс», 2006. – 576 с.

10. Зубов, В.С. Программирование на языке TP / В.С.Зубов. – М.: ТТО «Филинъ», 2000. –301 с.

43