Форум программистов, компьютерный форум CyberForum.ru

Перегнать с паскаля в С (небольшая програмам) - C++

Восстановить пароль Регистрация
 
Fobos1994
4 / 4 / 0
Регистрация: 15.04.2011
Сообщений: 271
28.03.2012, 19:13     Перегнать с паскаля в С (небольшая програмам) #1
Здравствуйте мне нужно перегнать вот эту програму из паскаля в чистый С(Borland C)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program test;
uses crt;
var b:array [1..255] of integer;
    a,i,n:integer;
begin
clrscr;
write('Vvedite a=');
readln(a);
i:=0;
while a>=1 do
  begin
    i:=i+1;
    b[i]:=a mod 2;
    a:=a div 2;
  end;
n:=i;
for i:=n downto 1 do
write(b[i]:3);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2012, 19:13     Перегнать с паскаля в С (небольшая програмам)
Посмотрите здесь:

C++ Срочно нужны решения к програмам
перегнать с C++ на C# C++
C++ Перегнать с паскаля на чистый С
Перегнать из паскаля на С(чистый) C++
"Перегнать" код из С в С++ (через fstream) C++
C++ Перегнать с паскаля в С++
C++ Небольшая сложность
C++ Перегнать с Pascal на C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
rangerx
1908 / 1517 / 139
Регистрация: 31.05.2009
Сообщений: 2,876
28.03.2012, 20:49     Перегнать с паскаля в С (небольшая програмам) #2
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <stdio.h>
 
int main(void)
{        
   int b[255];
   int a, i;
 
   printf("Vvedite a = ");
   scanf("%d", &a);
 
   i = 0;
   while(a > 0)
   {
      b[i++] = a % 2;
      a/= 2;       
   }  
 
   while(i > 0)
      printf("%3d", b[--i]);
   putchar('\n');
 
   return 0;
}
Yandex
Объявления
28.03.2012, 20:49     Перегнать с паскаля в С (небольшая програмам)
Ответ Создать тему
Опции темы

Текущее время: 02:37. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru