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

Ребята переведите с Паскаля на си++ п л с - C++

Восстановить пароль Регистрация
 
ne_waru_fortran
46 / 2 / 0
Регистрация: 02.06.2011
Сообщений: 84
06.03.2012, 22:04     Ребята переведите с Паскаля на си++ п л с #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
32
33
Program Proc44;
function Arctg(x,e:real):real;
var 
dx,y,t:real;
i:integer;
begin
dx:=x;
y:=0;
i:=0;
t:=1/(2*i+1);
while abs(dx)>e do
begin
y:=y+dx*t;
inc(i);
dx:=-dx*x*x;
t:=1/(2*i+1);
end;
Arctg:=y;
end;
var 
x,e:real;
begin
repeat
writeln('Введите значение аргумента |x|<1 :');
readln(x);
until abs(x)<1;
repeat
writeln('Введите точность вычислений e>0 :');
readln(e);
until e>0;
writeln('Приближенное значение Arctg(',x:0:2,')=',Arctg(x,e):8:5);
writeln('Вычисленное значение Arctg(',x:0:2,')=',Arctan(x):8:5);
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
Program Proc53;
function IsLeapYear(Year:integer):boolean;
begin
if(Year mod 4 = 0) and (Year mod 4000 <> 0) and
((Year mod 100 <> 0) or (Year mod 400 = 0))then IsLeapYear:=true
else IsLeapYear:=false;
end;
function MonthDays(M,Y: Integer): Integer; 
const 
DayInMonth : array[1..12] of Byte = (31,28,31,30,31,30,31,31,30,31,30,31);
 
begin 
if(IsLeapYear(y)=false)then
MonthDays:= DayInMonth[M]
else
begin
if(M=2)then MonthDays:= DayInMonth[M]+1
else
MonthDays:= DayInMonth[M]
end;
end;
var
i,M,Y:integer;
begin
for i:=1 to 5 do
begin
write('Введите год и месяц:');readln(Y,M);
writeln('MonthDays(',M,',',Y,')=',MonthDays(M,Y));
end;
end.
3задача
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
Program Proc59;
function Leng(xA, yA, xB, yB:real):real;
begin
Leng:=(Sqrt(sqr(xB-xA)+sqr(yB-yA)));
end;
 
function Perim(xA, yA, xB, yB, xC, yC:real):real;
begin
Perim:=(Leng(xA, yA, xB, yB)+Leng(xA, yA, xC, yC)+Leng(xC, yC,xB, yB))/2;
end;
 
function Area(xA, yA, xB, yB, xC, yC:real):real;
var
P:real;
begin
P:=Perim(xA, yA, xB, yB, xC, yC);
Area:=Sqrt(p*(p-Leng(xA, yA, xB, yB))*(p-Leng(xA, yA, xC, yC))*(p-Leng(xB, yB,xC, yC)));
end;
 
function Dist(xP, yP, xA, yA, xB, yB:real):real;
var S,D:real;
begin
S:=Area(xP, yP, xA, yA, xB, yB);
D:=Leng(xA, yA, xB, yB);
Dist:=2*S/D;
end;
var
i:byte;
xA, yA, xB, yB, xC, yC:real;
begin
for i:=1 to 3 do
begin
write('Введите точки (Xa,Ya)');readln(xA, yA);
write('Введите точки (Xb,Yb)');readln(xB, yB);
write('Введите точки (Xc,Yc)');readln(xC, yC);
writeln('Dist(',xA,',', yA,',',xB,',',yB,',',xC,',', yC,')=',Dist(xA, yA, xB, yB, xC, yC));
end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2012, 22:04     Ребята переведите с Паскаля на си++ п л с
Посмотрите здесь:

переведите на С++ из паскаля C++
Переведите с Паскаля C++
C++ переведите с Паскаля на си++
C++ переведите с Паскаля на си++
C++ Переведите прогамму с паскаля на c++
C++ Переведите код с Паскаля на Си
C++ Переведите из Паскаля в С++
C++ Переведите программу из Паскаля на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
panicwassano
591 / 559 / 20
Регистрация: 07.11.2010
Сообщений: 2,004
06.03.2012, 23:38     Ребята переведите с Паскаля на си++ п л с #2
задачи напиши
Yandex
Объявления
06.03.2012, 23:38     Ребята переведите с Паскаля на си++ п л с
Ответ Создать тему
Опции темы

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