15.12.2015, 20:50
|
#1 (permalink) |
|
Новичок
Регистрация: 15.12.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Построить блок-схему и написать код в Pascal
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 целых чисел. Составить программу, которая определяет количество инверсий в массиве, т. е. таких пар элементов, в которых большее число находится левее меньшего. |
|
|
|
15.12.2015, 20:50
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема по описанию очень схожа с этими топиками Помогите, пожалуйста, построить блок схему по программе Помогите написать программу в Turbo Pascal и составить блок-схему Построить блок-схему Помогите написать блок схему Помогите написать блок схему Помогите написать блок-схему |
|
16.12.2015, 12:21
|
#2 (permalink) |
|
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Задание №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
|
#3 (permalink) |
|
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Задание №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
|
#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) |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 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
|
|
 |
|
|
Линейный вид
