Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2010, 20:00   #1
Bonne
Пользователь
 
Регистрация: 10.02.2010
Сообщений: 13
По умолчанию переведите с паскаля на си++

Program Nolimit;
var M:array [1..20] of integer;
n, Ch, Ost : integer;

Begin
WriteLn('Enter a number: ');
ReadLn(n);

while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
WriteLn('Result is: ', M[]);

end.
Bonne вне форума Ответить с цитированием
Старый 22.04.2010, 00:19   #2
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

Код:
#include <stdio.h>
#include <conio.h>

int main(void){
	int* M = new int[20];
	int n, Ch, Ost, i = 0;
	printf("Enter a number: ");
	scanf_s("%d", &n);
	while (n >= 2)
	{
		Ch = n / 2;
		Ost = n % 2;
		M[i] = Ost;
		i++;
	}
	printf("\n\nResult is: ");
	for (int j = 0; j < i; j++){
		printf("%d ", M[j]);
	}
	getchar();
	return 0;
}
примерно так
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 22.04.2010, 00:21   #3
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

Цитата:
while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
бесконечный цикл!
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переведите пожалуйста из Pascal в C++ KamBall Паскаль, Turbo Pascal, PascalABC.NET 0 25.05.2009 14:57
Переведите кто-то из Паскаля в с++ пожалуйста. Отблагодарю голосами в контакте!!! megavolt91 Общие вопросы C/C++ 6 22.05.2009 17:55
Переведите на язык Delphi neomaximus Помощь студентам 1 26.11.2008 09:24
Переведите формулу на язык Delphi neomaximus Помощь студентам 2 12.11.2008 01:01
Переведите формулу на язык Delphi neomaximus Помощь студентам 3 11.11.2008 12:22