4 / 4 / 1
Регистрация: 15.04.2011
Сообщений: 274
1

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

28.03.2012, 19:13. Показов 438. Ответов 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.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2012, 19:13
Ответы с готовыми решениями:

Перегнать с С на Паскаля
#include<stdio.h> #include<math.h> #include<conio.h> float f1(float x); void main() { float...

Перегнать с паскаля в С++
здравствуйте, мне нужно перегнать с Паскаля в C++. Код Pascal: program ss; var x, y, z, a:...

Перегнать из паскаля на С(чистый)
Нужно перегнать эту програму в чистый С 1) Определить и записать в файл g сумму отрицательное...

Перегнать с паскаля на чистый С
Вот эту програму нужно пергнать с паскаля на чистый С program pr_19; uses CRT; var f,g,d:file...

1
2015 / 1614 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
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;
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2012, 20:49

На чем пишут Инсталер к програмам??
стало интиресно как работают инсталятори, помогмите розобратся... 1. на каком ПО их пишут? 2....

Срочно нужны решения к програмам
1)С клавиатуры вводятся три числа. Положительные возвести в квадрат и найти сумму отрицательных....

Нужно составить блок-схему к двум програмам
задача 2.1 program pr_21; uses crt; const a=3; b=3; var a1 : array of real; a2 : array of...

перегнать с C++ на C#
имеется int CMyPaintDC::AreaLines(int x,int y,int dir,int d,int PrevXL, int PrevXR,COLORREF...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru