Построить блок-схему и написать код в Pascal

[Iirina]

Построить блок-схему и написать код в Pascal

Задание №1. Составить программу для вычисления прибыли по вкладу в зависимости от введенного срока (1, 3, 5, m лет), если введена процентная ставка и сумма вклада.
Function dohod(sum, stavka:real; srok:integer):real;
Begin
dohod:=sum*(stavka/100/365)*srok;
End;

Задание №2. Составить программу нахождения большего из 4 чисел a,b,c,d с использованием функции поиска большего из двух

Задание №3. Составить программу, которая вычисляет биссектрисы треугольника со сторонами а, b, с по формулам.

Задание №4. В одномерном массиве Y, состоящий из N целых элементов, вычислить:
a) количество нулевых элементов;
b) произведение элементов кратных 5.

Задание №5. Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент каждого столбца.

Задание №6. Сформировать квадратную матрицу порядка n по заданному образцу:
1•2 0 0 . 0 0 0
0 2•3 0 . 0 0 0
0 0 3•4 . 0 0 0
............
0 0 0 . 0 (n-1) • n 0
0 0 0 . 0 0 n•(n+1)

Задание №7. Дан линейный неупорядоченный массив А, состоящий из 20 целых чисел. Составить программу, которая определяет количество инверсий в массиве, т. е. таких пар элементов, в которых большее число находится левее меньшего.

 

[Евгений]

Задание №4

var  x:array[1..50] of integer;
     i,n,m,t,e:integer;
begin
      Write('Razmer massiva = ');
       Readln(n);
        Writeln;
       m:=0; t:=1;
        Randomize;
         for i:=1 to n do
          begin
            x[i]:=Random(20);
             Write(x[i]:3);
              if x[i]=0
               then Inc(m);
                e:=x[i];
                 if (e mod 5)=0
                  then t:=t*e;
          end;
           Writeln; Writeln;
      Writeln('Nulevih elementov = ',m);
      if t>1
       then Writeln('Proizvedenie kratnih 5-i = ',t)
       else Writeln('Net elementov kratnih 5-i');
    Readln;
end.

 

[Евгений]

Задание №5

var  A:array[1..20,1..20] of integer;
     min,i,j,n:integer;
begin
      Write('Razmer <=20 = ');
       Readln(n);
        Writeln;
      Writeln('Massiv:');
       Writeln;
        Randomize;
         for i:=1 to n do
          begin
            for j:=1 to n do
             begin
               A[i,j]:=Random(50);
                Write(A[i,j]:3);
             end;
            Writeln;
          end;
         Writeln;
      j:=1;
      repeat
       min:=A[1,j];
        for i:=2 to n do
         if A[i,j]<min
          then min:=A[i,j];
           Writeln('V stolbce ',j,' min = ',min);
            Inc(j);
      until j>n;
     Readln;
end.

 

[Евгений]

Задание №7

var  A:array[1..20] of integer;
     i,t:integer;
begin
      Writeln('Massiv A:');
       Writeln;
        Randomize;
         for i:=1 to 20 do
          begin
            A[i]:=Random(50);
             Write(A[i]:3);
          end;
         Writeln;
        Writeln;
      t:=0;
       for i:=2 to 20 do
        if A[i]<A[i-1] then
         begin
           Writeln('( ',A[i-1],'  ',A[i],' )');
            Inc(t);
         end;
        Writeln;
       Writeln('Vsego inversiy = ',t);
      Readln;
end.

 

[Vladimir_S]

М-да, исключительно для ради репутации форума, ибо подобную "помощь", которая говорит лишь о полном неумении студента справиться с задачками ясельного уровня, сугубо не одобряю.
Впрочем, вероятность того, что Iirina появится здесь еще хоть раз, невелика. Ну да ладно.

Задание №2

Var
 a,b,c,d:real;

Function Max2(z1,z2:real):real;
begin
 if z1>z2 then Max2:=z1 else Max2:=z2;
end;

Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 Write('d = ');
 Readln(d);
 Writeln('Maximal number is ',Max2(Max2(Max2(a,b),c),d):0:3);
 Readln
End.

________
Задание №6

Const
 N=10;

Var
 M:Array[1..N,1..N] of Word;
 i,j:byte;

Begin
 for i:=1 to N do
  for j:=1 to N do
   M[i,j]:=0;
 for i:=1 to N do M[i,i]:=i*(i+1);
 for i:=1 to N do
  begin
   for j:=1 to N do write(M[i,j]:4);
   writeln;
  end;
 Readln
End.