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

@lego123 · Регистрация: 07.12.2015

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

Здравствуйте,помогите пожалуйста перевести с паскаля на си

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s: string;
    i: byte;
    sum,c,k,max: integer;
begin
sum:=0;
max:=-1;
write('s='); readln(s);
for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
       begin
       val(s[i],c,k);
       if c>max then max:=c;
       sum:=sum+c;
       end;
writeln('Сумма цифр=',sum);
if max <> -1 then writeln('Max цифра: ',max);
readln;
end.

Я начал писать,но не знаю как перевести на си там где,val
Вот мой код:

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
32
#include <iostream>
#include <conio.h>
#include <stdlib.h>
#include <Windows.h>
#include <time.h>
#include <cctype>
#include <cstring>
#include <cstdio>
 
using namespace std;
const int NotUsed = system("color 0A");
void main()
{
    system("mode con cols=65 lines=35"); 
    setlocale(LC_ALL, "Rus");
    char str[500];               //объявил строку
    cout << "Введите текст:";
    cin.getline(str, 500);   //ввод строки
    int len = strlen(str) - 1;  //длина массива
    int sum = 0; 
 
    int k=0;
    for (int i = 0; i <= len; i++)
    {
        if (str[i] == '0' || str[i] == '1' || str[i] == '2' || str[i] == '3' || str[i] == '4' || str[i] == '5' || str[i] == '6' || str[i] == '7' || str[i] == '8' || str[i] == '9')
        {
            //помогите тут
        }
    }
    
    _getch();
}

Заранее Спасибо!

@John Prick · 13.03.2016, 23:12

C++
1
if (str[i] == '0' || str[i] == '1' || str[i] == '2' || str[i] == '3' || str[i] == '4' || str[i] == '5' || str[i] == '6' || str[i] == '7' || str[i] == '8' || str[i] == '9')

Жуть. Надо так:

C++
1
if (str[i] >= '0' && str[i] <= '9')

Pascal
1
val(s[i],c,k);

Если речь просто о цифре, то можно по простому:

C++
1
int с = static_cast<int>(str[i] - '0');

@lego123 · 13.03.2016, 23:46 **[ТС]**

C++
1
int с = static_cast<int>(str[i] - '0');

я не могу потом использовать эту переменную,студия ругается.

@John Prick · 14.03.2016, 00:00

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

я не могу потом использовать эту переменную,студия ругается.

Где не можешь? Куда ты там её вставил? Приведи код.

@lego123 · 14.03.2016, 00:10 **[ТС]**

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
32
33
34
35
36
37
#include <iostream>
#include <conio.h>
#include <stdlib.h>
#include <Windows.h>
#include <time.h>
#include <cctype>
#include <cstring>
#include <cstdio>
 
using namespace std;
const int NotUsed = system("color 0A");
void main()
{
    system("mode con cols=65 lines=35"); 
    setlocale(LC_ALL, "Rus");
    char str[500];               //объявил строку
    cout << "Введите текст:";
    cin.getline(str, 500);   //ввод строки
    int len = strlen(str) - 1;  //длина массива
    int sum = 0; 
 
    int k=0;
    int max = -1;
    for (int i = 0; i <= len; i++)
    {
        if (str[i] >= '0' && str[i] <= '9')
        {
            int с = static_cast<int>(str[i] - '0');
            if (c > max)
            {
                max = c;
            }
        }
    }
    
    _getch();
}

@TheCalligrapher · 14.03.2016, 00:15

lego123,

Как водится, кириллическую c вместо латинской c вписали.

Выделяем идентификатор с в int с = static_cast<int>(str[i] - '0'); просим Хром сделать поиск в Гугле. Первая же ссылка в результатах поиска откровенно намекает нам, что это таки кириллическая с.

@lego123 · 14.03.2016, 00:43 **[ТС]**

Ах,блин,вот ступил.Извините

Добавлено через 3 минуты
Спасибо большое,вы очень помогли!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@TheCalligrapher Вездепух 12943 / 6810 / 1821 Регистрация: 18.10.2014 Сообщений: 17,234
	14.03.2016, 00:15
	lego123, Как водится, кириллическую `c` вместо латинской `c` вписали. Выделяем идентификатор `с` в `int с = static_cast<int>(str[i] - '0');` просим Хром сделать поиск в Гугле. Первая же ссылка в результатах поиска откровенно намекает нам, что это таки кириллическая `с`. 1

@lego123 0 / 0 / 0 Регистрация: 07.12.2015 Сообщений: 54
	14.03.2016, 00:43 [ТС]
	Ах,блин,вот ступил.Извините Добавлено через 3 минуты Спасибо большое,вы очень помогли! 0

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

Решение