Дано предложение. Напечатать все его символы, предшествующие первой запятой

@Sting73 · Регистрация: 22.06.2012

Author24 — интернет-сервис помощи студентам

Обработка строк с использованием операторов цикла с условием

1. Дано предложение. Напечатать все его символы, предшествующие первой запятой. Рассмотреть два случая:
• известно, что в предложении запятые имеются;
• в предложении запятых может не быть.

@Puporev · 22.06.2012, 18:47

Pascal

uses crt;
var s:string;
    i,p:byte;
begin
clrscr;
writeln('Введите предложение');
readln(s);
p:=0;
i:=1;
while(i<=length(s))and(p=0) do
if s[i]=',' then p:=i
else i:=i+1;
if p=0 then write('В предложении нет запятой')
else if p=1 then write('Запятая первый символ в строке')
else
 begin
  writeln('Символы до первой запятой');
  i:=1;
  while s[i]<>',' do
   begin
    write(s[i]);
    i:=i+1;
   end;
 end;
readln
end.

@CodeR · 22.06.2012, 19:51

Pascal

Var s:string;
    i,k:integer;
Begin
    write('Введите строку: ');readln(s);
    k:=Pos(',',s);i:=0;
    if k<>0 then 
     While i<k-1 do
      Begin
       inc(i);
       write(s[i]);
      End
    else writeln('Нету запятой!');
    readln;
End.

@Puporev · 22.06.2012, 20:00

Я думаю что ему нельзя использовать pos, copy, а только циклы.

@Сtrl · 23.06.2012, 10:33

Для сравнения решение на Haskell

Haskell

1
2
3

main = do
    sentence <- getLine
    putStrLn $ takeWhile (/=',') sentence

@Puporev · 23.06.2012, 10:38

Для сравнения на Паскале, если допускается использование встроенных функций и не рассматривать исключительные ситуации

Pascal

1	write(copy(s,1,pos(',',s)-1));

тоже с циклом

Pascal

1
2
3

i:=1;
while s[i]<>',' do
write(s[i]);

И нефиг выеживаться со всякими дебильными языками.

Добавлено через 57 секунд
Ты напиши полностью программу, с вводом, с проверкой исключительных ситуаций, и тогда сравним.

@Сtrl · 23.06.2012, 10:40

Сообщение от Puporev

Ты напиши полностью программу, с вводом, с проверкой исключительных ситуаций, и тогда сравним.

Я привел полную компилируемую программу с вводом и выводом, которая корректно работает при отсутствии запятой, а также запятой в произвольном месте предложения.

28.05.2014, 08:20

а можно эту задачу на языке С++ ??

@Sting73 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 18
		1
	Дано предложение. Напечатать все его символы, предшествующие первой запятой 22.06.2012, 18:29. Показов 10890. Ответов 7 Метки нет (Все метки) Обработка строк с использованием операторов цикла с условием 1. Дано предложение. Напечатать все его символы, предшествующие первой запятой. Рассмотреть два случая: • известно, что в предложении запятые имеются; • в предложении запятых может не быть. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.06.2012, 20:00	4
	Я думаю что ему нельзя использовать pos, copy, а только циклы. 0

@Сtrl 144 / 134 / 8 Регистрация: 19.07.2011 Сообщений: 184
	23.06.2012, 10:40	7
	Сообщение от Puporev Ты напиши полностью программу, с вводом, с проверкой исключительных ситуаций, и тогда сравним. Я привел полную компилируемую программу с вводом и выводом, которая корректно работает при отсутствии запятой, а также запятой в произвольном месте предложения. 0

ASUSasus
	28.05.2014, 08:20	8
	а можно эту задачу на языке С++ ??