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

Код на паскале в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ C++ и Excel http://www.cyberforum.ru/cpp-beginners/thread104521.html
Ребят, кто-нибудь может подсказать: можно ли данные из С++ отправить в Excel? если можно, то каким образом это сделать?
C++ C2061 ошибка, не могу понять что не так Заголовочный файл: Forces.h #ifndef _FORCES_ #define _FORCES_ #include "ParticleSystem.h" // Абстрактный класс силы class Force { protected: http://www.cyberforum.ru/cpp-beginners/thread104517.html
C++ сумма элементов
сумма элементов всех последуещих чисел i-0 to i = 10 Вот пример:1 / i! *(1 / 2)^2i
C++ задавайте вопросы про указателеи и классы
выучил эти 2 главы,хочется проверить хорошо ли знаю я классы и указатели?Если кто знает тесты,и все такое про них дайте ссылки...или же лучше бы сами задавали вопросы:)и еще бы части кодов где есть ошибки...буду очень благодарен зы я не знаю что такое указатель на указателя и что такое ссылка.
C++ Как отключить _CRT_SECURE_NO_WARNINGS? http://www.cyberforum.ru/cpp-beginners/thread104496.html
Код - работа с файлом. Выдает ошибку warning C4996: 'fopen': This function or variable may be unsafe. Consider using fopen_s instead. To disable deprecation, use _CRT_SECURE_NO_WARNINGS. See online help for details. Прочел что как то надо отключить эту ошибку. Подскажите пожалуйста как это сделать в Visual Studio 2008 int f9() { FILE *file; char* file_name = "file.txt"; char load_string...
C++ Определить суммарный объем в литрах двенадцати вложенных друг в друга шаров нужно составить программу на С а)определить суммарный объем в литрах двенадцати вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Принять,что шары вкладываются друг в друга без зазоров. б)вычислить сумму 1+1/2!+1/3!+.....+1/n n вводится с клавиатуры(1<n<=10) помогите пожалуйста....очень надо!!!заранее спасибо)) подробнее

Показать сообщение отдельно
Devik
0 / 0 / 0
Регистрация: 27.05.2009
Сообщений: 11

Код на паскале в с++ - C++

14.03.2010, 17:22. Просмотров 257. Ответов 0
Метки (Все метки)

Здраствуйте помогите пожалуйста перевести код из паскаля на с++...

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
30
Program LAB1;
uses crt;
Procedure WriteByte(a:byte);
var i:integer;
  begin
  for i:=7 downto 0 do begin
    if ((a shr i) and $01) <>0 then write('1')
    else write('0');
    end;
  write(' ');
  end;
 
type  bytearr=array[1..100] of byte;
  var
  k,i:integer;
  db:double;
  str:string[10];
  px: pointer;
  bp :^bytearr;
  iarr:array[1..5] of integer;
  begin
  clrscr;
  db:=13.65;
  px:=@db;
  bp:=px;
  writeln('Tup DOUBLE. 4uslo - ',db:0:2);
  for k:=1 to 8 do writebyte(bp^[k]);
  writeln;
  readln;
  end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru