|
|
Скачати 76.07 Kb.
|
|
Фонд Освітніх та Інформаційних Технологій Рішення (Частина 2) Завдання 51 Обчислення площі паралелограма } var l,w: real; ( довжина і ширина паралелограма} s: real; { площа паралелограма} begin writeln('Обчислення площі паралелограма'); writeln('Введіть початкові даниє:'); write('Довжина (див.) -> '); readln(1); write('Ширина (див.) ->'); readln(w); s:=l*w; writeln('Площа паралелограма:',s:6:2, ' кв.см. '); readln; end. Завдання 53 { Обчислення площі поверхні паралелепіпеда } var l,w,h : real; { довжина, ширина і висота паралелепіпеда} s: real; { площа поверхні паралелепіпеда} begin writeln('Обчислення площі поверхні паралелепіпеда'); writeln('Введіть початкові даниє:'); write('Довжина (см) —> '); readln(1); write('Ширина (см) ->'); readln(w); write('Висота (см) — >'); readln(w); s:=(l*w + l*h + w*h)*2; ' writeln('Площа поверхні паралелепіпеда:',s:б:2, ' кв.см. '); readln; end. Завдання 55 { Обчислення об'єму циліндра } var r,h,v: real; { радіус підстави, висота і об'єм циліндра } begin writeln('Обчислення об'єму циліндра'); writeln('Введіть початкові дані:'); write('радіус підстави (см) —> '); readln(г); write("висота циліндра (см) —> '); readln(h); v := 2*3.1415926*r*r*h; writeln('Об'єм циліндра ',v:6:2', см.куб.'); writeln('Для завершення роботи програми натисніть '); readln; end. Завдання 56 { Обчислення вартості покупки } var kar,tetr: real; { ціна олівця і зошита } nk,nt: integer; { кількість зошитів і олівців } summ: real; { вартість покупки } begin writeln("Обчислення вартості покупки.'); writeln('Введіть початкові дані:'); write('Ціна зошита (крб.) —>'); readln(tetr); write('Кількість зошитів —>'); readln(nt); write('Ціна олівця (крб.) — >'); readln(kar); write('Кількість олівців —>'); readln(nk); surnm:=tetr*nt + kar*nk; writeln; writeln('Вартість покупки:',summ:6:2', руб.'); readln; end". Завдання 60 { Обчислення площі трикутника по двох сторонах і куті між ними } var а,b: real; { довжини сторін } f: real; { величина кута, виражена в градусах } s: real; { площа трикутника } begin writeln('Обчислення площі трикутника.'); writeln('Введіть в одному рядку довжини сторін трикутника'); write ('->'); readln(а,b); writeln('Введіть величину кута між сторонами ', 'трикутника'); ' write('->'); readln(f); ( s=a*h/2 h (висота трикутника) може бути обчислена по формулі: h=b*sin(f). Проте, в Turbo Pascal аргумент функції Sin повинен бути виражений в радіанах (1 радий. = 180/3.1415925, де 3.1415926 - число "ПІ").) s:=a*b*sin(f*3.1415926/180) /2; writeln; writeln('Площа трикутника:',s:6:2', кв.см.1); readln; end. Завдання 61 { Обчислення опору електричному ланцюгу, що складається з двох паралельно сполучених елементів. } var rl,r2: real; { опір елементів ланцюгу } г: real; { сумарний опір ланцюгу } begin writeln('Обчислення опору електричної цепі1); writeln('при паралельному з'єднанні елементів.'); writeln('Введіть початкові дані:'); write('Величина першого опору (Ом) —>'); readln(rl); write('Величина другого опору (Ом) —>'); readln(r2); r:=rl*r2/(rl+r2); writeln; writeln('Опір ланцюгу:',г:6:2, ' Ом'); readln; end. Завдання 65 { Обчислення вартості поїздки на дачу і назад } var rast: real; { відстань до дачі } rash: real; { витрата бензину на 100 км. шляху } cena: real; { ціна одного літра бензину } summ: real; { вартість поїздки на дачу і назад } begin writeln('Обчислення вартості поїздки на дачу і назад.'); write('Відстань до дачі (км.) ->'); readln(rast); write('Витрата бензину (літрів на 100 км.) ->'); readln(rash); write('Ціна літра бензину (крб.) —>'); readln(cena); summ:=2*rast/100*rash*cena; writeln; writeln('Поїздка на дачу і назад обійдеться в' surran: 6:2 ' крб. ') ; readln; end. Завдання 67 { Обчислення площі поверхні циліндра } var г: real; { радіус підстави циліндра } 80 Turbo Pascal в завданнях і-прімерах h: real; ( висота циліндра } s: real; { площа поверхні циліндра } begin writeln('Обчислення площі поверхні циліндра'); writeln('Введіть початкові дані:'); write('радіус підстави циліндра (см) —>'); readln(r); write('висота циліндра (см) ->'); readln(h); { pi - іменована константа, її значення рівне числу "ПІ" Sqr - функція Turbo Pascal, її значення рівне квадрату аргументу, тобто Sqr(x)= х*х } s:=2*pi*sqr(r)+2*pi*r*h; writeln; writeln('Площа поверхні циліндра ',s:6:2,'кв.см.'); readln; end. Завдання 69 { Перерахунок відстані з верст в кілометри } var v: real; { відстань у верстах } до: real; { відстань в кілометрах } begin writeln('Перерахунок відстані з верст в кілометри'); writeln('Введіть відстань у верстах і натисніть '); write('->'); readln(v); k:=v*1.0668; writeln(v:6:2', верст(а/и) — це ',k:6:2', км.'); writeln('Для завершення роботи програми натисніть ', ''); readln; end. Завдання 71 ( Обчислення доходу по внеску } var sum: real; { сума внеску } srokrreal; { термін внеску } stavka:real; f процентна ставка } dohodrreal; { дохід по внеску } begin writeln('Обчислення доходу по внеску.'); writeln('Введіть початкові дані:'); write('Величина внеску (крб.) —>'); readln(sum); write('Термін внеску (днів) —>'); readln(srok); write('Процентна ставка —>'); readln(stavka); dohod:=(sum*stavka/100) /365*srok; { 365 - кол- у році } sum:=sum+dohod; writeln; writelnt'---------------------------------') ; writeln('Дохід:',dohod:9:2', руб.'); writeln('Сума після закінчення терміну внеску:',sum:9:2, 'руб.'); readln; end. Завдання 72 ( Перетворення величини, вираженої в хвилинах, в соответсвующєє їй значення, виражене в годиннику і хвилинах ) var min: integer; { інтервал в хвилинах } h: integer; ( кількість годинника } пк integer; { кількість хвилин } begin writeln('Введіть величину тимчасового інтервалу (у хвилинах)'); write('->'); readln(min); h:= min div 60; m:= min mod 60; writeln; writeln(min', мин. -ето ',h', година.',т', мін.'); readln; end. Завдання 73 { Перетворення числа в грошовий формат } var n:- real; { дробове число } г: integer; { ціла частина числа (рублі) } до: integer; { дробова частина числа (копійки) ) begin writeln('Перетворення числа в грошовий формат.'); write('Введіть дробове число —>'); readln(n); r:= Round(n*100) div 100; k:= Round(n*100) mod 100; writeln; writeln(n:6:2', крб. -ето ',r', руб.',к', коп.'); readln; end. Завдання 76 { Обчислення приватного } var а,b,c: real; { ділиме, дільник і приватне } begin writeln('Обчислення приватного'); writeln('Введіть в одному рядку ділиме і дільника'); writeln('потім натисніть '); write('->'); readln(а,b); if b<> 0 then begin c:=a/b; writeln('приватне від ділення ',а:6:3', на ',ь:6:3, 'рівне ',с:6:3); end else writeln('Помилка! Дільник не повинен бути ', 1равен нулю!'); readln; end. Завдання 77 { Обчислення площі кільця } var rl,r2 : real; { радіус кільця і отвору } s : real; { площа кільця } begin writeln('Введіть початкові дані:'); write('радіус кільця (см) —> '); readln(rl); write('радіус отвору (см) —> '); readln(r2); if rl > r2 then begin s:=2*3.14*(rl-r2); writeln('Площа кільця ',s:6:2', кв.см'); end else writeln('Помилка! Радіус отвору не може бути ', 'більше радіусу кільця. ') ; writeln('Для завершення роботи програми натисніть '); readln; end. Завдання 78 { Обчислення опору електричному ланцюгу } var rl,r2: real; { величини опорів ланцюгу } г: real; { сумарний опір } t: integer; { тип з'єднання елементів: 1 — послідовне; 2 — паралельне } begin writeln('Обчислення опору електричної цепі1); writeln('Введіть початкові дані: '); write('Величина першого опору (Ом) —>'); readln(rl); write('Величина другого опору (Ом) ->'); readln(r2); write('Тип з'єднання елементів (1-послідовне ', '2-паралельне) —>'); readln(t); Завдання 79 { Вирішення квадратного рівняння } program sqroot; var а,b,с:real;{ коефіцієнти рівняння } xl,x2:real;{ коріння рівняння } d:real; { дискримінант } begin writeln('* Вирішення квадратного рівняння *'); write('Введіть в одному рядку значення коефіцієнтів'); writeln(' і натисніть '); write('->'); readln(а,b,с); { введення коефіцієнтів } d:=b*b-4*a*c; { обчислення дискримінанта } if d >= Про then begin xl:=-b+sqrt(d)/(2*a); x2:=-b-sqrt(d)/(2*a); writeln{'корні рівняння:'); writeln('xl=',xl:9:3); writeln('x2=',x2:9:3); end else writeln('Коріння немає'); end. Завдання 81 Обчислення вартості покупки з урахуванням знижки } var summ: real; { сума покупки } begin writeln('Обчислення вартості покупки з урахуванням знижки.'); writeln('Введіть вартість покупки і натисніть .'); write('->'); readln (summ) ; if summ > 500 then { надається знижка } begin if suiran > 1000 then begin writeln('Вам надається знижка 5%'); summ:=0.95*summ; end else begin writeln('Вам надається знижка 3%'); summ:=0.97*summ; end; writeln('Сума покупки з урахуванням знижки: ', summ: б:2', руб.'); end else writeln('Знижка не надається.'); readln; end. Завдання 82 { Перевірка знання історії } var year: integer; { відповідь випробовуваного } begin ' writeln('У якому році був заснований Санкт-Петербург?'); writeln('Введіть число і натисніть '); write('->'); readln(year); if year = 1703 then writeln('Правильно.') else begin write('Ви помилилися '); writeln('Санкт-Петербург був заснований в 1703 году.1) end; readln; end. Завдання 84 { Перевірка знання історії архітектури } var otv: integer; { номер відповіді, вибраної випробовуваним } begin writeln('Архітектор Ісаакиевського собору:'); writeln('1. Доменико Трезіні'); writeln('2. Огюст Монферран'); writeln('3. Карл Росси'); writeln; writeln('Введіть номер правильної відповіді і натисніть '); write('->'); readln(otv); if otv = 2 then writeln("Правильно.') else begin writeln('Ви помилилися. '); writeln('Архітектор Ісаакиевського собору ', 'Огюст Монферран.'); end; readln; end. Завдання 86 { Порівняння двох цілих чисел } var а,b: integer; ( порівнювані числа } begin write('Введіть в одному рядку два цілих '); writeln('числа і натисніть '); write('->'); Частина II. Рішення 87 readln(а,b); if а = b then writeln('числа рівні') else if а < b then writeln(а,1 менше ',b) else writeln(а, більше ',b); readln; end. Завдання 87 { Перевірка уміння умножати числа } var ml,m2,p: integer; { співмножники і твір } otv: integer; { відповідь випробовуваного } begin Randomize; { ініціалізація генератора випадкових чисел } ml:=random(9)+1; { значення функції Random(а) — число } { у діапазоні від 0 до а-1 m2:=random(9)+l; р:=ml*m2; writeln('Скільки буде ',ml,'x',m2' ?'); writeln('Введіть відповідь і натисніть '); write('-> '); readln(otv); if p = otv then writeln('Правильно.') else writeln('Ви помилилися. ',ml,'x',m2,'=',p); readln; end. Завдання 89 { Перевіряє на парність введене з клавіатури число } var n: integer; { введене користувачем число } begin writeln('Введіть ціле число і натисніть '); write('->'); readln(n); write ('Число \n, ' - '); if n mod 2=0 then writeln('парне.') else writeln('непарне.'); readln; { щоб результат не зник з екрану } end. Завдання 91 { Обчислення вартості телефонної розмови з урахуванням знижки, що надається по суботах і воскресіннях } var Time:integer; { тривалість розмови ) Day:integer; { день тижня } Summa:real; { вартість розмови } begin writeln('Обчислення вартості розмови по телефону.'); writeln('Введіть початкові дані:'); write('Тривалість розмови'); write(' (ціла к-ть хвилин) —>'); readln(Time); write('День тижня'); write(' (1-понедельник..,7-воскресенье)-> '); readln(Day); Summa:= 2.3 * Time; { ціна хвилини 2.3 крб.) if (Day = 6) or (Day = 7) then begin writeln('Надається знижка 20%); Summa:=summa * 0.8; end; writeln('Вартість розмови:',Summa:8:2', руб.'); readln; end. Завдання 92 { Контроль ваги var w:real; h:real; } { вага ) { зростання } opt:real; { оптимальна вага } d:real; ( відхилення від оптимальної ваги } begin writeln('Введіть в одному рядку через пропуск'); writeln ('зростання (см) і вага (кг), потім натисніть '); write('->'); readln(h,w); opt:=h-100; if w=opt then writeln('Ваша вага оптимальна!') else if wthen begin d:=opt-w; writeln('Вам треба видужати на ', d:5:2', кг.'); end else begin d:=w-opt; writeln('Вам треба схуднути на1 d:5:2', кг'); end; readln; end. Завдання 93 Визначення пори року по номеру місяця } var month: integer; { номер місяця } begin writeln('Введіть номер місяця (число від 1 до 12) і натисніть '); write('->'); readln(month); case month of 1,2,12: writeln(•Зима'); 3..5: writeln('Весна'); 6..8: writeln('Літо'); 9.. 11: writeln('Осінь'); i 90 else end; readln end. Завдання 95 writeln('Число повинне бути від 1 до 12'); ( Визначення вартості міжміської телефонної розмови } var kod: integer; { код міста } cena: real; { ціна хвилини ) dlit: integer; { тривалість розмови J summ: real; { вартість розмови } begin writeln('Обчислення вартості розмови по телефону.'); writeln('Введіть початкові дані:'); write('Код міста —>'); readln(kod); write('Тривалість розмови (ціла к-ть хвилин) —>'); readln(dlit); write('Місто: '); case kod of 432: begin writeln('Владивосток'); cena:=2.2; end; 095: begin writeln('Москва'); cena:=1; end; 815: begin writeln('Мурманськ'); cena:=1.2; end; 846: begin writeln('Самара'); cena:=1.4; end; end; suran := cena * dlit; writeln('Ціна хвилини:',cena:6:2', руб.'); writeln('Вартість розмови:',summ:6:2, ' руб.'); readln; end. Завдання 96 { Дописує після числа слово "рубель" в правильній формі } var n: integer; { число } m: integer; ( залишок від ділення п на 100 (останні дві цифри) } г: integer; { залишок від ділення п на 10 (остання цифра) } begin writeln('Введіть ціле число (від 1 до 999)', ' і натисніть '); write('-> '); readln(n); write(n' '); { закінчення визначається двома останніми цифрами | if n>100 then m := n mod 100; if (m >= 11) and (m <= 14) then writeln('рублів') else begin r:=n mod 10; case r of 0, 5 .. 9: writeln('рублів'); 1: writeln ('рубель'); 2..4: writeln ('рубля'); end; end; readln; end. Завдання 98 { Обчислення дати наступного дня } var day:integer; month:integer;; year:integer;: last .-boolean; { TRUE, якщо поточний день останній день місяця } .r:integer; { якщо рік високосний, то залишок від } { ділення year на 4 рівний нулю } begin write('Введіть цифрами сьогоднішню дату'); write('(число місяць рік) —> '); readln(day,month,year); last:=false; case month of L,3,5,7,8,10,12:if day=31 then last:=true; 4,6,9,11: if day=30 then last:=true; 2: if day = 28 then begin r:=year mod 4; if r <> 0 then last:=true; end; end; { case } if last then begin writeln('Останній день місяця!'); day:=l; if month=12 then begin month:=1; year:=year + 1; writeln('C наступаючим Новим роком!'); end else month:=month + 1; end else day:=day + 1; writelnf'завтра ',day'.',month,'.',year ); readln; end. Oleksa.Inc |
|
Фонд Освітніх та Інформаційних Технологій Обробка послідовності дробових чисел'); writeln('Після введення кожного числа натискайте '); sum:=0 |
Фонд Освітніх та Інформаційних Технологій Оголосите змінні, необхідні для обчислення вартості покупки, що складається з декількох зошитів, олівців і лінійки |
|
Фонд Освітніх та Інформаційних Технологій Дані дві цілі змінні а, b. Скласти фрагмент програми, після виконання якого значення змінних поменя |
Фонд Освітніх та Інформаційних Технологій Середнє зростання: ',sred: 6: 1', см'; writeln ГУ ',m,'-x учнів зростання перевищує ', 'середній.' |
|
Фонд Освітніх та Інформаційних Технологій У наступних завданнях змінні x, у, z передбачаються опісанними як array n] of integer (n деяке натуральне число, більше 0), якщо... |
Фонд Освітніх та Інформаційних Технологій Проте, в Turbo Pascal аргумент функції Sin повинен бути виражений в радіанах (1 радий. = 180 1415925, де 1415926 число "ПІ").) |
|
ВИКОРИСТАННЯ НОВІТНІХ ІНФОРМАЦІЙНИХ ТЕХНОЛОГІЙ НА УРОКАХ ФІЗИКИ Для гармонійного поєднання останніх досягнень інформаційних технологій та шкільного курсу вивчення фізики постає проблема створення... |
Фонд Освітніх та Інформаційних Технологій Якщо на одну шальку терезів посадити Даринку, яка важить кілограмів, і Наталку, яка важить на 5 кілограмів менше, а на іншу насипати... |
|
СТВОРЕННЯ ОСВІТНЬОГО СЕРЕДОВИЩА ДЛЯ ПІДГОТОВКИ ПЕДАГОГІВ ЗАСОБАМИ ІНФОРМАЦІЙНИХ ТЕХНОЛОГІЙ Т педагогічних наук, доцент кафедри інноваційних та інформаційних технологій. Шевченко Людмила Станіславівна – кандидат педагогічних... |
Лекція Інформатизація діяльності інформаційних установ Лекція Інформатизація діяльності інформаційних установ. Електронний документний фонд як модель управління інформаційними ресурсами.... |