0 / 0 / 0
Регистрация: 19.02.2014
Сообщений: 33
1

Перевести код с Паскаля на Дельфи

19.02.2014, 15:42. Показов 1666. Ответов 1
Метки нет (Все метки)

ПОМОГИТЕ ПОЖАЛУЙСТА ПЕРЕВЕСТИ НА ДЕЛФИ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
A,B,n:word;
begin
write('A= ');
readln (A);
B:=A;
n:=0;
repeat
A:=B;
B:=A div 2;
if ( A mod 2)=0 then inc(n);
until ((A mod 2) >0) or (B=1);
writeln ( 'n= ',n);
readln;
end.
Добавлено через 9 минут
НЕ ЗНАЮ
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2014, 15:42
Ответы с готовыми решениями:

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

Перевести код из Паскаля в Дельфи
помогите перекинуть код из паскаля в делфи uses crt; const nmax=20; mar:array of...

Перевести из паскаля в Дельфи
преведите дайте код на кнопку и тд var n,i,a,sp,so:integer; begin write('n='); readln(n);...

Интегрирование функции. Перевести с Паскаля на Дельфи
Здравствуйте, уважаемые программисты! Помогите пожалуйста нужно переписать программу, чтобы она...

1
67 / 67 / 13
Регистрация: 04.12.2013
Сообщений: 161
Записей в блоге: 1
19.02.2014, 16:21 2
Лучший ответ Сообщение было отмечено Fktcz как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
A,B,n:word;
begin
A := StrToInt(Edit1.Text);
B:=A;
n:=0;
 
repeat
  A:=B;
  B:=A div 2;
  if ( A mod 2)=0 then
    inc(n);
until ((A mod 2) >0) or (B=1);
  Label1.Caption := 'n= '+IntToStr(n);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2014, 16:21
Помогаю со студенческими работами здесь

Переведите код из Паскаля в Дельфи
Помогите перевести код паскаля в делфи через stringgrid: var kol,bx,by:array of integer;...

Перевести код из С++ в Дельфи
помогите перевести код плиз!из с++ в код делфи! using namespace std; int main() { const...

Перевести код на Дельфи
Кто может перенести это в Delphi??? type // конфета TCandy = record Name: string; //...

Перевести код с Паскаля на Делфи
const pi = 3.14; var l, s, r: real; begin write('Введите значение R: '); ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru