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

из Паскаль в С++ - C++

Восстановить пароль Регистрация
 
goddess007
0 / 0 / 0
Регистрация: 09.09.2010
Сообщений: 18
28.12.2010, 21:29     из Паскаль в С++ #1
Помогите перевести задачи из Паскаля в С++:
1.
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
31
uses graph;
var y1,x1,x2,y2,d,m,r,i:integer; x,y:real   ;
begin
 detectGraph(D,M);
 
  initGraph(d,m,'\bgi');
setcolor(white);
line(50,240,590,240);
 
line(320,50,320,430);
OUTtextXY(10,10,'y=x^3');
x:=0;
y1:=0;
for x1:=1 to 51 do begin
 
y:=x*x*x;
y1:=round(y) div 5;
putpixel(x1+320,240-y1,white);
putpixel(320-x1,240+y1,white);
 
 
x:=x+0.2;
 
end;
outtextXY(310,230,'O');
outtextXY(310,50,'Y');
outtextXY(590,250,'X');
 
 
 readln;
 end.
2.
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
31
32
uses graph;
var y1,x1,x2,y2,d,m,r,i:integer; x,y:real   ;
begin
 detectGraph(D,M);
 
  initGraph(d,m,'\bgi');
setcolor(white);
line(20,380,590,380);
 
line(60,50,60,430);
OUTtextXY(10,10,'y=(cos(7*x)+1)/sqr(x+1)');
 
for x1:=1 to 300 do begin
x:=x1/100;
y:=(cos(7*x)+1)/sqr(x+1);
y1:=round(y*100);
if x<=2*pi then  putpixel(60+x1,380-y1,white);
 
end;
 
 
outtextXY(350,390,'2pi');
 
outtextXY(50,180,'1');
 
outtextXY(50,370,'O');
outtextXY(50,50,'Y');
outtextXY(590,390,'X');
 
 
 readln;
 end.
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graph;
var d,m,r,i:integer;
begin
 detectGraph(D,M);
 
  initGraph(d,m,'\bgi');
setcolor(red);
setfillstyle(1,red);
rectangle(10,470,630,10);
floodfill(320,240,red);
r:=220;
for i:=1 to 10 do begin
  setfillstyle(1,i);
  setcolor(i);
  circle(320,240,r);
 floodfill(320,240,i);
  r:=r-20;
  end;
 readln;
 end.
4.
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
31
32
33
34
35
36
37
38
39
40
uses crt;
  var  pc,pcb:array[1..100] of string; e:string;
  n,i,j:integer;  k,k1,p:real;
  begin
  clrscr;
  write('vvedite kollichestvo modeley PC:');
  read(n);
  writeln('nazvanie doljno bit vida <Nazvanie Chastota processora Mhz (okruglit do 100mhz)> ');
  e:='Pentium III 1600 Mhz';
  p:=100;
  for i:=1 to length(e) do begin
  if (e[i]='1') or (e[i]='2') or (e[i]='3') or (e[i]='4')
 or (e[i]='5') or (e[i]='6') or (e[i]='7') or (e[i]='8')
 or (e[i]='9') or (e[i]='0')  then begin
  k:=k+p*ord(e[i]);
  p:=p / 10;
  end;
  end;
  p:=100;
for i:=1 to n+1 do begin
  readln(pc[i]);
  end;
writeln;
writeln;
for i:=1 to n+1 do begin
  for j:=1 to length(pc[i]) do begin
      if (pc[i][j]='1') or (pc[i][j]='2') or (pc[i][j]='3') or (pc[i][j]='4')
 or (pc[i][j]='5') or (pc[i][j]='6') or (pc[i][j]='7') or (pc[i][j]='8')
 or (pc[i][j]='9') or (pc[i][j]='0')  then
  begin
  k1:=k1+p*ord(pc[i][j]);
  p:=p / 10;
  end;
  end;
    if k1>k then  writeln(pc[i]);
  k1:=0;
  p:=100;
  end;
  repeat until keypressed;
  end.
5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s,s1,s2,s3,buf:string;
begin
clrscr;
s:='kolkatenasiya';
s1:=copy(s,8,6);
writeln(s1);
s2:=copy(s,4,3);
 
s2:=s2+s[2]+s[1];
writeln(s2);
buf:=s[6]+s[5];
s3:=copy(s,10,2)+buf+buf;
writeln(s3);
 
repeat until keypressed;
end.
6.
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
uses crt;
var   a,b:array[1..100] of integer;
 c:array[1..200] of integer; i,j,n,m:integer;
begin
clrscr;
write('vvedite kol-vo elementov v massive A[1..100]:');
read(n);
 
write('vvedite kol-vo elementov v massive B[1..100]:');
read(m);
j:=1;
for i:=1 to n do begin
write('A[',i,']=');
readln(a[i]);
C[j]:=a[i];
j:=j+1;
end;
for i:=1 to m do begin
write('B[',i,']=');
readln(B[i]);
C[j]:=B[i];
j:=j+1;
end;
for i:=1 to j-1 do begin
write(C[i]:4);
if i mod 4 = 0 then writeln;
end;
repeat until keypressed;
end.
7.
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
uses crt;
var Xd1,Xd2,Yd1,Yd2,by:integer; S,p:real;
begin
clrscr;
writeln('vvedite koordinati diaganaley v vvide radius vektorov:');
write('X(d1)=');
read(Xd1);
write('Y(d1)=');
read(Yd1);
write('X(d2)=');
read(Xd2);
write('Y(d2)=');
read(Yd2);
By:=abs(Yd2);
S:=by*(abs(Xd1)+abs(Xd2))/2;
P:=by+abs(xd1)+abs(xd2)+sqrt(sqr(xd2-xd1)+sqr(abs(yd1)));
if (((yd1=yd2) or (yd1=(-1*yd2)))) and (xd1<>(-1*xd2)) then  begin
writeln('S=',s:4:2);
Writeln('P=',p:4:2) ;
end
else
writeln('Vvedenie koordinati ne sootvetstvuut trapecii');
RePeAT UNTIL KeYPReSSed;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2010, 21:29     из Паскаль в С++
Посмотрите здесь:

C++ из Паскаль в С++
Паскаль и С++ C++
C++ перевести с С на паскаль
C++ Транслятор с С в Паскаль
C++ С++ переделать в паскаль
Паскаль C++
C++ перевести с Паскаль
C++ Паскаль/С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Voland_
Модератор
 Аватар для Voland_
1240 / 823 / 75
Регистрация: 04.01.2010
Сообщений: 2,684
28.12.2010, 21:41     из Паскаль в С++ #2
goddess007, может google chrome поможет? Гугля ведь много языков знает, и переводит тож неплохо .
ЗЫ: а если серьезно, то где ПОМОГАТЬ? Что конкретно не получается?
Yandex
Объявления
28.12.2010, 21:41     из Паскаль в С++
Ответ Создать тему
Опции темы

Текущее время: 05:20. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru