Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Офтопик > Работа > Задания за деньги
Перезагрузить страницу перевести код из паскаля на с++.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Киры4 Киры4 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 28.05.2013
Question перевести код из паскаля на с++. - 28.05.2013, 15:43

ses CRT;
const
n=10;
type
Vector=array [1..n] of integer;
var
mas:Vector;
m,q:Byte;


procedure vivod(var A:Vector);
var i:integer;
begin
writeln('Initial array:');
for i:=1 to n do
write(A[i]:5);
writeln;
end;

procedure vvod_ruchnoi(var A:Vector);
var i:integer;
begin
for i:=1 to n do
begin
write('A[', i, ']= ');
readln(a[i]);
end;
writeln;
vivod(A);
end;

procedure vvod_random(var A:Vector);
var i:integer;
begin
Randomize;
for i:=1 to n do
A[i]:=-10+Random(21);
vivod(A);
end;


procedure zadacha1(var A:Vector);
var
i,k: integer;
sum: real;
begin
vivod(A);
i:=0;
k:=0;
Sum:=0;
repeat
i:=i+1;
if A[i]<0 then
begin
Sum:=Sum+A[i];
k:=k+1;
end;
until (A[i]>0) or (i=n);
if k>0 then
Writeln('Arithmetic mean is ',Sum/k:0:3)
else
Writeln('No such elements!');
end;

procedure zadacha2(var A:Vector);
var
B,C: Vector;
i,Imin,Imax,Min,Max,n1,n2: integer;
begin
vivod(A);
B:=A;
Max:=B[1];
for i:=2 to n do
if B[i]>Max then Max:=B[i];
i:=0;
repeat
i:=i+1;
until B[i]=Max;
Imax:=i;
If Imax=n then
begin
Writeln('First maximal element is the last one!');
n1:=n;
end
else
If Imax=n-1 then
n1:=n-1
else
begin
for i:=Imax+2 to n do B[i-1]:=B[i];
n1:=n-1;
end;
C:=B;
Min:=C[1];
for i:=2 to n1 do
if C[i]<Min then Min:=C[i];
i:=0;
repeat
i:=i+1;
until C[i]=Min;
Imin:=i;
If Imin=n1 then
begin
Writeln('First minimal element is the last one!');
n2:=n1;
end
else
If Imin=n1-1 then
n2:=n1-1
else
begin
for i:=Imin+2 to n1 do C[i-1]:=C[i];
n2:=n1-1;
end;
Writeln('New array:');
For i:=1 to n2 do write(C[i]:5);
writeln;
end;

procedure zadacha3(var A:Vector);
var
i,Izero:integer;
B:Array[1..n+2] of integer;
begin
vivod(A);
for i:=1 to n do B[i]:=A[i];
i:=n+1;
repeat
i:=i-1;
until (A[i]=0) or (i=1);
if (i=1) and (A[i]<>0) then
writeln('No zero elements!')
else
begin
Izero:=i;
if Izero=n then
begin
B[n+1]:=0;
B[n+2]:=0;
end
else
begin
for i:=n downto Izero+1 do B[i+2]:=A[i];
B[Izero+1]:=0;
B[Izero+2]:=0;
end;
Writeln('New array:');
for i:=1 to n+2 do write(B[i]:5);
end;
writeln;
end;

procedure zadacha4(var A:Vector);
var
i: integer;
p: boolean;
begin
vivod(a);
p:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then p:=false;
Writeln(p);
end;

Begin
ClrScr;
Repeat
WriteLn;
repeat
WriteLn('Elements entering metod:');
WriteLn(' 1 - console');
WriteLn(' 2 - random');
WriteLn(' 3 - exit');
Readln(m);
until (m>0) and (m<4);
if m<3 then
begin
if m=1 then vvod_ruchnoi(mas);
if m=2 then vvod_random(mas);
repeat
Writeln;
WriteLn('Chooze the task:');
WriteLn(' 1 - Arithmetic mean');
WriteLn(' 2 - Excluding of elements');
WriteLn(' 3 - Inserting zeroes');
WriteLn(' 4 - Test of ordering');
WriteLn(' 5 - Exit');
Readln(q);
if (q=0) or (q>5) then q:=5;
Case q of
1: zadacha1(mas);
2: zadacha2(mas);
3: zadacha3(mas);
4: zadacha4(mas);
End;
until q=5;
end;
Until m=3;
End.
Ответить с цитированием
  (#2 (permalink)) Старый
LPproger LPproger вне форума
C/C++/Asm proger
 
Сообщений: 382
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 05.02.2007
По умолчанию 29.05.2013, 19:32

Готов выполнить за денежное вознаграждение.

Моё объявление и отзывы


Программирование на языках C/C++/Assembler, Pascal, Prolog, Lisp для Windows.
http://forum.sources.ru/index.php?showtopic=313018
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C паскаля на с++ cfexe Вопросы начинающих программистов 3 17.12.2011 01:34
ПОМОГИТЕ перевести с паскаля на С или С++ Ииринка Вопросы начинающих программистов 0 29.04.2011 00:13
Перевести с Паскаля на С++ =Anet= Задания за деньги 4 21.03.2011 12:08
Перевод из Паскаля в С++ как реализовать links С/С++ 7 11.09.2009 16:56
Преобразовать из Паскаля в Си. Niko Prolog 1 04.10.2007 21:07
Треугольник Паскаля на Прологе imported_Sniper Prolog 6 23.11.2006 02:18
Вопросы к знатокам C++ переучиваем с паскаля на си Sergey Sidorov С/С++ 10 28.03.2006 15:06
Треугольник Паскаля на Лиспе imported_Sniper Lisp 2 11.05.2005 18:16
Профессионалом Паскаля как реализовать сортировку Pinok Pascal 1 30.10.2004 00:54
Перевод программы с паскаля на c++ Werti C++ Builder 1 29.10.2004 11:01
Помогите с установкой Паскаля swater Pascal 2 09.03.2004 15:26



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов