Сабақ тақырыбы: Қайталанатын алгоритмдерді қолданып жоба құру

жүктеу 0,85 Mb.

бет	3/3
Дата	02.11.2022
өлшемі	0,85 Mb.
	#39982
түрі	Сабақ

1 2 3

6 практикалык жұмыс

3- мысал .
Тапсырмалар
Қолданылатын әдебиеттер

For i:=k₀ to k_ndo begin S end; мұндағы i- есептегіш (цикл параметрі); k₀, k_n(k₀< k_n) есептегіштің бастапқы және соңғы мәндері; S- цикл денесі.
For i:=k₀ downto k_ndo begin S end; мұндағы i- есептегіш (цикл параметрі); k₀, k_n(k₀>k_n) есептегіштің бастапқы және соңғы мәндері; S- цикл денесі.
3-мысал. Бір жетінің ішінде жауған жаңбырдың ылғалдылығының мөлшерінің ең көбін және нешінші күні жауғанын параметрлі циклдің көмегімен есептеу.
Шешуі. Жауған жаңбырдың ылғалдылығының мөлшерін InputBox функциясының көмегімен енгзіп оны St-ға меншіктеп және олрды Memo–ға шығар, ылғалдылығының мөлшерінің ең көбін және нешінші күні жауғанын шарт операторының және параметрлі циклдің көмегімен тауып нәтижесін тағы Memo–ға шығарылады.
Есеп шешімін Bitbtn1 компонентінің OnClick оқиғасында реализациялаймыз (ұйымдастырамыз). Қосымша интерфейсі 3- суретте келтірілген.
Форма мен оның компоненттерінің қасиеттерін төмендегідей орнату қажет.

Компоненттер	Қасиеттер	Меншіктелетін мән
Form1	Caption	жауған жаңбыр мөлшері
Form1	Name	Form1
Bitbtn1	Caption	есепте
Bitbtn1	Kind	bkOK
Bitbtn2	Kind	bkClose
Memo1	Lines	тазалау

3-сурет. Қосымша интерфейсі.

Программа кодын келтірейік.

unit Unit1;

procedure TForm1.BitBtn1Click(Sender: TObject);
var a,max:real; st:string;
i,k:integer;
begin
max:=0;
for i:=1 to 7 do begin
st:=inputbox('жауын молшерін енгіз','a=','');
Memo1.Lines.Add(st) ;
a:=strtoint(st);
if max
end; end;
Memo1.Lines.Add('Ен мол ылгалдылык '+
inttostr(k)+'- куні '+floattostr(max)+' молшерде жауган' );
end;

Тапсырмалар:
Берілген n натурал саны және х нақты сандары үшін өрнектің мәнін есептеу программасын құр. Өрнектің мәні цикл операторының көмегімен есептелінеді. Программа құру барысында циклды ұйымдастыру үшін цикл операторының бірін пайдалану қажет.
1. 2. 3.
4. 5. 6.
7. 8. 9. 10.
Қолданылатын әдебиеттер:

Халықова К.З., Бостанов Б.Ғ., Тұрғанбаева А.Р. Объектілі бағдарланған программалау жүйелерінің негіздері.-Алматы-2005ж

Культин Н. Б. Основы программирование Delphi 7. Санкт-Петербург. БхВ – Петербург 2003.

Глинский Я. Н., Анохин В. Е., Ряжская В. А. TURBO PASCAL 7.0 и Delphi. Учебное пособие. Москва – Санкт – Петербург-Киев. 2001.

Фаронов В.В. Система программирования DELPHI. -СПб.:БХВ-Петербург, 2004. -912с.

Фаронов В.В. DELPHI. Программирование на языке высокого уровня. -СПб.:Питер,

2004. -640с.

жүктеу 0,85 Mb.

Достарыңызбен бөлісу:

1 2 3