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

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

Войти
Регистрация
Восстановить пароль
 
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119
#1

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

08.05.2013, 17:43. Просмотров 254. Ответов 5
Метки нет (Все метки)

Переведите пожалуйста текст с 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# - C#
Помогите переделать код на C#. #include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;list&gt; #include &lt;string&gt; #include...

Перевсти из StringGrid в ListBox - Delphi
Есть 2 StringGrid, необходимо данные из каждого грида отобразить в listbox в виде X;Y, где Х элемент из первого StringGrid,а У из...

Перевсти System::String в LPCSRT - C++/CLI
Около 5-ти лет кодил на vb6, но встала острая нужда в правке программы на С++, в связи с чем периодически появляются определенные вопросы,...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Нужен Turbo pascal или Free pascal на русском - Pascal
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo pascal, а установлен pascalABC, в книге...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
139 / 134 / 29
Регистрация: 26.04.2013
Сообщений: 651
Завершенные тесты: 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)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2013, 18:31     Перевсти с pascal
Еще ссылки по теме:

Перевод программы с Turbo Pascal на Pascal ABC.NET - PascalABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Необходимо перевести программу с Pascal ABC на free pascal - Free Pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin ...


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

Или воспользуйтесь поиском по форуму:
mat_for_c
139 / 134 / 29
Регистрация: 26.04.2013
Сообщений: 651
Завершенные тесты: 2
12.05.2013, 18:31     Перевсти с pascal #6
Я имел ввиду про библиотеки... Зачем их столько нужно?
Yandex
Объявления
12.05.2013, 18:31     Перевсти с pascal
Ответ Создать тему
Опции темы

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