Всички думи слети

Публикувано на 23 декември, петък от Данаил

Да се напише програма, която позволява да се въведе изречение от няколко думи и след това извежда всички думи слети.

Публикувано в 10a с етикети . Постоянна връзка.

8 Responses to Всички думи слети

  1. Боряна каза:
    23 декември, петък в 08:51 
    program Project1;
var
  s: string;
  i: integer;
begin
  WriteLn('Vavedete niakakvo izrechenie:');
  ReadLn(s);
  WriteLn;
  for i:=1 to Length(s) do
    if (s[i]=' ') then
    else Write(s[i]);
  WriteLn;
  WriteLn('Opsie, ima bug... Tazi greshka shte bade popravena sled praznicite.');
  ReadLn;
end.
  2. Svetli каза:
    23 декември, петък в 20:46 
    program Project1;
var
  s:string;
  i:integer;
begin
  Writeln('Vavedete izrechenie i to shte bude otpechtano slqto');
  Readln(s);
  Writeln;

  for i:= 1 to Length(s) do
    if s[i] = ' ' then
       Continue
    else
       Write(s[i]);

  Readln;
end.

    Толкова време ми отне да се сетя за командата Continue.

  3. zornitsa_mirela каза:
    18 януари, сряда в 18:19 
     program Project1;
var // декларираме променливи
  s: string; // за s присвояваме да бъде низ
  i: integer;  // за i присвояваме да бъде от целочислен тип данни
begin  // начало
  WriteLn('Vavedete niakakvo izrechenie:'); // да изпише на екрана 'Въведете някакво изречение'
  ReadLn(s); // прочета s
  WriteLn; // изписва на нов ред
  for i:=1 to Length(s) do // за i присвояваме да бъде равно на 1 до дължината на низа s прави
    if (s[i]=' ') then  // ако i от низа s е равно на ' ' тогава
    else Write(s[i]); // иначе изведи s[i]
  WriteLn; // извежда на нов ред
  WriteLn('Opsie, ima bug... Tazi greshka shte bade popravena sled praznicite.'); // извежда на нов ред 'Опси, има бъг...Тази грешка ще бъде поправена след празниците.'
  ReadLn; // прочита
end. // край

    – Зорница

  4. Димитър каза:
    25 януари, сряда в 17:18 
     program Project1; // Указване на началото на програмата
var // Декларации за променливи
  s: string; // Поредица от символи
  i: integer; // Цяло число със знак и стойност
begin // Начало на програмата
  WriteLn('Vavedete niakakvo izrechenie:'); // Отпечатва текста в скобите
  ReadLn(s); Прочита (s)
  WriteLn; // Нов ред
  for i:=1 to Length(s) do
    if (s[i]=' ') then // Ако (s[i]=' ') тогава
    else Write(s[i]); // В друг случай Отпечатва (s[i])
  WriteLn; Отпечатва стойност на променлива
  WriteLn('Opsie, ima bug... Tazi greshka shte bade popravena sled praznicite.'); // Отпечатва текста в скобите
  ReadLn; Прочита стойност на променлива
end. // Край на програмата
    • Данаил каза:
      26 януари, четвъртък в 00:14

      „Поредица от символи“ означава „низ“ (или текст, на обикновен език)
      s[i] в случая означава i-тия поред символ от низа s, защото s e променлива от тип string, тоест низ
      WriteLn; отпечатва просто нов ред, защото след него няма никаква променлива
      ReadLn; просто чака да натиснем Enter, защото след него няма никаква променлива

Вашият коментар