Паскаль в примерах. Иринчеев А.А - 70 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

70
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3;
writeln;
end;
writeln (‘ Элементы побочной диагонали над главной ‘);
for i:=1 to n do
begin
for j:=1 to n do
if (j>i) and (i+j=2*i+1) then writeln (a[i,j]);
end;
writeln (‘ Элементы побочной диагонали под главной ‘);
for i:=1 to n do
begin
for j:=1 to n do
if (j<i) and (i+j=2*j+1) then writeln (a[i,j]);
end;
end.
Пример 55. Дан одномерный массив. Повести ранжирование элементов массива по возраста-
нию.
program pr55;
const n=4;
var
a:array [1..n] of integer;
i,x,k:integer;
begin
writeln(' Введите массив из ',n,’ чисел ‘);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for k:=n-1 downto 1 do
if a[k]>a[k+1] then
begin
x:=a[k];
a[k]:=a[k+1];
a[k+1]:=x;
end;
for I:=1 to n do
writeln(' ‘,a[i]:4);
end.
2.24. Строки
Для обработки строки символов, например, фамилии, названия и т.д. используется тип
данных string. Этот тип данных облегчает программирование операций над строками.
В описании типа string длина строки может принимать любое целое значение от 1 до
255. Если длина не указана, то берется максимальная длина 255. Для переменной типа 
   begin
  for i:=1 to n do
   for j:=1 to n do
      read(a[i,j]);
  for i:=1 to n do
 begin
   for j:=1 to n do
   write(a[i,j]:3;
    writeln;
 end;
   writeln (‘ Элементы побочной диагонали над главной ‘);
  for i:=1 to n do
    begin
     for j:=1 to n do
       if (j>i) and (i+j=2*i+1) then writeln (a[i,j]);
    end;
   writeln (‘ Элементы побочной диагонали под главной ‘);
  for i:=1 to n do
    begin
     for j:=1 to n do
       if (ja[k+1] then
    begin
    x:=a[k];
     a[k]:=a[k+1];
     a[k+1]:=x;
    end;
for I:=1 to n do
writeln(' ‘,a[i]:4);
 end.

                                       2.24. Строки
     Для обработки строки символов, например, фамилии, названия и т.д. используется тип
данных string. Этот тип данных облегчает программирование операций над строками.
     В описании типа string длина строки может принимать любое целое значение от 1 до
255. Если длина не указана, то берется максимальная длина 255. Для переменной типа

                                                                                     70

Страницы