Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
 Аватар для FDrum
-3 / 0 / 2
Регистрация: 18.02.2010
Сообщений: 80

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

18.02.2010, 18:28. Показов 1299. Ответов 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.
посаветуйте плиз хорошую литературу для обучения Срр
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.02.2010, 18:28
Ответы с готовыми решениями:

Как сделать несколько функций в одном срр ?Написал программы, которые нужно поочередно запустить в одном срр
#include &lt;iostream&gt; void func(double&amp; x,double&amp; y) { double temp_min = (x + y) / 2.0;; if(x == std::min(x,y)) { ...

срр файл в нутри срр
можна ли зделать так что бы срр файл выполнялса в нутри главно файла програмы (срр) при нажатии кнопки если да то как ?

Перевести с Паскаля на С++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная матрица:'); for i:=1 to n do ...

11
Эксперт С++
 Аватар для Nameless One
5828 / 3479 / 358
Регистрация: 08.02.2010
Сообщений: 7,448
18.02.2010, 18:42
Цитата Сообщение от FDrum Посмотреть сообщение
посаветуйте плиз хорошую литературу для обучения Срр
Подскажите книжку

Цитата Сообщение от FDrum Посмотреть сообщение
min:=$FFF;
Что это значит?
0
Автор FAQ
 Аватар для insideone
3687 / 964 / 114
Регистрация: 10.01.2010
Сообщений: 2,550
18.02.2010, 18:49
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;
}
1
1261 / 799 / 108
Регистрация: 16.09.2009
Сообщений: 2,010
18.02.2010, 18:52
if (x % 2 = 0) then //не шали так.
0
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
 Аватар для easybudda
12843 / 7592 / 1766
Регистрация: 25.07.2009
Сообщений: 13,973
18.02.2010, 18:54
Цитата Сообщение от insideone Посмотреть сообщение
if (x % 2 = 0) then
ну-ну
0
Эксперт С++
 Аватар для Nameless One
5828 / 3479 / 358
Регистрация: 08.02.2010
Сообщений: 7,448
18.02.2010, 18:57
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
2
Автор FAQ
 Аватар для insideone
3687 / 964 / 114
Регистрация: 10.01.2010
Сообщений: 2,550
18.02.2010, 18:58
Цитата Сообщение от easybudda Посмотреть сообщение
ну-ну
Я оригинал переделывал построчно пропустилось
кстати помнится как с паскаля на С++ переходил порой так писал))
Цитата Сообщение от Nameless One Посмотреть сообщение
Я так понял, итераций все-таки должно быть десять, а не 9
Хм... да пожалуй
1
 Аватар для FDrum
-3 / 0 / 2
Регистрация: 18.02.2010
Сообщений: 80
19.02.2010, 03:03  [ТС]
Ухх... спасиб мужики я терь немного разщарился))

Добавлено через 15 минут
Цитата Сообщение от Nameless One Посмотреть сообщение
cout << "min=" << x << endl
воД здесь ошиббка
C++
1
cout << "x=" << min << endl
////
0
Эксперт С++
 Аватар для Nameless One
5828 / 3479 / 358
Регистрация: 08.02.2010
Сообщений: 7,448
19.02.2010, 04:07
FDrum, точно
0
125 / 123 / 0
Регистрация: 30.03.2009
Сообщений: 766
19.02.2010, 04:40
Цитата Сообщение от insideone Посмотреть сообщение
if (x % 2 = 0)
хорошо, что это хоть не скомпилится, а то потом начинаются "баги вижуал студии"
0
 Аватар для FDrum
-3 / 0 / 2
Регистрация: 18.02.2010
Сообщений: 80
20.02.2010, 16:02  [ТС]
Цитата Сообщение от Nameless One Посмотреть сообщение
FDrum, точно
да я просто в паскале когда писал тоже самое писану, з бубном вокруг компа носился где-то с час, невыкупал в чем суть)))оказалосб вссе просто=))
0
Эксперт С++
 Аватар для Nameless One
5828 / 3479 / 358
Регистрация: 08.02.2010
Сообщений: 7,448
20.02.2010, 18:13
Бывает... Мои извинения...
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.02.2010, 18:13
Помогаю со студенческими работами здесь

Перевести с паскаля на С++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...

Перевести с Паскаля на С++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...

Перевести из паскаля на c++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if (sqrt(x)+sqrt(y)&lt;=4) AND NOT((...

Перевести из паскаля на с++
program laba3; var n, i: integer; a, y: real; begin writeln ('Введите n'); ...

перевести из паскаля в с++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru