Самостійна робота №4 Робота з рядковими величинами.
Доробити програму для роботи з рядковими величинами (лістинг програми додається), так щоб при натисканні на добавлену кнопку в програмі, на формі або окремим повідомленням з’являлась наступна інформація:
Варіант 1
яких букв більше Z чи z в заданому тексті.
Варіант 2
Яка сумарна кількість букв “а “ і “к” в заданому тексті.
Варіант 3
яких слів більше «так» чи «ні» заданому тексті.
Варіант 4
чи є в даному тексті слово “ball” .
Варіант 5
кількість слів «студент» в даному реченні (не «студентів», «студентам», а саме слово «студент») .
Варіант 6
кількість слів на букву «ш» в даному реченні .
Варіант 7
кількість подвоєних літер.(Напр. в тексті finn is fool таких подвоєнь є 2)
Варіант 8
яка кількість слів, що починаються на wa в даному реченні.
Варіант 9
кількість слів, що закінчуються на букву «ю» в даному реченні
Варіант 10
яка кількість символів . (крапка) в даному реченні.
Варіант 11
Яка кількість символів до першої крапки в даному тексті?
Варіант 12
Чи правда, що букв R та r в даному тексті більше десяти.
Варіант 13
Кількість слів в даному тексті.
Варіант 14
Яких словосполучень більше “sa“ чи “as” в заданому тексті.
Варіант 15
Кількість словосполучень “waw” в даному тексті .
Додаток. Лістинг програми «Робота з рядковими величинами»
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
Button1: TButton;
Edit1: TEdit;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Label1: TLabel;
Label2: TLabel;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
if not OpenDialog1.Execute
then ShowMessage( 'Файл не вибраний! ' )
else Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if not SaveDialog1.Execute
then ShowMessage('Файл не збережений!')
else Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.N6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
ShowMessage(' Автор Чуцький М.А., викладач ВВПК ');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:Integer;
n1,n2:Integer;
s1,s2:String;
begin
k:=0;
s1:=Edit1.Text;
n1:=Length(s1);
//Form1.Memo1.Lines.Count - кількість рядків в тексті
if Form1.Memo1.Lines.Count<>0 then // перевірка наявності заповнених рядків
for i:=0 to Form1.Memo1.Lines.Count-1 do //задається цикл, рівний кількості рядків
Begin
s2:= form1.Memo1.Lines.Strings[i]; // змінна S2 приймає значення і-го рядка
n2:=Length(s2); // визначається кількість символів в даному рядку
for j:=1 to n2 do if copy(s2,j,n1)=s1 then k:=k+1; // підраховується кількість
end;
Label2.Caption:='В даному тексті дане слово зустрічається '+ IntToStr(k) +' раз';
end;
end.