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

C++

Войти
Регистрация
Восстановить пароль
 
amsterdam22rus
29 / 29 / 2
Регистрация: 23.02.2010
Сообщений: 104
#1

Переписать проги с Pascal на С++ - C++

25.04.2010, 10:46. Просмотров 400. Ответов 2
Метки нет (Все метки)

Помогите.
1# Переварачивает число.
Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var a: word; 
begin
clrscr;
write('Vvedite 4rehzna4noe 4islo: ');
readln(a);
write(a mod 10 * 1000 + a mod 100 div 10 * 100 + a div 100 mod 10 * 10 + a div 1000);
readkey;
end.
2# Считает числа в массиве, одинаковые числа учитываются один раз.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
   b:set of char;
   i,k:integer;
   a:string;
begin
     clrscr;
     write('Vvedite 4islo '); readln(a);
     b:=['0'..'9'];
     for i:=1 to length(a) do
     if  (a[i] in b)  then
      begin;
       k:=k+1;
       b:=b-[a[i]];
      end;
     write('Koli4estvo raznih simvolov ',k);
     readkey;
end.
3# Определяет правильность числа в плавающем формате.
Pascal
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
30
31
uses crt;
var
   a:string;
   b:set of char;
   d,c,i:integer;
begin
     clrscr;
     write('Vvedite 4islo '); readln(a);
     b:=['0'..'9'];
     if a[1] in b then c:=c+1 else writeln(a[1],' ne yavlyaetsya 4islom 1 mesto');
     if a[2]='.' then c:=c+1 else writeln('net znaka "."');
     for i:=3 to length(a) do
     if a[i]='E'then d:=i;
     for i:=3 to d-1 do
     if a[i] in b then c:=c+1 else writeln(a[i], ' ne yavlyaetsya 4islom ', i, ' mesto ');
     if d<4 then
        begin
             c:=c-1; writeln('net pokazatelya stepeni')
        end
     else if (a[d+1]<>'-') and (a[d+1]<>'+') then
          begin
          writeln('posle E otsutstvuet znak');
          c:=c-1;
          end
     else if a[d+2] in b then c:=c+2 else writeln('net 4isla stepeni');
     if d>3 then
     for i:=d+2 to length(a) do
     if a[i] in b then c:=c+1 else writeln(a[i], ' ne yavlyaetsya 4islom ', i, ' mesto ');
     if c=length(a) then writeln('4islo pravelno');
     readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2010, 10:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переписать проги с Pascal на С++ (C++):

Переписать маленький код проги на старый борланд - C++
Пожалуйста, очень срочно нужно переписать прогу на старую версию борланда. В долгу не останусь. #include &lt;iostream&gt; #include...

переписать кусок проги с cin/cout на printf/scanf - C++
переписать кусок проги с cin/cout на printf/scanf очень срочно, заранее спасибо char snn; int y1=1990, y2=1999; ...

Переписать с pascal на c++ - C++
const a=5.7;b0=2;bk=8;h=2;x3=30;b1=4;b2=6; begin writeln('k = ',(b0+5.6)+(b1+5.6)+(b2+5.6)+(bk+5.6)+(x3/7*5.7)); end.

Переписать с Pascal на С++ - C++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел: '); Readln(n); ...

Переписать код с Pascal - C++
я тут написал на паскале нужно на С++ uses crt; var a,b:integer; q:boolean; z:real; begin clrscr; ...

Программу pascal переписать под c++ - C++
Всем доброго времени суток, прошу помощи у вас по скольку слабо разбераюсь в этой отрасли. program gth; Uses crt; ...

2
M128K145
Эксперт С++
8293 / 3513 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
25.04.2010, 11:39 #2
C++
1
2
3
4
5
6
7
8
9
10
11
#include <iostream>
 
int main()
{
    int a;
    std::cout<<"Vvedite 4rehzna4noe 4islo: ";
    std::cin>>a;
    std::cout<<(a % 10 * 1000 + a % 100 / 10 * 100 + a / 100 % 10 * 10 + a / 1000);
    system("pause");
    return 0;
}
1
amsterdam22rus
29 / 29 / 2
Регистрация: 23.02.2010
Сообщений: 104
25.04.2010, 13:07  [ТС] #3
Чет я туплю. У меня не арботает(((
C++
1
#include <iostream.h>
И еще одну библиотеку подключил.

Добавлено через 6 минут
C++
1
2
3
4
5
6
7
8
9
10
11
12
#include <iostream.h>
#include <stdarg.h>
#include <conio.h>
int main()
{
    int a;
    cout<<"Vvedite 4rehzna4noe 4islo: ";
    cin>>a;
    cout<<(a % 10 * 1000 + a % 100 / 10 * 100 + a / 100 % 10 * 10 + a / 1000);
    getch ();
    return 0;
}
Готово!
Спасибо!!!!

Добавлено через 3 минуты
#include <stdarg.h> Лишнее.

Добавлено через 58 минут
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
30
31
#include <string.h>
#include <iostream.h>
#include <conio.h>
 
void main()
{
clrscr();
int n;
cout<<"vvedi koli4estvo elementov ";
cin>>n;
 char mas[100];
 
    for (int j=0;j<n;j++)   //zapolnaem massiv
      cin>>mas[j];
 
 char m[11];  //massiv povtjrjaushihsa 4isel
 m[0]=mas[0];
 int k=0;            //
for ( int i=1;i<n;i++)
   {    for (int j=0;j<=k;j++)
        { if (mas[i]!=m[j])
        {  if (j>=k)  {m[j+1]=mas[i];
                   k++;
                   break; }
          }
           else     break;
        }
    }
cout<<"raznih 4isel "<<k+1;
getch();
}
Добавлено через 1 минуту
Не совсем то что на Паскале. Но по задаче надо так.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2010, 13:07
Привет! Вот еще темы с ответами:

Программы pascal переписать под c++ - C++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число n, и действительное число x....

Переписать за меня программу с Pascal на С++ - C++
Кто может первести код из Паскаля в си++? uses wincrt; var x : array of byte i,j, m,n : byte; begin ...

Программы pascal переписать под c++ - C++
Доброго времени суток. вот последняя программа которую нужно сделать под c++ Я знаю парни я вам надоел уже :) Больше не буду вас...

Программу pascal переписать под c++ - C++
Напечатать в возрастающем порядке все числа от 100 до 999, в десятичной записи в которых нет одинаковых цифр. Var s:string; ...


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

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

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