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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
iMbateh
-6 / 0 / 0
Регистрация: 27.09.2011
Сообщений: 5
#1

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

27.09.2011, 17:18. Просмотров 449. Ответов 7
Метки нет (Все метки)

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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2011, 17:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Pascal на С++ . Знатоки (C++):

Знатоки С++ и СИ, где вы ? Интересная олиппиадная задачка (Нужно перевести ) - C++
Буду благодарна за любую помощь // Меньшиков. Тренировка 1. // 1E. Степень // Длинная арифметика // ibelyaev: 20Feb2010 ...

Перевести с Pascal на C++ - C++
Каково содержание задачи? var a:array of integer; i,j,k,l,q,w,e:integer; begin // Randomize; for i:=1 to 10 do begin...

Перевести с Pascal на C++ - C++
Перевести с Pascal на C++ Var i,j,n : Longint; Fl : Boolean; Begin For n:=5 to 100 do Begin fl:=false;

Перевести с pascal - C++
Помогите перевести программу с Паскаля на Си++ Program Negative; var a, b: arrayof String; i, j, n, m, answer: Integer; ...

Перевести из PASCAL в С++ - C++
переведите пожалуйста Var f:text; s,s1:string; i:byte; Begin Assign(f,'D:\in.txt');Reset(f); While not...

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

7
OstapBender
584 / 523 / 35
Регистрация: 22.03.2011
Сообщений: 1,585
27.09.2011, 22:49 #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;
}
удачи.
0
Vidok
37 / 37 / 2
Регистрация: 03.09.2011
Сообщений: 279
28.09.2011, 02:01 #3
Тебе бы стоило только немножко почитать синтаксис, за полчаса можно это сделать
0
iMbateh
-6 / 0 / 0
Регистрация: 27.09.2011
Сообщений: 5
02.10.2011, 19:46  [ТС] #4
Есть кто поможет?
0
soon
2542 / 1307 / 81
Регистрация: 09.05.2011
Сообщений: 3,086
Записей в блоге: 1
02.10.2011, 20:02 #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;
}
2
Gik
15 / 15 / 12
Регистрация: 12.06.2011
Сообщений: 30
02.10.2011, 21:26 #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;
}
0
nonamez123
185 / 181 / 12
Регистрация: 23.10.2010
Сообщений: 1,301
02.10.2011, 21:49 #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;
}
0
Vidok
37 / 37 / 2
Регистрация: 03.09.2011
Сообщений: 279
02.10.2011, 21:59 #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;
}
0
02.10.2011, 21:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.10.2011, 21:59
Привет! Вот еще темы с ответами:

Перевести из Pascal на С++ - C++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках, которые не содержат отрицательных...

перевести с pascal на С++ - C++
Помогите пожалуйста перевести на c++ Само задание : Пусть дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого...

Перевести с pascal на с++ - C++
uses crt; var i_put,o_put:string; i,s_ch,n:byte; flag:boolean; Begin ClrScr; writeln('Vvedite stroku:'); ...

Перевести с Pascal в С++ - C++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru