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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить, каких слов в тексте больше: состоящих только из букв, или только из цифр http://www.cyberforum.ru/cpp-beginners/thread513645.html
определить, каких слов в тексте больше состоящих только из букв или только из цифр пока не разобрался со строками
C++ Преобразовать массив x по следующему правилу Преобразовать массив x по следующему правилу ( - значение k-го элемента массива после преобразования):  элементы массива циклически сдвинуть на 1 позицию влево: при k=2,3,…,n-1. запутался что-то при решении http://www.cyberforum.ru/cpp-beginners/thread513639.html
Даны 100 чисел. Напечатать сначала все отрицательные из них, а затем все остальные C++
Даны 100 чисел. Напечатать сначала все отрицательные из них, а затем все остальные воооооооооть=)
C++ алгоритм вывода толстой линии
Здравствуйте. Помогите написать алгоритм вывода толстой линии.
C++ По заданному числу определить наименьшую сумму его делителей http://www.cyberforum.ru/cpp-beginners/thread513635.html
Есть у нас число. Допустим 12. Оно является НОК чисел 6 и 4, а также 6 4 1, 6 4 1 3 и т.д. Задача состоит в том, что нужно вывести НАИМЕНЬШУЮ сумму делителей этого числа, для которых оно кратное. Такими для 12 есть пара чисел 3 и 4. В сумме дают 7. Разумеется, чем меньше делителей кратного числа будет, тем меньше сумма. Так что скорее всего это должна быть сумма двух чисел. Нужно реализовать это...
C++ Дан текст, подсчитать количество слов в данной строке Пожалуйста помогите решить задачу на С++ Дан текст. а) Подсчитать количество слов в данной строке; б) Подсчитать количество букв а в последнем слове данной строки; в) найти длину самого длинного слова. подробнее

Показать сообщение отдельно
ne_waru_fortran
46 / 2 / 0
Регистрация: 02.06.2011
Сообщений: 84

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

06.03.2012, 22:04. Просмотров 339. Ответов 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.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru