Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Помогите перевести прогу с паскаля на Си

Ответить
Настройки темы
C/C++ - Помогите перевести прогу с паскаля на Си

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: Drongo
Дата: 14-12-2011
Код: Выделить весь код
var n, t, i, j, s, p: integer;
begin
  Readln(n, t);
  i := 0;
  while (i < n) do begin
    p := i;
    s := 0;
    while (p mod 10 <> 0) and (p div 10 <> 1) do begin
      s := s + (p mod 10);
      p := p div 10;
    end;
    if (s * s = t) then Writeln(i);
    inc(i);
  end;

  Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Отправлено: 18:37, 14-12-2011

 

Аватара для Drongo

Будем жить, Маэстро...


Сообщения: 6694
Благодарности: 1393

Профиль | Сайт | Отправить PM | Цитировать


Паскаль плохо знаю, предложу так, знатоки поправят. Лучше напишите что выполняет программа
Код: Выделить весь код
#include <iostream>
using namespace std;

int main(void)
{
   int n, t, i, j, s, p;
   cin >> n;
   cin >> t;
   i = 0;
   while(i < n){
      p = i;
      s = 0;
      while((p % 10 != 0) && (p / 10 != 1)){
         s = s + p % 10;
         p = p / 10;
        }
      if((s * s) == t)
         Writeln(i); // Вот это не знаю как перевести
      i++;
     }
   cin>>i; 

   return 0;
}

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]

http://tools.oszone.net/Drongo/Userbar/SafeZone_cc.gif


Отправлено: 19:00, 14-12-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать


Цитата Drongo:
Writeln(i); // Вот это не знаю как перевести »
cout << i endl;

-------
Information must be free!
Нет границ, есть только препятствия

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:05, 14-12-2011 | #3


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вот такая задача: Даны натуральные числа n, t. Найти все натуральные числа, меньшие n, квадрат суммы цифр которых равен t.

Отправлено: 19:07, 14-12-2011 | #4


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Чё та у меня не робит

я начал переводить дальше не знаю как сделать *#include <stdio.h>
Код: Выделить весь код
#include <conio.h>
#include <math.h>

int main (void)
{



	int n, t, i=0, j, s=0, p;
printf("\t \t\t\t VEDITE n,t\n");
	scanf ("%d%d", &n,&t);
	for (i=1;i<n;i++)
	{
		p=i;
    if ((p/10)!=0))&&((p%10)!=1)) 
s=s+(p/10);
      p=p%10;
	  
printf ("\n\n\n press any key: ") ;
_getch () ;
}

Последний раз редактировалось Drongo, 14-12-2011 в 21:58.


Отправлено: 19:23, 14-12-2011 | #5


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Hector:
cout << i endl; »
MS VS на это материться

Код: Выделить весь код
#include <stdio.h>
#include <conio.h>
#include <math.h>

int main(void)
{
   int n, t, i=0, j, s=0, p=i;
   scanf("%d%d",&n,&t);
   while(i<n)
   {
      while(((p/10)!=0)&&((p%10)!=1))
	  {
         s = s+(p % 10);
         p = p/10;
        }
      if((s*s)==t);
     printf ("%d\n",i); 
	 i++;}
   printf ("\n\n\n press any key: ") ;
   _getch ();
}
Всё ровно не робит выдает 0 при любых значениях

Последний раз редактировалось Drongo, 14-12-2011 в 22:03. Причина: Кросспостинг


Отправлено: 19:46, 14-12-2011 | #6


Аватара для Drongo

Будем жить, Маэстро...


Сообщения: 6694
Благодарности: 1393

Профиль | Сайт | Отправить PM | Цитировать


Цитата Hector:
cout << i endl; »
Код: Выделить весь код
cout << i << endl;
Цитата Lesha_dan:
Чё та у меня не робит »
Мне ваше чёта по барабану, тебе перевели, остальное твои проблемы, ищи косяки в самом алгоритме. А если что-то не так, то вот Правила
Цитата:
На форуме в тематических разделах крайне не рекомендуется намеренное искажение русского языка. Орфографическая грамотность вашего сообщения служит гарантией того, что его прочтут все заинтересованные участники. Проявите уважение к собеседнику - он не обязан искать смысл в безграмотном вопросе.
К тому же, оформляйте свой код тегами [code][/code] в противном случае тема будет перенесена в Тест-форум

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]

http://tools.oszone.net/Drongo/Userbar/SafeZone_cc.gif


Отправлено: 22:02, 14-12-2011 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Помогите перевести прогу с паскаля на Си

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Помогите перевести в десятичный вид. systeman Программирование и базы данных 3 07-12-2010 12:57
[решено] Помогите перевести надпись в руководстве к материнской плате Termo27 Материнские платы и память 2 22-11-2009 03:19
Помогите перевести... Disconnect Выбор отдельных компонентов компьютера и конфигурации в целом 4 17-10-2009 17:57
ищу прогу помогите. LINCOLN Хочу все знать 3 23-02-2009 15:35
Все комманды для ПАСКАЛя. Alekssej Программирование и базы данных 1 27-02-2004 10:14




 
Переход