ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 30

ЗАПОЛНЕНИЕ И ВЫВОД МАССИВОВ

Заполнить и вывести на экран одномерный массив целых чисел.

Program Primer1; uses crt;

var a: array[1..5] of integer;

i: integer;

Begin

clrscr;

{******* заполнение массива c клавиатуры *******}

for i:=1 to 5 do

Begin

write('a[',i,']='); readln(a[i]);

end;

clrscr;

{***** вывод массива на экран *****}

Write(‘Массив А: ’); for i:=1 to 5 do write(a[i],’ ‘);

readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Увеличить число элементов массива.

3. Описать размерность массива с помощью переменных.

4. Оформить программу с помощью процедуры ввода массива и процедуры вывода массива на экран.

5. Заполнить массив нулями.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 31

ЗАПОЛНЕНИЕ И ВЫВОД МАССИВОВ (продолжение)

Заполнить и вывести на экран одномерный массив символов.

Program Primer2; uses crt;

const a: array[1..5] of char=('a','b','c','d','e');

procedure Print(n: integer);

var i: integer;

Begin

for i:=1 to n do write (a[i]:2)

end;

Begin

clrscr;

write('Массив А: '); Print(5);

readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Вывести на экран первые 3 буквы.

3. Вместе с тремя буквами вывести на экран последнюю букву.

3. Заполнить массив дробными и отрицательными значениями.

4. Заполнить и вывести на экран одномерный массив, содержащий 200 одинаковых элементов.

5. Вывести элементы построчно ( используйте wherex,см. практическое занятие 17 ).

6. Вывести элементы в указанной с клавиатуры строке экрана.