і экранның түpi:
Сатып алынған заттың бағасын санау.
Алғашқы мәліметтерді енгізіңдер:
Кандай тауар сатып алдындар? — Дәптер.
Кандай бағамен? —10 теңге
Қанша дана? — 5. Сендердің тауарларың - Дәптер.
Бағасы: 50 тенге.
Қанша ақша бepeciз? — 100 теңге Қайтарылатын ақша: — 50 тенге.
(Программаның жұмыс кезінде енгізетін мәтін қою қаріппен белгіленген).
Оқушылардың программа жазуға арналған өздік жұмысы. Тапсырмалар оқулықта деңгей бойынша бөлініп берілген.
А деңгей
Eкi санды азайту программасын (дискіде Lesson 10A. pas) жазыңдар.
uses crt;
var x,у,a:real;
begin
clrScr;
write(x,y); read(x,y); a:x-y;
writeln(Айырма ,a); readLn; end.
В деңгей
Бip жылда пәтерақы екі есе өcтi. Бірінші рет 30-ға, ал екінші рет 40-ға. Бip жыл бұрын отбасы айына 4500 теңге төлеген. Бүгінгі пәтерақыны санайтын программа жазындар. (дискіде файл Lesson 10B. pas).
uses crt; const p80; var op:real; begin
clrscr;
op:pp0. 3(pp0. 3)0. 4;
writeln(Bip ай телемакысы ,op, тецге);
С деңгейі
Біріншi сұрыпты жұмыртқаның салмағы - 70 г, төртінші сұрыпты жұмыртқаның сал- магы - 55 г. Төртінші сұрыптың неше жұмыртқасы бірінші сұрыптың 10 жұмыртқасына сәйкес келеді?Бірінші сұрыпты 10 жұмыртқа алып, қанша жұмыртка қосымша ретінде алуға болады? (дискіде Lesson 10C. pas. файл)
uses crt; var k,s:real; begin
clrscr;
s: (55510)/(444) ;
writeln(s:2:1,1TepTiHmi сурыптын1);
writeln(жұмыртқа 1 сұрыптың 10 жұмыртқасына сәйкес. ); writeln(Әйел , s/10, рет үнемдейі); readkey; end.
VII Жұмыс дәптepiндeгi тапсырмалардың жауаптары
тапсырма
Бос орындарды толтыр.
Айнымалы - бұл программамен ерекшеленген жад ұяшығы. оған атаумен назар ауда- руга болады.
Логикалық типті айнымалыларды а
Страницы: << < 1 | 2 | 3 | 4 > >>