gec
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ага спасибо. Только я прогу по другому переписал уже) В задаче сказано чтобы только пример щитался с заданйо точностью а чтобы ответ выводился с этой точностью не сказано так что уже всё.
Тут вот проблема есть Помогите ктото пожэалусто переписать прогу с Си на Паскаль..
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
int B[10], C[10], A[10][10], i, j, k, m, y, z;
void main()
{
clrscr();
printf("Skoliko nomerov v masive? ");
scanf("%i", &j);
for(i = 0; i < j; i++)
{
printf("\nB[%i]=", i);
scanf("%i", &B[i]);
for (z = 0; z < i; z++)
if (B[i] == B[z])
{
printf("Chislo %i uje bilo, vvedite drugoe chislo\n",B[i]);
i=i-1;
}
}
printf("\nVvedite rozmiri matrici: ");
scanf("%i %i", &k, &z);
printf ("\n");
randomize ();
for (i = 0; i < k; i++)
for (m = 0; m < z; m++)
A[i][m] = random (10);
for (i = 0; i < k; i++)
{
for (m = 0; m < z; m++)
printf ("%i ", A[i][m]);
printf ("\n");
}
for(y = 0; y < j; y++)
C[y] = 0;
for(y = 0; y < j; y++)
{
for(i = 0; i < k; i++)
for(m = 0; m < z; m++)
if(B[y] == A[i][m]) C[y] = C[y] + 1;
}
for(y = 0; y < j; y++)
if(C[y] > 1) printf("\nNomer %i poftoriaetza", B[y]);
getch();
} |
Я думал несколько проще 
еще раз и запрет на пост.
