День добрый нужна помощь в переводи с языка с на паскаль программки одной.,так как пока только знаю паскаль и немного делфи...си вообще не знаком
#include <stdio.h> #include<stdlib.h> #include<dir.h> #include<string.h> #include<fstream.h> #include<conio.h> #include<fstream.h> #include <conio.h> void main(){ int i,j,n; int a[5][5]; int b[5][5]; clrscr(); ifstream inp_file("input.txt"); if (!inp_file) { printf("Error!!! File not found! Press any key to exit"); getch(); exit(1); } if (inp_file) { inp_file>>n; for (int i=0;i<n;i++) for (int j=0;j<n;j++) inp_file>>a[i][j]; } inp_file.close();
printf("Ishodnaya matrica \n\n"); for (i=0;i<5;i++) { printf("\n"); for (j=0;j<5;j++) { b[i][j]=a[i][j]; printf("%3i",a[i][j]); } } int flag; while (flag) { flag=0; for (i=0;i<5;i++) for (j=0;j<5;j++) if((i!=j)&&a[i][j]) for(int k=0;k<5;k++) if(k!=i&&k!=j&&a[j][k]&&(a[i][k]==0||a[i][k]>a[i][j]+a[j][k])) { a[i][k]=a[i][j]+a[j][k]; flag=1; } } int max=0; int r[5]; for (i=0;i<5;i++) r[i]=0; for (i=0;i<5;i++) for (j=0;j<5;j++) if (a[i][j]>max) max=a[i][j]; printf("\n\nDiametr raven %i;\n",max); for (i=0;i<5;i++) for (j=0;j<5;j++) if (a[i][j]>r[i]) r[i]=a[i][j]; for (i=0;i<5;i++) printf("\nExcentrisitet ь%i is %i;",i+1,r[i]);
int min=9999; for (i=0;i<5;i++) if (min>r[i]) min=r[i]; printf("\n\nRadius raven %i;\n",min);
printf("\n\nCentralnaye vershini:\n"); for (i=0;i<5;i++) if (r[i]==min) printf("%i \n",i,r[i]); getch(); }
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.