|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2008, 17:58 | #1 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Из С++ в Паскаль
Здравствуйте!!!! Помогите пожалуйста переписать программу из Turbo C++ в Паскаль! Сам не могу, с Паскалем дело не имел!!
КОД: #include <stdio.h> #include <math.h> #include <stdlib.h> typedef float vect[100]; typedef vect matr[100]; void vvod(vect A[],int* n,int* m,FILE *fin) { int i,j; fscanf(fin,"%d%d\n",& *n,& *m); for(i=0;i< *n;i++) { for(j=0;j< *m;j++) fscanf(fin,"%f",&A[i][j]); fscanf(fin,"\n"); } } float max(vect A[ ],int n,int m) { int i,j; float max; max=A[1][1]; for(i=0;i<n;i++) for(j=0;j<m;j++) if(A[i][j]>max) max=A[i][j]; return max; } float min(vect A[ ],int n,int m) { int i,j; float min; min=A[1][1]; for(i=0;i<n;i++) for(j=0;j<m;j++) if(A[i][j]<min) min=A[i][j]; return min; } void zamena(vect A[],int n,int m) { int i,j; for(i=0;i<n;i++) for(j=0;j<m;j++) if(A[i][j]>0) A[i][j]=1; else if(A[i][j]<0) A[i][j]=0; } void vlolvod(vect A[],int n,int m,FILE *fout) { int i,j; for(i=0;i<n;i++) { for(j=0;j<m;j++) fprintf(fout,"%5.2f",A[i][j]); fprintf(fout,"\n"); } } void main() { matr A; float minz,maxz,P; int n,m; FILE *in,*out; in=fopen("C:\\in.txt","r"); out=fopen("C:\\out.txt","w"); fscanf(in,"%f",&P); vvod(A,&n,&m,in); maxz=max(A,n,m); minz=min(A,n,m); if(maxz-minz>P) { zamena(A,n,m); fprintf(out,"Matriza izmenena\n"); vlolvod(A,n,m,out); } else fprintf(out,"raznost' ne privlolshaet P!"); fclose(out); fclose(in); } |
06.06.2008, 00:58 | #2 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
кинь лутше ещо условие самой проги может проще будет напрямую реалиовать через паскаль чем переделывать
|
06.06.2008, 20:17 | #3 |
Участник клуба
Регистрация: 08.10.2007
Сообщений: 1,185
|
Почти дословный перевод
Код:
|
10.06.2008, 12:55 | #4 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Спасибооо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль... Need Help | Chih | Помощь студентам | 4 | 30.05.2008 16:37 |
Паскаль. | LLIypLLIyH | Помощь студентам | 2 | 30.05.2008 08:51 |
Паскаль | Jondeer | Помощь студентам | 5 | 01.11.2007 16:56 |
Паскаль | Jondeer | Помощь студентам | 4 | 27.10.2007 18:54 |