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

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

Восстановить пароль Регистрация
 
amsterdam22rus
 Аватар для amsterdam22rus
29 / 29 / 2
Регистрация: 23.02.2010
Сообщений: 104
25.04.2010, 10:46     Переписать проги с Pascal на С++ #1
Помогите.
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2010, 10:46     Переписать проги с Pascal на С++
Посмотрите здесь:

переписать кусок проги с cin/cout на printf/scanf C++
C++ Переписать код с Pascal
C++ Переписать маленький код проги на старый борланд
Переписать за меня программу с Pascal на С++ C++
C++ Программу Pascal переписать под c++
Программу pascal переписать под c++ C++
C++ Программы pascal переписать под c++
C++ Программы pascal переписать под c++
Программу pascal переписать под c++ C++
Переписать с pascal на c++ C++
C++ Переписать с Pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
M128K145
Эксперт C++
 Аватар для M128K145
8276 / 3495 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
25.04.2010, 11:39     Переписать проги с Pascal на С++ #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;
}
amsterdam22rus
 Аватар для amsterdam22rus
29 / 29 / 2
Регистрация: 23.02.2010
Сообщений: 104
25.04.2010, 13:07  [ТС]     Переписать проги с Pascal на С++ #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 минуту
Не совсем то что на Паскале. Но по задаче надо так.
Yandex
Объявления
25.04.2010, 13:07     Переписать проги с Pascal на С++
Ответ Создать тему
Опции темы

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