Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2018, 20:42   #1
Илья20
Новичок
Джуниор
 
Регистрация: 07.12.2018
Сообщений: 4
По умолчанию Pasqal

Задача: найти и вывести последнее слово строки.

Найдите ошибки и напишите правильную программу, пожалуйста.

Код:
Код:
Var s,t:string;i,n,f:integer; 
begin 
readln (s); 
n:=length (s); 
for i:=1 to n do if s[i]=' ' then f:=i; 
t:=''; 
if s[n]=' ' then begin 
for i:=f+1 to n-1 do t:=t+s[i]; 
end 
else begin 
for i:=f+1 to n do t:=t+s[i]; 
end; 
writeln (t); 
end.
Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 08.12.2018 в 12:05.
Илья20 вне форума Ответить с цитированием
Старый 08.12.2018, 11:46   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Если написать правильную, то зачем в неправильной искать ошибки ? Бо "нелегкая это работа - из болота тащить бегемота". Правильная звучит так:
Код:
 Var 
  s,t:string;i,j,n,f:integer;
begin
readln (s);
n:=length (s);
f := 0 ;
for i:=n downto 1 do
  begin
    if (s[i]>' ') then
      begin f := 1 ; j := i end
    else
      if (f>0) then Break
  end ;
t := Copy (s,j,n-j+1) ;
writeln (t)
end.
digitalis вне форума Ответить с цитированием
Старый 08.12.2018, 13:33   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Pasqal <> PasCal
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 08.12.2018, 17:07   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

он имел в виду : don Pasquale
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pasqal Илья20 Паскаль, Turbo Pascal, PascalABC.NET 1 07.12.2018 23:55
Pasqal Илья20 Помощь студентам 3 07.12.2018 17:05