Из С в Паскаль

[sleepking89]

Из С в Паскаль

:tehnari_ru_837:Народ завтра экзамен, пересдача экзамена, 3 зачета... :tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837:
Положение критическое:tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837:
) уже неделю сижу на кофе... сплю если только сам отключусь tehnosleep хочуtehno039 Умереть!!! tehno039
тупо времени не хватает...
Вся эта байда написана на Си, хотя это и так видно, нужно сие безумного ума перевести в Паскаль...
// pascal.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include <stdlib.h>


int _tmain(int argc, _TCHAR* argv[])
{
int a[30][30],k,o,i,j,min,max,u,h,n;

printf("Vvedite razmernost matrizi\n");
scanf("%d",&k);

printf("Kak zapolnat matrizu\n 1-V ruchnuy\n 2-Rand\n");
scanf("%d",&o);
if(o==1)
{
printf("Vvodite elementi\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
scanf("%d",&a[j]);
}
}
}
else
{
printf("Vvod elementov avtomaticheski\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
a[j]=rand()%10;
}
}

}
printf("Matrica\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[j]);
}
printf("\n");
}

for(i=0;i<k;i++)
{
min=a[0];
max=a[0];
for(j=0;j<k;j++)
{
if(a[j]>max)
{
max=a[j];
}
else if(a[j]<min)
{
min=a[j];
}
}
a[0]=(min+max)/2;
}

printf("\nMatrica izmenenay po zadaniy 1\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[j]);
}
printf("\n");
}

for(i=1;i<k;i++)
{
for(j=0;j<=i;j++)
{

for(u=0;u<k;u++)
{
for(h=k-1;h>u;h--)
{
if (a[h-1][j]<a[h][j])
{
n=a[h-1][j];
a[h-1][j]=a[h][j];
a[h][j]=n;
}
}

}
}
}

printf("\nMatrica otsortirovanay po zadaniy 2\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[j]);
}
printf("\n");
}

return 0;
}

 

[Vladimir_S]

Вся эта байда написана на Си, хотя это и так видно, нужно сие безумного ума перевести в Паскаль...

Вы даже не представляете, насколько легче было бы Вам помочь, сформулируй Вы задание. А так...

 

[sleepking89]

а ну да... чёт совсем уже перестаю думатьtehno032...

 

[Gruvi]

Procedure SortDan;
const
m=6;
var s:boolean;
max,min,
x,
i,j,
i2,j2:integer; {Номера строк и столбцов}
k,k2:array[1..m,1..m] of integer;
begin
k2:k
for i:=1 to m do
begin
max:=k2[i,1];
min:=k2[i,1];
for j:=2 to m do
begin
if k2[i,j]>max then max:=k2[i,j];
if k2[i,j]<min then min:=k2[i,j];
end;
k2[i,1]:=(max+min) div 2;
end;

осталось только отсортировать. (в поисковике можешь вбить сортировка пузырьком)

если мне не изменяет память то как-то так:

program VR;
uses crt;
const
N=5;
var
a:array[1..N] of integer;
buf:integer;
j,i:integer;
begin
for i:=1 to N-1 do
read (a);
readln(a[N]);
writeln('Sort...');
for i:=1 to N-1 do
begin
for j:=1 to N-1 do
begin
if a[j]>a[j+1] then
begin
buf:=a[j];
a[j]:=a[j+1];
a[j+1]:=buf;
end;
end;
for j:=1 to n do
write(a[j],' ');
writeln;
end;
end.

 

[sleepking89]

tcelobitnaja чувак ты меня просто от плахи спасаешь tehno039
tehno006 искренне благодарен tehno011 tehno016

 

[Gruvi]

Не за что =) Рад, что помог =)