|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Результаты опроса: какой язык программирования вам по душе? | |||
Си | 3 | 100.00% | |
Делфи | 0 | 0% | |
Паскать | 0 | 0% | |
VBasik | 0 | 0% | |
Опрос с выбором нескольких вариантов ответа. Голосовавшие: 3. Вы ещё не голосовали в этом опросе |
|
Опции темы | Поиск в этой теме |
14.12.2011, 16:54 | #1 |
Новичок
Джуниор
Регистрация: 14.12.2011
Сообщений: 1
|
готовую программу перевести на си
program program1;
var s,subs:string;c:char;isOneNumber:bo olean;p:byte;n,err:integer; begin writeln('‚Введите фразу'); readln(s); c:=s[1]; isOneNumber:=false; p:=pos(' ',s); while p<>0 do begin if p=1 then begin s:=copy(s,2,length(s)); p:=pos(' ',s); continue; end; subs:=copy(s,1,p-1); s:=copy(s,p+1,length(s)); p:=pos(' ',s); val(subs,n,err); if err<>0 then continue; if (n=0) or (n>9) then continue; isOneNumber:=true; break; end; if isOneNumber then writeln('‚ Есть числа, сосотоящие из одной цифры') else writeln('‚Нет чисел, состоящих из одной цифры'); end. |
15.12.2011, 00:11 | #2 |
Старожил
Регистрация: 25.08.2011
Сообщений: 2,841
|
Хм. код переписал но что-то не понятно ... Опишите вашу задачу, так может станет яснее. А то очень похоже что у вас тут ошибка закралась.
Исходя из кода я понял что вам нужно найти в строке однозначные числа? Однако при p=1 у вас число просто проскакивает и продолжает вполнятся цикл. Косячок. Пишите в аську, там пообщаемся поближе. Но алгоритм выбран мягко говоря коряво. Можно сделать все намного проще.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменит готовую программу??? | Javan | Фриланс | 3 | 06.10.2011 06:18 |
Нужно добавить одну мелочь в готовую программу. | Goldcoding | Фриланс | 1 | 28.09.2011 22:54 |
облегчить готовую программу | Azizus | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.04.2011 11:49 |
Из Pascal'я в Delphi переделать готовую программу. | Tonik_A | Фриланс | 1 | 12.05.2010 21:38 |
Как готовую программу в С++ перевести в форму? | Жужа | Помощь студентам | 8 | 21.10.2009 18:43 |