перевести программу из паскаля в с++(для среды Borland C++)

@stranik222 · Регистрация: 12.07.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++)
Условие: дан символ С, изображающий цифру или букву(латинскую или русскую). Если С изображает цифру,
то вывести строку "digit", если латинскую букву - вывести строку "lat", если русскую - вывести строку
"rus"(обработка строк).
прога:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  c:char;
begin
  write('Введите символ, изображающий цифру или букву:');
  readln(c);
   case c of
    '0'..'9': writeln('Digit');
    'a'..'z','A'..'Z': writeln('Lat');
    'а'..'п','р'..'я','А'..'Я','ё','Ё': writeln('Rus') 
  else
    writeln('Ошибка ввода');
  end; 
  readln;
end.

@Valentina · 13.07.2013, 15:53

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>
#include <cctype>
using namespace std;
int main()
{
    setlocale(LC_CTYPE,"rus");
    int c;
    while(true)
    {
        c = cin.get();
        cin.ignore(100, '\n');
        
        if(isdigit(c))
            cout << "Цифра\n";
        else if((c >=160 && c <=175) || (c >=224&& c <=239))
           cout << "Русская буква\n";
        else if(isalpha(c))
            cout << "Английская буква\n"<< '\n';
        else
            cout << "Не верный ввод! " << c << '\n';
    }
    return 0;
}

@stranik222 · 13.07.2013, 16:03 **[ТС]**

спасибо, но как я понимаю в среде Borland C++, сможете изменить синтаксис для этой среды?

Добавлено через 1 минуту

Сообщение от Valentina

c = cin.get();
* * * * cin.ignore(100, '\n');

объясните пожалуйста этот кусочек?

@Dani · 13.07.2013, 16:11

stranik222, идет считывание отдельного символа и, если кто-то ввел не один символ в строке, а несколько, то остальные символы пропускаются, пока не встретится символ перевода строки (либо пока не будет пропущено 100 символов).

@stranik222 · 13.07.2013, 16:35 **[ТС]**

а в какой среде вы пишете?

@Valentina · 13.07.2013, 20:28

Сообщение от stranik222

а в какой среде вы пишете?

Visual Studio 2008

@stranik222 · 13.07.2013, 20:50 **[ТС]**

а в чем разница между Visual Studio 2008 и Borland C++?

@Belfegor · 13.07.2013, 21:10

Не по теме:

и то и то шлак

Бесплатные среды (IDE) для программирования на С/С++

Не по теме:

от себя советую http://www.codeblocks.org/

@Kuzia domovenok · 13.07.2013, 21:13

Сообщение от Belfegor

и то и то шлак

Вообще-то Visual Studio производится Коропрацией Microsoft !
Как это может быть шлак? Шлаком всякие линуксоиды пользуются.

@Belfegor · 13.07.2013, 21:17

Не по теме:

Сообщение от Kuzia domovenok

Вообще-то Visual Studio производится Коропрацией Microsoft !

это из разряда "мальчик однажды использовал goto и умер"

а вобще там конкретно упоминалась 2008, у меня, да и у всех разумномыслящих никаких хороших ассоциаций с такой древностью не вызывается:(

@stranik222 · 13.07.2013, 21:35 **[ТС]**

помогите лучше программу на си перевести пож?

@Thinker · 13.07.2013, 21:39

Сообщение от stranik222

помогите лучше программу на си перевести пож?

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

@stranik222 · 13.07.2013, 21:43 **[ТС]**

Сообщение от Thinker

пару дней назад точно такие же задачи всплывали (один в один), нет бы поискать:

да мне надо для среды Borland C++, а не для Visual studio

@Kuzia domovenok · 13.07.2013, 22:10

Сообщение от Belfegor

а вобще там конкретно упоминалась 2008, у меня, да и у всех разумномыслящих никаких хороших ассоциаций с такой древностью не вызывается

У меня конкретно сейчас стоит MSVS2008. Денег на ежегодную покупку новой версии студии не имею.

Добавлено через 1 минуту

Сообщение от stranik222

да мне надо для среды Borland C++, а не для Visual studio

Просто удали Борланд и поставь Студию. Не важно какую. Накрайняк можешь express edition поставить. Компания Borland умерла вместе с динозаврами.

@stranik222 · 13.07.2013, 22:14 **[ТС]**

Сообщение от Kuzia domovenok

Компания Borland умерла вместе с динозаврами

нас только в этой среде работать учили и вот поэтому мучаюсь

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	13.07.2013, 16:11
	stranik222, идет считывание отдельного символа и, если кто-то ввел не один символ в строке, а несколько, то остальные символы пропускаются, пока не встретится символ перевода строки (либо пока не будет пропущено 100 символов). 1

@stranik222 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 17
	13.07.2013, 16:35 [ТС]
	а в какой среде вы пишете? 0

@stranik222 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 17
	13.07.2013, 20:50 [ТС]
	а в чем разница между Visual Studio 2008 и Borland C++? 0

@Belfegor Ghost 174 / 174 / 40 Регистрация: 16.09.2012 Сообщений: 526
	13.07.2013, 21:10
	Не по теме: и то и то шлак Бесплатные среды (IDE) для программирования на С/С++ Не по теме: от себя советую http://www.codeblocks.org/ 0

@stranik222 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 17
	13.07.2013, 21:35 [ТС]
	помогите лучше программу на си перевести пож? 0