С Новым годом! Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 0
Регистрация: 10.12.2011
Сообщений: 47
1

Перевести код с QBasic на Си

22.05.2012, 21:15. Показов 1372. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Надо перевести код в C#
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "input n: ", n
DIM a(n, n)
FOR d = 2 * n - 1 TO 1 STEP -1
    IF d < n THEN
        i = d: j = 1: c = c - 1
    ELSE
        i = n: j = d - n + 1: c = c + 1
    END IF
    q = -1: w = 1
    IF d MOD 2 THEN SWAP i, j: SWAP q, w
    FOR z = 1 TO c
        a(i, j) = k: k = k + 1
        i = i + q: j = j + w
    NEXT
NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT USING "####"; a(i, j);
NEXT: PRINT: NEXT
Вот что получается
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#include <stdio.h>
void main()
{
    int mas[6][6], i,j,c,x,q,w,k,swap1,swap2;
    for (x=35;x>=1;x--)
    {
        if (x<6) 
        {
            i = x;
            j = 1;
            c = c - 1;
        }
        else
        {
            i = 6;
            j = x - 5;
            c = c + 1;
        }
        int q=-1, w=1,z;
        if (x%2==0)
        {
            i=swap1;
            j=swap2;
            i=swap2;
            j=swap1;
            q=swap1;
            w=swap2;
            q=swap2;
            w=swap1;
        }
        for (z=1;z<=c;z++)
        {
            mas[i][j] = k;
            k++;
            i = i + q;
            j = j + w;
        }
    }
    for (i=0;i<6;i++)
    {
        for (j=0;j<6;j++)
        {
            printf ("\t%d",mas[i][j]);
        }
        printf ("\n");
    }
}
но не работает
уже все перепробовал

Добавлено через 2 часа 31 минуту
очень срочно надо, завтра уже сдавать
помогите, ребят!
0
Programming
Эксперт
9485 / 562 / 19
Регистрация: 12.04.2006
Сообщений: 11,671
Блог
22.05.2012, 21:15
Ответы с готовыми решениями:

Перевести код с QBasic
Возникла проблема в переводе,из Basic в Paskal, части программы. Помогите пожалуйста с переводом....

Перевести код с QBasic
Собственно, вот задание. Надо перевести прогу на Pascal. Помогите, пожайлуста! 10 PRINT 'РАСЧЕТ...

Перевести код с псевдокода на QBasic
Надо этот пример написать в qbasic только как? там for, to, step Начало Вести d,f c=5 ...

Перевести код с QBasic на Delphi
Помогите пожалуйста перевести код с basic на delphi 5 REM PROGRAMMA 10 READ K1, A1, A2, K2, A3...

8
Кормпилятор
5035 / 1707 / 409
Регистрация: 25.04.2010
Сообщений: 4,794
Записей в блоге: 2
22.05.2012, 21:22 2
Как правило, обращаются в тот раздел, в ЯП которого нужно перевести прогу.
Трансляторы тоже никто не отменял.
1
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
22.05.2012, 21:27 3
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#include <stdio.h>
#include <stdlib.h>
 
void swap(int *a, int *b)
{
    int t = *a;
    *a = *b;
    *b = t;
}
 
int main(void)
{    
    int n, i, j, d, c, q, w, z, k, **v;
    printf("enter n: ");
    scanf("%d", &n);
 
    v = (int**)malloc(n * sizeof(int*));
    for (i = 0; i != n; ++i)
    {
        v[i] = (int*)malloc(n * sizeof(int));   
    }
 
    i = j = d = c = q = w = z = k = 0;
 
    for (d = 2 * n - 1; d >= 1; --d)
    {
        if (d < n) 
        {
            i = d; 
            j = 1; 
            --c;
        }
        else
        {
            i = n;
            j = d - n + 1;
            ++c;
        }
        q = -1;
        w = 1;
 
        if (d % 2) 
        {
            swap(&i, &j);
            swap(&q, &w);
        }
 
        for (z = 1; z <= c; ++z)
        {
            v[i-1][j-1] = k++;
            i += q;
            j += w;
        }
    }
 
    for (i = 0; i != n; ++i)
    {
        for (j = 0; j != n; ++j)
        {
            printf("%3d ", v[i][j]);
        }
        printf("\n");
    }
    return 0;
}
Добавлено через 4 минуты
>Quiet Snow<, тему похоже как раз из раздела с++ сюда переместили(хотя возможно ошибаюсь)
2
1 / 1 / 0
Регистрация: 10.12.2011
Сообщений: 47
22.05.2012, 21:30  [ТС] 4
Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
Как правило, обращаются в тот раздел, в ЯП которого нужно перевести прогу.
Трансляторы тоже никто не отменял.
я так и сделал, тему просто переместили
0
Кормпилятор
5035 / 1707 / 409
Регистрация: 25.04.2010
Сообщений: 4,794
Записей в блоге: 2
22.05.2012, 21:32 5
softmob, это C# ?
0
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
22.05.2012, 21:35 6
Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
softmob, это C# ?
Нет, это Си.
0
Почетный модератор
21470 / 9154 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
23.05.2012, 07:37 7
Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
Как правило, обращаются в тот раздел, в ЯП которого нужно перевести прогу
Верно. Перемещено в C для начинающих.
1
Evg
Эксперт CАвтор FAQ
21281 / 8305 / 637
Регистрация: 30.03.2009
Сообщений: 22,660
Записей в блоге: 30
23.05.2012, 08:38 8
Цитата Сообщение от dekartkaine Посмотреть сообщение
Надо перевести код в C#
<далее код на Си>

Афтор, ты определись, чего ты хочешь
0
Почетный модератор
21470 / 9154 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
23.05.2012, 10:08 9
Цитата Сообщение от Evg Посмотреть сообщение
Афтор, ты определись, чего ты хочешь
Он хочет, чтобы код на С исправили или предложили альтернативу
0
23.05.2012, 10:08
cpp_developer
Эксперт
20123 / 5690 / 417
Регистрация: 09.04.2010
Сообщений: 12,546
Блог
23.05.2012, 10:08
Помогаю со студенческими работами здесь

Как перевести код из Qbasic в VB ?
VB понимает кусок кода с расширением *.bas как модуль

Перевести код с Pascal на QBasic (Вычислить A8)
переведите на Qbasic пожалуйста из паскаля Begin27. Дано число A. Вычислить A8, используя...

Перевести код с Pascal на QBasic (Найти значение выражения)
For27. Дано вещественное число X (|X|&lt;1) и целое число N (&gt;0). Найти значение выражения...

Перевести с QBasic на С++
Добрый день.Имеется рабочий код на QBasic,хочу переписать его на C++.Пока не получается,требуется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Блоги программистов
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного суматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­хронный счётчик с управляющим сигналом задержки).
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
Руководство по созданию бота для Телеграм на Python
IT_Exp 04.01.2025
Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .
Применение компонентов PrimeVue в Vue.js 3 на TypeScript
BasicMan 04.01.2025
Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer
cpp_developer 04.01.2025
В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать
IT_Exp 04.01.2025
В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .
Что новенького в .NET Core 9
Programming 04.01.2025
Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .
Инструкция по установке python3.13.1 в Debian 12
AlexSky-coder 03.01.2025
sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .
Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов.
Hrethgir 03.01.2025
В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .
Python в помощь DevOps
IT_Exp 03.01.2025
Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru