Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 34 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

34
var {Раздел описания переменных}
s:real;
i:integer;
a:array[1..x] of real; {описание массива}
begin
writeln('Введите ',x,' чисел'); {Вывод сообщения}
for i:=1 to x do {Цикл для ввода элементов массива}
readln(a[i]); {ввод с клавиатуры значений в массив}
s:=0; {Обнуление переменной для накапливания суммы}
writeln('Введенный массив');
for i:=1 to x do {Начало цикла для вывода элементов массива}
begin
write(a[i]:5:1,’ ‘); {вывод значений массива на экран}
s:=s+a[i]; {
Накапливание суммы элементов массива}
end; {Конец цикла}
writeln; {переход на новую строку}
writeln('Сумма элементов массива s= ',s:5:1);
end. {Конец программы}
Пример задачи с двумерным массивом
Задача № 7. Набрать, отредактировать, отладить и выполнить программу
формирования единичной матрицы M2(10*10).
Программа решения задачи имеет вид:
program mas_2; {заголовок программы}
var
i,j:integer;
M2:array[1..10,1..10] of integer; {описание массива}
begin
for i:=1 to 10 do {
Цикл для ввода элементов массива по строкам}
for j:=1 to 10 do {Цикл для ввода элементов массива в строке}
if i=j Then M2[i,j]:=1 Else M2[i,j]:=0; {ввод значений элементов
массива}
writeln ('Единичный массив');
for i:=1 to 10 do {Цикл для вывода элементов массива по строкам}
begin {начало цикла по строкам}
for j:=1 to 10 do{Цикл для вывода элементов массива по элементам
строки}
write(M2[i,j]:5,’ ‘); {вывод значений массива строки на
экран}
Writeln; {переход на новую строку}
End; {конец цикла по строкам}
end. {Конец программы}

Страницы