|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.12.2019, 19:20 | #1 |
Новичок
Джуниор
Регистрация: 17.12.2019
Сообщений: 4
|
Перевод кода Pascal на Си
Здравствуйте нужна помощь в переводе кода Pascal на C.
Я пробовал сам перевести но не получается. Вот код: readln(a); readln(b); max := 0; m := '0123456789' for i := 1 to lenght(a) do begin if strtoint(a[i]) > max then max := strtoint(a[i]); if pos(a[i], m)=0 then max := 16; end; writeln(a, '-', max); max := 0; m := '0123456789' for i := 1 to lenght(b) do begin if strtoint(b[i]) > max then max := strtoint(b[i]); if pos(b[i], m)=0 then max := 16; end; writeln(b, '-', max); end. |
19.12.2019, 08:16 | #2 |
Санитар
Старожил
Регистрация: 04.10.2008
Сообщений: 2,577
|
На С++:
Код:
Что он делает? - если в строке есть символ, не входящий в диапазон 0-9 - то выводит "str - 16" Если же все символы строки входят в диапазон 0-9 то находит среди них максимум и выводит "st - max" Не понятно зачем это нужно (здоровый человек ткаое задание делать бы вообще не стал), но если сильно приперло - то примерно так: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод кода из Pascal в C++ | viphack | Помощь студентам | 1 | 11.10.2017 21:15 |
Перевод кода из Pascal в C++ | Nurlan97 | Помощь студентам | 1 | 14.03.2014 14:30 |
Перевод кода из C++ в Pascal | Weyribll | Visual C++ | 0 | 21.01.2014 22:27 |
Перевод кода из Pascal в C++ | Kerragin | Помощь студентам | 5 | 13.12.2011 07:54 |
Перевод кода из Pascal в Object Pascal | zemskov77 | Общие вопросы Delphi | 1 | 03.01.2009 09:37 |