• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

Перевод программы сортировки массива паскаля на c

FaRReLL

New member
07.12.2014
4
0
#1
Код:
program vlad;
uses crt;
var
flag,i,n:integer;
a:array[1..100] of real;
begin
clrscr;
flag:=0;
write('Vvedite N ot 2 do 100; ');
readln(N);
for i:=1 to n do
begin
write('Vvedite ',i,'-i element: ');
readln(a[i]);
end;
i:=1;
while (i<n) and (a[i]<a[succ(i)]) do
inc(i);
if i=n then
flag:=2;
case flag of
1:writeln('Massiv yporadochen po vozrostaniu ');
2:writeln('Massiv yporadochen po ybivaniu');
else
writeln('Massiv neyporadochen. ');
end;
readln;
end.
 
W

Whatka

#2
C++:
//
#include <iostream>
using namespace std;
void main()
{
int N, *a;
cout << "Vvedite N ot 2 do 100:";
cin >> N;

a = new int[N];
for (int i = 0; i < N; i++)
{
cout << "Vvedite " << i + 1 << " element:";
cin >> a[i];
}

bool growUp = true,growDown = true;

for (int i = 0; i < N - 1; i++)
{
if (a[i] < a[i + 1])
growDown = false;
if (a[i] > a[i + 1])
growUp = false;
}
if (growUp)
cout << "Massiv yporadochen po vozrostaniu.\n";
else
{
if(growDown)
cout << "Massiv yporadochen po ybivaniu.\n";
else
cout << "Massiv neyporadochen.\n";
}
}
//