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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 07.12.2018, 21:39   #1
Илья20
Новичок
 
Регистрация: 07.12.2018
Сообщений: 4
Репутация: 10
По умолчанию 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 в 13:06.
Илья20 вне форума   Ответить с цитированием
Старый 08.12.2018, 00:55   #2
saahriktu
Новичок
 
Регистрация: 20.11.2018
Сообщений: 3
Репутация: 10
По умолчанию

Код:

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:44.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

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