Фонд Освітніх та Інформаційних Технологій


Скачати 75.8 Kb.
Назва Фонд Освітніх та Інформаційних Технологій
Дата 15.06.2013
Розмір 75.8 Kb.
Тип Документи
bibl.com.ua > Інформатика > Документи

Фонд Освітніх та Інформаційних Технологій

Рішення (Частина 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; { радіус підстави циліндра }
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('->');
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 кілограмів менше, а на іншу насипати...
СТВОРЕННЯ ОСВІТНЬОГО СЕРЕДОВИЩА ДЛЯ ПІДГОТОВКИ ПЕДАГОГІВ ЗАСОБАМИ ІНФОРМАЦІЙНИХ ТЕХНОЛОГІЙ
Т педагогічних наук, доцент кафедри інноваційних та інформаційних технологій. Шевченко Людмила Станіславівна – кандидат педагогічних...
Лекція Інформатизація діяльності інформаційних установ
Лекція Інформатизація діяльності інформаційних установ. Електронний документний фонд як модель управління інформаційними ресурсами....
Додайте кнопку на своєму сайті:
Портал навчання


При копіюванні матеріалу обов'язкове зазначення активного посилання © 2013
звернутися до адміністрації
bibl.com.ua
Головна сторінка