Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Поможіть скласти програму!
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Поможіть скласти програму на PascalABC.net В якій користувач вводив рядок в якому є декілька слів розділені пропуском а програма виводила друге слово рядка.
Із чим саме у вас виникли проблеми?
Вот код для виведення останього слова рядка як мені зробити щоб виводив не останє а друге слово рядка
var
sp,s:string;
i:integer;
begin
ReadLn(s);
while (Length(s)>0) and (s[length(s)]=' ') do Delete(s,length(s),1);
sp:='';
i:=length(s);
while (i>1)and(s[i]<>' ') do
begin
sp:=s[i]+sp;
i:=i-1;
end;
writeln (sp);
end.Ну дивіться:
i:=length(s); //Тут у вас і дорівнює довжині рядка
Далі ви зменшуєте і поки не знайдете пробіл між словами
while (i>1)and(s[i]<>' ') do
begin
i:=i-1;
end;Якщо у вас є фраза "Український форум програмістів", то спочатку і буде дорівнювати 30, а після закінчення циклу 18. Маючи ці два числа, можна вирізати останнє слово за допомогою Copy: http://pascal.org.ua/structure-types#procedures
Щоб знайти друге слово, треба починати пошук першого пробіла в рядку від одиниці, і з кожним кроком збільшувати i. Потім потрібно зробити другий цикл для змінної j, причому її початкове значення буде j = i + 1; І також збільшуйте її, поки не знайдете другий пробіл в рядку. В результаті у вас у змінній i опиниться початок слова, а у j - кінець. Саме слово так само можна отримати функцією Copy.
Добрий день ! Програмісти , ви не могли б мені допомогти ?! . Я лише вчуся на другому курсі колледжу і нам не дуже пощастило з вчителем , адже з усіх предметів не розумію лише його предмет , приходиться вчити все самотужки , але з масивами в мене виникли проблеми . Якщо хтось бажає допомогти то я скину умову . ДЯкую усім небайдужим . Мені не потрібно зробити за мене , я хочу просто зрозуміти
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися