VPF::[Pascal -> С] Матрица - Форум программистов

potolok

Дата 27.12.2006, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.12.2006

Репутация: нет
Всего: нет

нужно в си написать код задания :
Используя следующий фрагмент

Код


type
    vector = array [1..20] of integer;
    matr = array [1..20] of vector;
var
    A : matr;
    x : vector;
    B : array [1..20, 1..20] of integer;

напишите программу для решения задачи - Четные столбцы матрицы A заменить вектором x

в паскале набросал код, но надо сделать в си, кто может, помогите перевести код паскаля в си.
вот код:

Код


Program Sub4;
type
    vector = array [1..n] of integer;
    matr = array [1..n] of vector;
var
    A : matr;
    x : vector;
    i,j : integer;
begin
    writeln ('Vvedite matrix A: ' ) ;
    for i := 1 to n do
        for j := 1 to n do
        read ( A[i,j] ) ;
    readln;
    writeln ( 'vvedite vector x: ' ) ;
    for i := 1 to n do
        read ( x[i] ) ;
    readln;
    for j := 1 to n div 2 do
        for i := 1 to n do
            A[i,2*j] := x[i] ;
    writeln ( 'polucenaya matrix A: ' ) ;
    for i := 1 to n do
        begin
            for j := 1 to n do
                write ( A[i,j], '  ' ) ;
            writeln
        end
end.

или кому легче, набросайте в си свой вариант решения

Rodman

Дата 27.12.2006, 20:22 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

potolok, что за тип данных vector;???

Добавлено @ 20:24
в четвертой строке кода... если пойму - переведу тебе на С...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Dov

Дата 27.12.2006, 21:24 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88

Цитата(Rodman @ 27.12.2006, 19:22

)

potolok, что за тип данных vector;???

Это одномерный массив целых чисел.., я так думаю.

Код

#include <stdio.h>

#define n 4

int main()
{
    int matr[n][n];
    int vec[n];
    int i, j;

    puts("Enter matrix: ");
    for(i = 0; i < n; i++)
    {
        for(j = 0; j < n; j++)
        {
            printf(" matr[%d][%d] = ", i, j);
            scanf("%d", &matr[i][j]);
        }
    }

    puts("\nMatrix before: ");
    for(i = 0; i < n; i++)
    {
        for(j = 0; j < n; j++)
            printf("%3d ", matr[i][j]);
        puts("");
    }

    puts("\nEnter vector: ");
    for(i = 0; i < n; i++)
    {
        printf(" vec[%d] = ", i);
        scanf("%d", &vec[i]);
    }

    for(i = 1; i < n; i += 2)
        for(j = 0; j < n; j++)
            matr[j][i] = vec[j];

    puts("\nMatrix after: ");
    for(i = 0; i < n; i++)
    {
        for(j = 0; j < n; j++)
            printf("%3d ", matr[i][j]);
        puts("");
    }
    
    printf("\nPress any key to quit...\n");
    getch(); 

    return 0;
}

Это сообщение отредактировал(а) Dov - 28.1.2007, 08:32

--------------------

Тут вечности запах томительный,
И свежие фрукты дешевые,
А климат у нас – изумительный,
И только соседи – #уевые.
Игорь Губерман.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »