Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 43 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

теста
1 1
2
3
"Да" +
+
-
(кц)
-
-
2 1 "Да"
"Нет"
+
-
(кц)
+
Turbo Pascal
Program Decrease;
Uses Crt;
Var A : Array [1..10] of Real;
N, i : Integer;
Otvet: Boolean;
{--------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода данных}
Begin
ClrScr;
Write(’Количество элементов - ’); ReadLn(N);
For i := 1 to N do
begin Write(’A[’ , i , ’] = ’);
ReadLn(A[i])
end; WriteLn;
WriteLn(’Заданная последовательность чисел’);
For i := 1 to N do Write(A[i] : 5 : 1);
WriteLn
End; { of InputOutput }
{--------------------------------------------}
Procedure Processing( Var Otvet: Boolean);
Begin {описание процедуры проверки на убывание
элементов}
Otvet := TRUE; i:=1;
While (i<=N–1) and Otvet do
If (A[i]<A[i+1]) then Otvet := FALSE
else i := i+1;
End; { of Processing }
{--------------------------------------------} 
 теста

   1     1   "Да"      +    -
         2             +    -
         3             -
                     (кц)

   2     1   "Да"      +    +
             "Нет"     -
                     (кц)




Turbo Pascal
Program Decrease;
  Uses Crt;
  Var A       : Array [1..10] of Real;
       N, i : Integer;
       Otvet: Boolean;
{--------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода данных}
 Begin
  ClrScr;
  Write(’Количество элементов - ’); ReadLn(N);
  For i := 1 to N do
   begin Write(’A[’ , i , ’] = ’);
            ReadLn(A[i])
   end; WriteLn;

  WriteLn(’Заданная последовательность чисел’);
  For i := 1 to N do Write(A[i] : 5 : 1);
  WriteLn
 End; { of InputOutput }
{--------------------------------------------}
Procedure Processing( Var Otvet: Boolean);
 Begin              {описание процедуры проверки на убывание
элементов}
  Otvet := TRUE; i:=1;
  While (i<=N–1) and Otvet do
   If (A[i]

Страницы