Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
dreammastero
Заблокирован
1

Перевести из Turbo Pascal в C++

14.11.2014, 10:32. Просмотров 1139. Ответов 5
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var x: longint;
begin
      clrscr;
      writeln(‘Введите число от 1 до 10000:);
      readln(x);
      write(‘Количество цифр в числе =  ‘);
      case x of 
           1..9: writeln(1);
           10..99: writeln(2);
           100..999: writeln(3);
           1000..9999: writeln(4);
            else writeln(5)
            end;
            readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2014, 10:32
Ответы с готовыми решениями:

Перевести из Turbo Pascal в C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; ...

Перевести код из Turbo Pascal в C++
uses crt; var x : array of integer; i, m : byte; s, p :...

Нужно Перевести программу с Turbo pascal на C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот...

Как программу на Turbo Pascal перевести на C++?Выручите)
const N=3; var X,Y:array of real;Z:array of...

Из Turbo Pascal в C++
var mas:arrayof Integer; A,i,n,sum:Integer; begin write('4islo...

5
assassinacbac2a
4 / 4 / 3
Регистрация: 24.08.2014
Сообщений: 24
14.11.2014, 11:28 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
#include <iostream>
 
using namespace std;
 
int main()
{
int x;
cout << "Vvedite chislo ot 1 do 10000: ";
cin >> x;
cout << "Kolichestvo cifr v chisle: ";
if(x >=1 && x <= 9)
cout << 1;
else if(x >= 10 && x <= 99)
cout << 2;
else if(x >= 100 && x <= 999)
cout << 3;
else if(x >= 1000 && x <= 9999)
cout << 4;
else
cout << 5;
cout << endl;
return 0;
}
1
dreammastero
Заблокирован
17.11.2014, 15:21  [ТС] 3
Помогите перевести
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b,x,y,u: real;
bеgin
     clrscr;
     write(‘Введіть значення а =);
     readln(a);
     write(‘Введіть значення b =);
     readln(b);
     write(‘Введіть значення х=);
     read(x);
     write(‘Введіть значення у=);
     readln(y);
     u:=(abs(x-1.25*b))+((sqrt((a*a)-(b*b))+(sin(x)*sin(x)*sin(x)))/(exp(a)+2*y));
     writeln(‘ Результат U=,u:5:2);
     readln;
end.
я попытался) где ошибка?
C
1
2
3
4
5
6
7
8
9
10
11
12
#include <stdio.h>
#include <conio.h>
#include <math.h>
main()
{
      float a,b,x,y,u;
      printf("Введите a,b,x,y\n");
      scanf("%f%f%f%f",&a,&b,&x,&y);
       u=(fabs(x-1.25*b))+((sqrt((a*a)-(b*b))+(sin(x)*sin(x)*sin(x)))/(exp(a)+2*y));
      printf("Результат: \n",u);
      getch();
      }
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26313 / 17646 / 6995
Регистрация: 22.10.2011
Сообщений: 31,061
Записей в блоге: 6
17.11.2014, 17:27 4
C
10
printf("Результат: %5.2f\n",u);
1
dreammastero
Заблокирован
19.11.2014, 15:01  [ТС] 5
А по первому вопросу можно сделать с оператором switch?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26313 / 17646 / 6995
Регистрация: 22.10.2011
Сообщений: 31,061
Записей в блоге: 6
19.11.2014, 15:34 6
switch в С++ совсем не такой, как в Паскале. Если тебя устраивает написать вручную 9000 меток - то да, можно, если нет - то нет...
1
19.11.2014, 15:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2014, 15:34

Из Turbo pascal в С++
var st: string; i, count: integer; begin readln(st); for i:=1 to...

Из Turbo Pascal в C++
Составить программу, которая находит наибольшую сторону треугольника, если...

Перевести задачи из Dev C++ на Turbo C++
Все работает, но массив берет из не пойми откуда, помогите? кто шарит? 1...


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

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

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