Дополнительный материал к лекции №5.

Стр 1 из 2Следующая ⇒

Дополнительный материал к лекции №5.

Задача 1. Удалить из строки все лишние пробелы между словами, кроме одного.

Рис. 1 Алгоритм удаления лишних пробелов

program projstring;

{$APPTYPE CONSOLE}

uses

SysUtils;

var s:string[20];

k,i:integer;

ch:char;

begin

repeat

Writeln('Enter String');

readln(s);

s:=trim(s);

k:=length(s);

i:=1;

while i<=k do

begin

if s[i]=' ' then

while s[i+1]=' ' do

begin

delete(s,i+1,1);

k:=k-1;

end;

i:=i+1;

end;

writeln('new string =',s);

writeln('Continue?');

readln(ch);

until ch='n';

end.

Результат работы программы со строкой:

Рис. 2

Проанализируйте результаты и объясните результат обработки первой строки.

Пример решения задачи со строками в визуальной среде.

Задача 2. Получить инверсную строку.

Рис. 3 Алгоритм инверсии строки

unit Unit1_revers_string;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

s=string[60];

var

Form1: TForm1;

s1:s;

12 Следующая ⇒