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

Перевести с Паскаля на Си - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Посчитать сумму ряда. http://www.cyberforum.ru/cpp-beginners/thread59028.html
Помогите оч умным девочкам решить задачи по с++))))) 1 дано вещественное число N посчитать сумму 1/0!+ 1/1!+1/2!+...+1/N! т.е число е приближенно)))) Добавлено через 18 минут пж!!! помогите!!!!!!!)))))))
C++ В чем разница между return и return false/true Привет всем. Вот подскажите плиз) return; return false; return true; расскажите пожалуйста об етих операторах.. чем они отличаются от друг друга http://www.cyberforum.ru/cpp-beginners/thread59022.html
Расскажите про new и delete в C++ C++
Есть несколько вопросов: 1) Можно ли перегрузить несколько операторов new в разных пространствах имен, а потом просто писать int *t = mini::new int; ??? 2) Можно ли вызвать конструктор и деструктор в своем аллокаторе, без перегрузки new и delete? И про эффективность: 3) if(hello) это долго? Hello булева переменная. Желательно в тактах. 4) struct hello { unsigned short omg : 15; bool init...
Теория, Общая C++
Добрый день! На днях видел в этой ветке в примере кода на С цикл такого вида: for (unsigned int i=0; i<10;++i) {...} Это было сделано во всех практически циклах по ходу программы, т.е неоднократно. Прошу пояснить, есть ли какая-то сакральная тайна в том, что бы нажимать дополнительных 9 клавиш, что бы написать UNSIGNED если цикл не планируется затягивать на более чем 30 000...
C++ Три задачи для чайника. http://www.cyberforum.ru/cpp-beginners/thread58976.html
Помогите пожалуйста решить пару задач. 1.Определить третью справа цифру натурального числа N 2.Определить три наибольших элемента одномерного массива 3.Упорядочить строки матрицы по неубыванию количества одинаковых элементов в строке.
C++ Удаление столбца в массиве Помогите пожалуйста, как можно удалить из двумерного массива N x M столбцов которые содержат нули? подробнее

Показать сообщение отдельно
yura332
0 / 0 / 0
Регистрация: 21.09.2009
Сообщений: 25
26.10.2009, 14:54     Перевести с Паскаля на Си
Pascal
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
uses crt;
var a,n:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);
n:=2;
while a>0 do
 begin
  b:=true;
  while n <= round(sqrt(a)) do
   begin
    if a mod n=0 then
     begin
      write(n,' ');
      a:=a div n;
      b:=false;
      break;
     end;
    inc(n);
   end;
  if b then
   begin
    write(a);
    break;
   end;
 end;
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru