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

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

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

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

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

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

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

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

Код:

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

Последний раз редактировалось Вадим Мошев; 08.12.2018 в 12:06.
Илья20 вне форума Ответить с цитированием
Старый 07.12.2018, 23:55   #2
saahriktu
 
Регистрация: 20.11.2018
Сообщений: 3
По умолчанию

Код:
program firstword;
var
        s, t: String;
        cptr: Integer;
begin
        readln(s);
        cptr := Pos(' ', s);
        if cptr = 0 then begin writeln(s);
        end else begin
                t := Copy(s, 1, cptr - 1);
                writeln(t);
        end;
end.
Улучшенный вариант, который читает юникодную строку из командной строки GNU/Linux'а (её можно взять в кавычки):
Код:
program firstword2;
    {$codepage UTF8}
uses SysUtils, cwstring;
var
        s, t: UnicodeString;
        cptr: Integer;
begin
        if ParamCount < 1 then begin
                writeln('Error: no words');
                exit
        end;

        s := ParamStr(1);
        cptr := Pos(' ', s);
        if cptr = 0 then begin writeln(s);
        end else begin
                t := Copy(s, 1, cptr - 1);
                writeln(t);
        end;
end.
saahriktu вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pasqal Илья20 Помощь студентам 3 07.12.2018 17:05