Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2021, 09:13   #1
Владимир КВС
Новичок
Джуниор
 
Регистрация: 17.04.2021
Сообщений: 1
По умолчанию ПОМОЩЬ В РЕШЕНИИ ПРОГРАММЫ

Добрый день всем!
Помогите решить программку, дочке задали. При запуске в online_pascal_compiler выдаёт ошибку -Compiling main.pas
main.pas(2,3) Fatal: illegal character "'�'" ($D0)
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)


Сама задача:
Какое слово будет выведено на экране в результате выполнения
программы?

1) Весенний
2) день
3) год
4) кормит

var
А, D : string [255]; i, kb, mkb, k, mk, np, mnp :
integer;
begin
А:= 'Весенний день год кормит';
i:=1; kb:=0; mkb:=0; np:=1;
while(i<=length(А)) do begin
while(А[i]<>'н') do begin
if А[i]='н' then kb:=kb+1;
k:=k+1; i:=i+1;
end;
if mkb<kb then begin mkb:=kb; mnp:=np; mk:=k;
end;
np:=i+1; kb:=0; k:=0;
i:=i+1;
end;
D:= copy(a,mnp,mk);
writeln(D);
end.
Владимир КВС вне форума Ответить с цитированием
Старый 17.04.2021, 12:02   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,639
По умолчанию

Чрезмерное использование верхнего регистра
Arigato вне форума Ответить с цитированием
Старый 17.04.2021, 17:32   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,379
По умолчанию

На этом примере можно учить студентов и школьников - как не надо писать программы.
1. Код надо форматировать отступами, чтобы была видна структура программы (я привёл пример) . И помещая текст проги в форум, надо обрамлять его тегами CODE (выделить весь текст исходника и нажать кнопку CODE )
2. Я не знаю, в каком редакторе набирался исходник, но кириллица в кодах недопустима. Мне-то
всё равно, что А и С выглядят одинаково в обоих раскладках, а вот компилятор посылает на
3 буквы в конце латинского алфавита. :
Цитата:
Fatal: illegal character "'�'" ($D0)
После исправления этого <censored> прога была откомпилирована и запущена. Ответ на вопрос
Цитата:
Какое слово будет выведено на экране в результате выполнения программы?
звучит так: никакое. Искать логику в этой <censored> бессмысленно, достаточно посмотреть на
Код:
while(А[i]<>'н') do begin
if А[i]='н' then kb:=kb+1;
что в переводе на простой язык означает: пока А[i] НЕ РАВНО 'н' делать вот что:
если А[i] РАВНО 'н' ....

Пусть неудача не огорчает. Учиться, учиться...

А набирать заглавие темы ПРОПИСНЫМИ равносильно в обычной жизни: кричать в лицо собеседнику.

Код:
var
A, D : string [255]; i, kb, mkb, k, mk, np, mnp :
integer;
begin
A:= 'Весенний день год кормит';
i:=1; kb:=0; mkb:=0; np:=1;
while(i<=length(A)) do
  begin
    while(A[i]<>'í') do
       begin
         if A[i]='í' then kb:=kb+1;
         k:=k+1;
         i:=i+1;
       end;
    if mkb<kb then
       begin
         mkb:=kb;
         mnp:=np;
         mk:=k;
       end;
    np:=i+1;
    kb:=0;
    k:=0;
    i:=i+1;
  end;
D:= '==' + Copy(A,mnp,mk);
writeln(D);
end;
(Здесь я добавил '==' + ), чтобы убедиться, что прога не зависла, а выдала хоть что-то. Но совсем не то, что ожидалось.

Последний раз редактировалось digitalis; 17.04.2021 в 23:43.
digitalis вне форума Ответить с цитированием
Старый 18.04.2021, 12:21   #4
Alex314
Новичок
Джуниор
 
Регистрация: 14.04.2014
Сообщений: 3
По умолчанию

[QUOTE=digitalis;1831459] На этом примере можно учить студентов и школьников - как не надо писать программы.
2. Я не знаю, в каком редакторе набирался исходник, но кириллица в кодах недопустима.

В каком - определить нетрудно.
Сообщение "Error: /usr/bin/ppcx64" намекает на линуксовый Free Pascal. Либо ПК под клон Линукса, либо планшет/мобилка с Андроид.

Кириллица (а также греческие и иные буквенные символы Unicode) допустимы в PascalABC.NET.

Последний раз редактировалось Alex314; 18.04.2021 в 12:24.
Alex314 вне форума Ответить с цитированием
Старый 18.04.2021, 13:20   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,379
По умолчанию

Может быть. Я этот абеце-недопаскаль после всего того, что о нём наслышан, даже не воспринимаю его существование. Так в теме ТСу и надо было указть. Во всяком случае, переведя прогу в нормальный Паскаль, имем то, что имеем (#3).
Поздравляю с прибытием на наш форум! Нужно ещё научится правильно оформлять цитирование

Последний раз редактировалось digitalis; 18.04.2021 в 13:25.
digitalis вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
НУЖНА ПОМОЩЬ в решении 5 примеров Олег Донсов Помощь студентам 5 11.10.2015 16:53
Нужна помощь в решении задачи MarcusAurelius Помощь студентам 10 14.09.2015 19:47
Помощь в решении логарифмов Алексей_2012 Помощь студентам 10 24.07.2014 11:05
Помощь в решении задач. (Pascal) Ignoree Помощь студентам 2 27.04.2014 19:27
Помощь в решении задач на Pascal. Girl_night Помощь студентам 1 15.10.2009 15:39


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS