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.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.03.2010, 17:22

Ответы с готовыми решениями:

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

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

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

Mitsubishi ПИД паскале подобный код
Кто понимает паскале подобный код? Можете помочь. Тут на старом станке есть прошивка и тут...

	14.03.2010, 17:22

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.03.2010, 17:22

Помогаю со студенческими работами здесь

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

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

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

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

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

Или воспользуйтесь поиском по форуму:

Наверх