Өзіндік жұмысқа арналған тапсырмалар

1. 
   Берілген жолдардан қатар жатқан ABCD символдар тобын алып тастау қажет.
   
2. 
   Жол берілген. Неше рет «+» және неше рет «*» символдары кездесетінін санау қажет.
   
3. 
   Жол берілген. Жолдағы барлық «а» әріптерін «б» әріптеріне және бос орындарды «-» белгісіне ауыстырыңыз.
   

№5 Зертханалық жұмыс

Төменде (2.1.21-сурет) осы қосымшаның орындалу нәтижесінің терезесі келтірілген.

2.1.21-сурет. Файлдан оқу қосымшасының нәтижесі

Тапсырманы орындау алгоритмі:

1. Жаңа жобаны ашып, пішіннің Caption қасиетіне «Файлдан оқу» деген мәнді жазыңыз.

2. Пішінге Edit1, Memo1, Button1, Button2 компоненттерін орналастырыңыз. Button1 батырмасының Caption қасиетіне «Ашу», Button2-ге «Сақтау» мәндерін жазыңыз. Edit1-дің Техт қасиетін тазалаңыз. Memo1 компонентінің Line қасиетінің Tstrings тізімін ашып, ашылган диалогтық терезенің ішіндегі Мемо1 жазуын өшіріп, ОК батырмасын басыңыз, содан кейін ScrollBars қасиетінен ssVertical мәнін таңдаңыз, бұл айналдыру жолағын тігінен қою үшін қажет.

3. Button1 батырмасын екі рет шертіңіз. Пайда болған процедураның дайындамасына келесі кодты жазыңыз:

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // файл

buf: String[80]; // файлдан оқуға арналған буфер

begin

fName := Edit1.Text;

{$I-}

{$I+}

begin MessageDlg('Файлдын адресі қате немесе ондай файл жоқ' + fName,

mtError,[mbOk],0);

exit; end;

// файлдан оқу

while not EOF(f) do

begin

readln(f, buf); // Файлдан жолды оқу

end;

end;

// файлға жазу

procedure TForm1.Button2Click(Sender: TObject);

var

fName: String[80]; // файлдың аты

i: integer;

begin

AssignFile(f, fName);

Rewrite(f); // қайта жазу үшін ашу

// файлға жазу

for i:=0 to Memo1.Lines.Count do // жолдар нөлден бастап нөмірленеді

writeln(f, Memo1.Lines[i]);

CloseFile(f); // файлды жабу

MessageDlg('Берілгендер файлға жазылды ',mtInformation,[mbOk],0);

end.

2.1.22-сурет. Программаның блок-схемасы