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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Devik
0 / 0 / 0
Регистрация: 27.05.2009
Сообщений: 11
#1

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

14.03.2010, 17:22. Просмотров 263. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2010, 17:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Код на паскале в с++ (C++):

Код на паскале перевести в C++ - C++
Здраствуйте, есть код на паскале не могли бы вы помочь реализовать его на C++ uses crt,graphABC; var x,y: integer; procedure...

Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране - Free Pascal
{$S+,R+} program arab_to_roman; uses crt; var n : word; ch : char; procedure convert(n : word);

Написать на Паскале код выражения - Turbo Pascal
Написать на Паскале код выражения. Вот выражение: V4=\sin ^5\left(x^4-\sqrt{\lg ^4\left(x^2-\ln ^2\left(x-1.8^{3.4} \right)...

Переделать исходный код на Паскале в Фортран - Fortran
Program Ex3; const N=5; const M=5; Var i,j:integer; A,B,x1,x2,Hx,p1,p2,Hp:real; x,p:array of real; c:array of real; ...

Есть код на Паскале, написать программу на Делфи - Delphi
Есть задание и код на паскале, напишите пожалуйста программу на Делфи Задание: Найти номер максимального элемента массива ;...

Код из турбо паскаля, запустить на паскале abc - Pascal ABC
uses graph; var d,m:integer; x,y,cx,cy,wx,wy,theta,q,n,r:real; i:longint; begin d:=detect; initgraph(d,m,'c:\bp\bgi'); ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2010, 17:22
Привет! Вот еще темы с ответами:

Ассемблер в Турбо Паскале, пояснить приведенный код - Assembler
Здравствуйте, уважаемые форумчане! Вот в курсовой работе по паскаль наткнулся на ассемблерные вставки, объясните что эти строки означают я...

Как будет выглядеть код, написанный на Си в Паскале - Pascal
Здесь три программы (3,6,11) Задание к ним ( на всякий случай) 3. Даны три вектора X, Y, Z, состоящие из n (n&lt;=12) компонент. Построить...

Как будет выглядеть код, написанный на Си в Паскале - Pascal
Здесь три программы (5,7,14) Задание к ним ( на всякий случай) 5. Дана матрица А размером m на n (m не n, m&lt;=5, n&lt;=10). Транспонировать...

Один и тот же код на Си и Паскале работает по-разному! - C (СИ)
Задача: найти в массиве наидлиннейшую цепочку отрицательных элементов, вырезать её и вставить в конец массива. Нашел тут такой код на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru