14.01.2013, 14:19 | #1 (permalink) |
Новичок
Регистрация: 11.01.2013
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из С в Паскаль
Положение критическое уже неделю сижу на кофе... сплю если только сам отключусь хочу Умереть!!! тупо времени не хватает... Вся эта байда написана на Си, хотя это и так видно, нужно сие безумного ума перевести в Паскаль... // 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[i][j]); } } } else { printf("Vvod elementov avtomaticheski\n"); for(i=0;i<k;i++) { for(j=0;j<k;j++) { a[i][j]=rand()%10; } } } printf("Matrica\n"); for(i=0;i<k;i++) { for(j=0;j<k;j++) { printf("%d",a[i][j]); } printf("\n"); } for(i=0;i<k;i++) { min=a[i][0]; max=a[i][0]; for(j=0;j<k;j++) { if(a[i][j]>max) { max=a[i][j]; } else if(a[i][j]<min) { min=a[i][j]; } } a[i][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[i][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[i][j]); } printf("\n"); } return 0; } |
14.01.2013, 14:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблему решать гораздо легче, если набраться информации из схожих тем Паскаль Паскаль Паскаль Паскаль Паскаль |
14.01.2013, 16:53 | #4 (permalink) | ||
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Цитата:
если мне не изменяет память то как-то так: Цитата:
|
||
14.01.2013, 17:09 | #5 (permalink) |
Новичок
Регистрация: 11.01.2013
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
чувак ты меня просто от плахи спасаешь
искренне благодарен |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.01.2013, 17:49 | #6 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Не за что =) Рад, что помог =)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|