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

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

Войти
Регистрация
Восстановить пароль
 
FDrum
 Аватар для FDrum
-3 / 0 / 0
Регистрация: 18.02.2010
Сообщений: 80
#1

перевести из Паскаля в Срр - C++

18.02.2010, 18:28. Просмотров 771. Ответов 11
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program lab_3;
uses CRT;
   var
   x,i,min: integer;
   Begin
   clrscr;
   min:=$FFF;
   for i:=0 to 9 do
     begin
     readln(x);
        if x > 0 then
           begin
              if x < min then
                 begin
                    if x mod 2 = 0 then
                    min:=x
                 end;
           end;
     end;
     writeln('min=', min);
     readln(x);
end.
посаветуйте плиз хорошую литературу для обучения Срр
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Nameless One
Эксперт С++
 Аватар для Nameless One
5761 / 3410 / 255
Регистрация: 08.02.2010
Сообщений: 7,412
18.02.2010, 18:42     перевести из Паскаля в Срр #2
Цитата Сообщение от FDrum Посмотреть сообщение
посаветуйте плиз хорошую литературу для обучения Срр
Подскажите книжку

Цитата Сообщение от FDrum Посмотреть сообщение
min:=$FFF;
Что это значит?
insideone
Модератор
Автор FAQ
 Аватар для insideone
3634 / 912 / 48
Регистрация: 10.01.2010
Сообщений: 2,457
18.02.2010, 18:49     перевести из Паскаля в Срр #3
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream>
 
int main(){
   int x=0 ,i=0, min=0;
   min = 0xFFF;
   for (i=0; i < 9; i++)
   {
     cin >> x;
        if ( x > 0 )
        {
              if (x < min)
              {
                    if (x % 2 = 0)
                    min=x;
              }
         }
   }
   cout << "min = " << min;
   cout << x;
}
Genius Ignat
1234 / 772 / 44
Регистрация: 16.09.2009
Сообщений: 2,014
18.02.2010, 18:52     перевести из Паскаля в Срр #4
if (x % 2 = 0) then //не шали так.
easybudda
Эксперт С++
 Аватар для easybudda
9412 / 5435 / 917
Регистрация: 25.07.2009
Сообщений: 10,428
18.02.2010, 18:54     перевести из Паскаля в Срр #5
Цитата Сообщение от insideone Посмотреть сообщение
if (x % 2 = 0) then
ну-ну
Nameless One
Эксперт С++
 Аватар для Nameless One
5761 / 3410 / 255
Регистрация: 08.02.2010
Сообщений: 7,412
18.02.2010, 18:57     перевести из Паскаля в Срр #6
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream>
#include <climits>
using namespace std;
 
int main()
{
        setlocale(LC_ALL, "Russian");
        int x;
        int min=INT_MAX;//Максимальное значение типа int со знаком
        for(size_t i=0; i<10; ++i)
        {
            cin >> x;
            if((x>0)&&(x<min)&&(x%2==0))
                min=x;
        }
        cout << "min=" << x << endl;
 
        system("pause");
        return 0;
}
Добавлено через 1 минуту
Цитата Сообщение от insideone Посмотреть сообщение
for (i=0; i < 9; i++)
Я так понял, итераций все-таки должно быть десять, а не 9
insideone
Модератор
Автор FAQ
 Аватар для insideone
3634 / 912 / 48
Регистрация: 10.01.2010
Сообщений: 2,457
18.02.2010, 18:58     перевести из Паскаля в Срр #7
Цитата Сообщение от easybudda Посмотреть сообщение
ну-ну
Я оригинал переделывал построчно пропустилось
кстати помнится как с паскаля на С++ переходил порой так писал))
Цитата Сообщение от Nameless One Посмотреть сообщение
Я так понял, итераций все-таки должно быть десять, а не 9
Хм... да пожалуй
FDrum
 Аватар для FDrum
-3 / 0 / 0
Регистрация: 18.02.2010
Сообщений: 80
19.02.2010, 03:03  [ТС]     перевести из Паскаля в Срр #8
Ухх... спасиб мужики я терь немного разщарился))

Добавлено через 15 минут
Цитата Сообщение от Nameless One Посмотреть сообщение
cout << "min=" << x << endl
воД здесь ошиббка
C++
1
cout << "x=" << min << endl
////
Nameless One
Эксперт С++
 Аватар для Nameless One
5761 / 3410 / 255
Регистрация: 08.02.2010
Сообщений: 7,412
19.02.2010, 04:07     перевести из Паскаля в Срр #9
FDrum, точно
Lolcht0
123 / 121 / 5
Регистрация: 30.03.2009
Сообщений: 766
19.02.2010, 04:40     перевести из Паскаля в Срр #10
Цитата Сообщение от insideone Посмотреть сообщение
if (x % 2 = 0)
хорошо, что это хоть не скомпилится, а то потом начинаются "баги вижуал студии"
FDrum
 Аватар для FDrum
-3 / 0 / 0
Регистрация: 18.02.2010
Сообщений: 80
20.02.2010, 16:02  [ТС]     перевести из Паскаля в Срр #11
Цитата Сообщение от Nameless One Посмотреть сообщение
FDrum, точно
да я просто в паскале когда писал тоже самое писану, з бубном вокруг компа носился где-то с час, невыкупал в чем суть)))оказалосб вссе просто=))
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2010, 18:13     перевести из Паскаля в Срр
Еще ссылки по теме:

C++ Перевести с Паскаля на С++
C++ Перевести с паскаля на С++
Перевести с паскаля C++
Перевести с паскаля на си C++
C++ Перевести с паскаля на C++

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

Или воспользуйтесь поиском по форуму:
Nameless One
Эксперт С++
 Аватар для Nameless One
5761 / 3410 / 255
Регистрация: 08.02.2010
Сообщений: 7,412
20.02.2010, 18:13     перевести из Паскаля в Срр #12
Бывает... Мои извинения...
Yandex
Объявления
20.02.2010, 18:13     перевести из Паскаля в Срр
Ответ Создать тему
Опции темы

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