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

Перевести с Pascal на С++ . Знатоки - C++

Восстановить пароль Регистрация
 
iMbateh
-6 / 0 / 0
Регистрация: 27.09.2011
Сообщений: 5
27.09.2011, 17:18     Перевести с Pascal на С++ . Знатоки #1
Pascal
1
2
3
4
5
6
7
var a, s: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  s:=sqr(a);
  writeln('Площадь квадрата = ', s:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
10
var s, d, l, r: real;
begin
  write('Введите площадь круга ->');
  readln(s);
  r:=sqrt(s/pi);
  d:=r*2;
  l:=2*pi*r;
  writeln('Диаметр окружности = ', d:6:2);
  writeln('Длина окружности = ', l:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
var a, b: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  writeln('Сумма модулей = ', abs(a)+abs(b):6:2);
  writeln('Разность модулей = ', abs(a)-abs(b):6:2);
  writeln('Произведение модулей = ', abs(a)*abs(b):6:2);
  writeln('Частное модулей = ', abs(a)/abs(b):6:2);
end.
Pascal
1
2
3
4
5
6
7
var x1, y1, x2, y2, d: real;
begin
  write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
  readln(x1, y1, x2, y2);
  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('Расстояние между точками = ', d:6:2);
end.
Pascal
1
2
3
4
5
6
7
var a, b, sr: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  sr:=sqrt(a*b);
  writeln('Среднее геометрическое = ', sr:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
var x, d, e, y: integer;
begin
  write('Введите двузначное число ->');
  readln(x);
  d:=x div 10;
  e:=x mod 10;
  y:=e*10+d;
  writeln('Число наоборот = ', y);
end.
Pascal
1
2
3
4
5
6
7
var n, m: integer;
begin
  write('Введите количество секунд ->');
  readln(n);
  m:=n div 60;
  writeln('Минут = ', m);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2011, 17:18     Перевести с Pascal на С++ . Знатоки
Посмотрите здесь:

C++ перевести с pascal в С++
Перевести на C++ из Pascal C++
Перевести из Pascal в C++ C++
C++ Перевести с Pascal на C++
C++ Знатоки С++ и СИ, где вы ? Интересная олиппиадная задачка (Нужно перевести )
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
OstapBender
 Аватар для OstapBender
581 / 519 / 35
Регистрация: 22.03.2011
Сообщений: 1,585
27.09.2011, 22:49     Перевести с Pascal на С++ . Знатоки #2
1.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
#include <cmath>
using namespace std;
 
float a,s;
int main()
{
cout << "Введите длину стороны квадрата -> ";
cin >> a;
s=pow(a,2);
cout << "Площадь квадрата = " << s << endl;
return 0;
}
удачи.
Vidok
 Аватар для Vidok
36 / 36 / 2
Регистрация: 03.09.2011
Сообщений: 279
28.09.2011, 02:01     Перевести с Pascal на С++ . Знатоки #3
Тебе бы стоило только немножко почитать синтаксис, за полчаса можно это сделать
iMbateh
-6 / 0 / 0
Регистрация: 27.09.2011
Сообщений: 5
02.10.2011, 19:46  [ТС]     Перевести с Pascal на С++ . Знатоки #4
Есть кто поможет?
soon
 Аватар для soon
2536 / 1301 / 81
Регистрация: 09.05.2011
Сообщений: 3,086
Записей в блоге: 1
02.10.2011, 20:02     Перевести с Pascal на С++ . Знатоки #5

Не по теме:

Есть кто поможет?
Бессвязный набор слов. Хотя... Если принять во внимание возможную инверсию...
Кто поможет есть?
Я могу попробовать. А что есть будем?


Ну и чтобы не приняли за наглого оффтопера, вот вам решение еще одной задачки.
C++
1
2
3
4
5
6
7
8
9
#include <iostream>
 
int main()
{
    int sec;
    std::cin >> sec;
    std::cout << sec / 60 << " min";
    return 0;
}
Gik
 Аватар для Gik
15 / 15 / 12
Регистрация: 12.06.2011
Сообщений: 30
02.10.2011, 21:26     Перевести с Pascal на С++ . Знатоки #6
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include<iostream>
#include<math.h>
using namespace std;
double s,d,l,r;
int main(){
cout<<"Введите площадь круга";
cin>>s;
r=sqrt(s/3.14);
d=2*r;
l=2*3.14*r;
cout<<"Диаметр окружности"<<d<<endl;
cout<<"Длинна окружности"<<l<<endl;
return 0;
}
nonamez123
 Аватар для nonamez123
184 / 180 / 12
Регистрация: 23.10.2010
Сообщений: 1,301
02.10.2011, 21:49     Перевести с Pascal на С++ . Знатоки #7
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <cmath>
 
using namespace std;
 
int main (int argc, char * const argv[]) {
    
    double a,b;
    cout << "ВВедите 2 числа\n";
    
    cin>>a;
    cin>>b;
    
    cout << "Сумма модулей = "<< abs(a)+abs(b)<<endl;
    cout << "Разность модулей = "<< abs(a)-abs(b)<<endl;
    cout << "Произведение модулей = "<< abs(a)*abs(b)<<endl;
    cout << "Частное модулей = "<< abs(a)/abs(b);
    return 0;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.10.2011, 21:59     Перевести с Pascal на С++ . Знатоки
Еще ссылки по теме:

Перевести с Pascal на С++ C++
Перевести с Pascal на C++ C++
C++ Перевести с Pascal на C++

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

Или воспользуйтесь поиском по форуму:
Vidok
 Аватар для Vidok
36 / 36 / 2
Регистрация: 03.09.2011
Сообщений: 279
02.10.2011, 21:59     Перевести с Pascal на С++ . Знатоки #8
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
#include <math.h>
using namespace std;
 
 
int main() {
int n,m;
cout << "Введите количество секунд ->";
cin >> n;
m=fdiv(n,60);
cout << "Минут = " << m;
system("Pause");
return 0;
}
Yandex
Объявления
02.10.2011, 21:59     Перевести с Pascal на С++ . Знатоки
Ответ Создать тему
Опции темы

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