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

Перевсти с pascal - C++

Восстановить пароль Регистрация
 
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
08.05.2013, 17:43     Перевсти с pascal #1
Переведите пожалуйста текст с pascal на С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var v1,t1,v2,t2,v3,t3,s1,s2,s3,sum:real;
begin
writeln('Введите время t1 и скорость v1');
readln(t1,v1);
writeln('Введите время t2 и скорость v2');
readln(t2,v2);
writeln('Введите время t3 и скорость v3');
readln(t3,v3);
s1:=v1*t1;
s2:=v2*t2;
s3:=v3*t3;
sum:=(s1+s2+s3)/2;
if sum<s1 then
Writeln('Во время остановки передвигался на машине')
else
begin
if (sum<s1+s2) then
Writeln('Во время остановки передвигался на велосипеде')
else
Writeln('Во время остановки передвигался пешком')
end;
Readln;
end.

Сам попробовал и получил следующее:
C++
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
#include<iostream>
#include<math.h>
 
int main() 
{
    int v1, t1, v2, t2, v3, t3, s1, s2, s3, sum;
 
    count << "Введите время t1 и скорость v1 ";
    cin >> t1, v1;
    count << "Введите время  t2 и скорость v2";
    cin >> t2, v2;
    count << "Введите время  t3 и скорость v3";
    cin >> t3, v3;
 
    s1 = v1 * t1;
    s2 = v2 * t2;
    s3 = v3 * t3;
    sum = ( s1 + s2 + s3 ) / 2;
 
    if ( sum < s1 )  count << "Во время остановки передвигался на машине" else
    { 
        if ( sum < s1 + s2 ) count << "Во время остановки передвигался на велосипеде" else 
            count << "Во время остановки передвигался пешком" 
    }
    return 0;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2013, 17:43     Перевсти с pascal
Посмотрите здесь:

C Pascal на C++ C++
C++ Pascal to C++
Из Pascal в С C++
Pascal to С++ C++
C++ Pascal to C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Uka4me
1 / 1 / 0
Регистрация: 08.05.2013
Сообщений: 12
08.05.2013, 17:50     Перевсти с pascal #2
C++
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
#include<iostream>
#include<math.h>
 #include <cstdlib>
#include <stdio.h>
 
using namespace std;
int main() 
{
    int v1, t1, v2, t2, v3, t3, s1, s2, s3, sum;
 
    cout << "Ââåäèòå âðåìÿ t1 ГЁ ñêîðîñòü v1 ";
    cin >> t1, v1;
    cout << "Ââåäèòå âðåìÿ  t2 ГЁ ñêîðîñòü v2";
    cin >> t2, v2;
    cout << "Ââåäèòå âðåìÿ  t3 ГЁ ñêîðîñòü v3";
    cin >> t3, v3;
 
    s1 = v1 * t1;
    s2 = v2 * t2;
    s3 = v3 * t3;
    sum = ( s1 + s2 + s3 ) / 2;
 
    if ( sum < s1 )  cout << "Âî âðåìÿ îñòГ*Г*îâêè ïåðåäâèãГ*ëñÿ Г*Г* Г¬Г*ГёГЁГ*ГҐ"; else
    { 
        if ( sum < s1 + s2 ) cout << "Âî âðåìÿ îñòГ*Г*îâêè ïåðåäâèãГ*ëñÿ Г*Г* âåëîñèïåäå"; else 
            cout << "Âî âðåìÿ îñòГ*Г*îâêè ïåðåäâèãГ*ëñÿ ïåøêîì"; 
    }
    system("PAUSE");
}
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
08.05.2013, 18:21  [ТС]     Перевсти с pascal #3
Uka4me, спасибо
mat_for_c
 Аватар для mat_for_c
115 / 110 / 19
Регистрация: 26.04.2013
Сообщений: 584
Завершенные тесты: 2
08.05.2013, 20:46     Перевсти с pascal #4
C++
1
#include <iostream>
будет достаточно.
Uka4me
1 / 1 / 0
Регистрация: 08.05.2013
Сообщений: 12
08.05.2013, 21:02     Перевсти с pascal #5
mat_for_c, и плюс пространства имен, точек с запятой и правильное написание cout)
mat_for_c
 Аватар для mat_for_c
115 / 110 / 19
Регистрация: 26.04.2013
Сообщений: 584
Завершенные тесты: 2
12.05.2013, 18:31     Перевсти с pascal #6
Я имел ввиду про библиотеки... Зачем их столько нужно?
Yandex
Объявления
12.05.2013, 18:31     Перевсти с pascal
Ответ Создать тему
Опции темы

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