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

UptoLike

ВУЗ: 

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

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

Рубрика: 

65
а) for i:=1 to 9 do
read(a[i]);
В цикле организуется
ввод девяти значений элементов массива А: A[1], A[2],..A[9].
б) for i:=1 to 9 do
write(a[i]);
В цикле организуется
вывод девяти значений элементов массива А: A[1], A[2],..A[9].
2.23. Тип массива
Имеется еще одна форма описания, состоящая из двух этапов:
1. Сначала в разделе описания типа TYPE указывается тип массива.
2. Затем, в разделе описания переменных VAR перечисляются массивы, относящиеся к
указанному типу.
Форма объявления массива имеет вид:
TYPE
имя =array[1..20] of real;
Var
имя: имя типа;
[1..20] - тип индекса;
real - базовый тип элемента массива.
Пример:
TYPE
s1=array[1..15] of integer;
var x:s1;
Пример 45. Определить самый высокий рост спортсмена.
program pr45;
const n=10;
type mas= array[1..n] of real;
var
s:mas;
max:REAL;
i:integer;
begin
write('Введите роста 10 спортсменов через интервал');
for i:=1 to n do
readln(s[i]);
max:=s[1];
for i:=2 to n do
if s[i]>max then max:=s[i];
writeln;
writeln('максимальный рост',max:8:3);
end.
Пример 46. Дано а
1
,а
2
,..а
20
. Получить а
20
,а
10
;a
19
,а
9
;..;а
10
..а
1
.
program pr46;
type t = array[1..20] of integer;
var
x:t;
i:integer;
begin 
       а) for i:=1 to 9 do
           read(a[i]);
   В цикле организуется ввод девяти значений элементов массива А: A[1], A[2],..A[9].

   б) for i:=1 to 9 do
       write(a[i]);
   В цикле организуется вывод девяти значений элементов массива А: A[1], A[2],..A[9].

                                        2.23. Тип массива

     Имеется еще одна форма описания, состоящая из двух этапов:
     1. Сначала в разделе описания типа TYPE указывается тип массива.
     2. Затем, в разделе описания переменных VAR перечисляются массивы, относящиеся к
указанному типу.
     Форма объявления массива имеет вид:
    TYPE
    имя =array[1..20] of real;
    Var
      имя: имя типа;
       [1..20] - тип индекса;
        real - базовый тип элемента массива.
   Пример:
     TYPE
      s1=array[1..15] of integer;
      var x:s1;

   Пример 45. Определить самый высокий рост спортсмена.
   program pr45;
    const n=10;
     type mas= array[1..n] of real;
      var
      s:mas;
      max:REAL;
        i:integer;
   begin
     write('Введите роста 10 спортсменов через интервал');
      for i:=1 to n do
       readln(s[i]);
     max:=s[1];
      for i:=2 to n do
       if s[i]>max then max:=s[i];
     writeln;
   writeln('максимальный рост',max:8:3);
   end.

   Пример 46. Дано а1,а2,..а20. Получить а20,а10;a19,а9;..;а10..а1.
   program pr46;
   type t = array[1..20] of integer;
    var
     x:t;
     i:integer;
   begin

                                                                                        65

Страницы