Перевод из Паскаль в C/C++

21.05.2018, 19:19. Показов 290. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

program BinSearch2;
const n=10;
type
TVector=array[1..n] of integer;
var
A : TVector;
X : integer;
i, L, R : word;
Begin
for i:=1 to n do read(A[i]);
readln;
readln(X);
 
L:=1; R:=n;
while L<R do
begin
i:=(L+R) div 2;
if A[i] < X then
L:=i+1
else
R:=i;
end;
if A[R]=X then
writeln('Element ', X:2, ' has been found at ', R:2, ' position')
else 
writeln('Element has not been found');
fr i:=1 to n do write(A[i]:8);
writeln;
End.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.05.2018, 19:19

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

Перевод с С++ на Паскаль
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали,...

Перевод с Паскаль на С++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin ...

Перевод из паскаль в С++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача...

перевод из си++ в паскаль
for (int j = max(0, i - (n - m)); j <= i && j <= m; ++j) Как перевести эту строчку, а именно "j...

	21.05.2018, 19:19

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.05.2018, 19:19

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

Перевод из с++ в паскаль
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя...

Перевод с Паскаль на С++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S...

Перевод с Паскаль на С++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); ...

Перевод из Паскаль в C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type...

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

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

Наверх