Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Ввести массив, описанный в примере 8.5, «по столбцам». Вывести часть элементов этого массива, расположенных в строках с номерами 3, 4, 5 и в столбцах с номерами 7-10. Вывод осуществлять «по строкам».
begin
for k:=0 to 10 do
for i:=0 to 5 do read(c[i,k]);
for i:=3 to 5 do
for k:=7 to 10 do write(c[i,k]);
end;
Пример 8.7
Написать фрагмент программы, содержащий вывод матрицы C(10 ´ 20) в виде таблицы, содержащей 10 строк и 20 столбцов. Индексацию строк начать с –1, столбцов с 0.
program abcd;
var c:array [-1..8,0..19] of real;
i,j:integer;
begin
.
.
.
for i:=-1 to 8 do
begin
for j:=0 to 19 do write(c[i,j]:8:3);
writeln
end
end.
Тело внутреннего цикла содержит два оператора: for и writeln. После того, как оператор for выведет очередную строку матрицы, оператор writeln осуществляет переход на новую строку.
Дата публикования: 2015-01-24; Прочитано: 141 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!