1 Відповідь від ulia_oleynik

(6 відповідей, залишених у Pascal/Delphi)

а тут 1 процедура повинна бути чи декілька?

Перейти до форуму: Pascal/Delphi

2 Відповідь від ulia_oleynik

(6 відповідей, залишених у Pascal/Delphi)

Torbins, якби я знала...
Було завдання:
Дан масив цілих чисел а1...а20, упорядкувати всі елементи цього масиву таким чином: спочатку повинні йти всі негативні елементи, впорядковані по убуванню, потім нулі, потім позитивні числа, впорядковані по зростанню.
Я дивом зробила цю програму, а потім викладач сказав зробити це ж завдання використовуючи підпрограму типу функцій або типу процедури

Перейти до форуму: Pascal/Delphi

3 Тема від ulia_oleynik

(6 відповідей, залишених у Pascal/Delphi)

Допоможіть, будь ласка, переробити програму, використовуючи підпрограму типу функцій

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,k,x:integer;
begin
clrscr;
randomize;
writeln('Вихідний масив:');
for i:=1 to n do
 begin
  a[i]:=-9+random(19);
  write(a[i],' ');
 end;
writeln;
writeln;
{упорядковуємо негативні елементи}
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]<0)and(a[j]<0)and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
{упорядковуємо позитивні елементи}
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]>0)and(a[j]>0)and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Упорядкування:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{Перестановка негативних елементів вперед}
k:=0;
for i:=1 to n do
if a[i]<0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка негативних елементів вперед:');
for i:=1 to n do
write(a[i],' ');
readln
end.

Перейти до форуму: Pascal/Delphi

4 Тема від ulia_oleynik

(4 відповідей, залишених у Pascal/Delphi)

Скласти програму, використавши підпрограму типу функції.
y=f(a)+f(b)+f(c) де f(x)=sin^3(x^2)+cos^5(x^4).
Допоможіть, будь ласка.

Перейти до форуму: Pascal/Delphi