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

Iirina · 15.12.2015, 20:50

Задание №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 целых чисел. Составить программу, которая определяет количество инверсий в массиве, т. е. таких пар элементов, в которых большее число находится левее меньшего.

Евгений · 16.12.2015, 12:21

Задание №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.

Евгений · 16.12.2015, 12:41

Задание №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.

Евгений · 16.12.2015, 13:05

Задание №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 · 16.12.2015, 15:18

М-да, исключительно для ради репутации форума, ибо подобную "помощь", которая говорит лишь о полном неумении студента справиться с задачками ясельного уровня, сугубо не одобряю.
Впрочем, вероятность того, что 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.

15.12.2015, 20:50	#1 (permalink)
Iirina Новичок Регистрация: 15.12.2015 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Построить блок-схему и написать код в 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 целых чисел. Составить программу, которая определяет количество инверсий в массиве, т. е. таких пар элементов, в которых большее число находится левее меньшего.

16.12.2015, 13:05	#4 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	Задание №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.

16.12.2015, 15:18	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,809 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	М-да, исключительно для ради репутации форума, ибо подобную "помощь", которая говорит лишь о полном неумении студента справиться с задачками ясельного уровня, сугубо не одобряю. Впрочем, вероятность того, что 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070