КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
If SKS2
Begin End. Begin Else Begin End. Else End Begin Begin End. Else End Begin Begin End. Begin Clrscr; {Очищення екрану} Write(“Введіть числа а,b,с: ‘); Readln(a,b,c); Rezl:=(a + b + с) / 2; Rez2:=sqrt(1/ (sqr (a) +1) + 1/ (sqr (b) +1) +1/ (sqr (c) +1)); If Rezl<Rez2 Then Min:=Rezl Else Min:=Rez2; Writeln(‘Min=’,Min:8:2); Readkey; {Затримка зображення на екрані} ЗАДАЧА № 100 Умова: Дано значення дійсної величини х. Визначити: На перший погляд діти можуть не зрозуміти, навіщо у цій задачі команда розгалуження. Треба їм нагадати відоме правило: ділити на нуль не можна. І тоді розв’язок стає очевидним. Program Example_100_2; Uses crt; Var X,Rezultat:real; Clrscr; {Очищення екрану} Write(‘Введіть значення X: ‘); Readln(X); If X*X*X+X-2<>0 Then Rezultat:=(X-5)/(X*X*X+X-2); Writeln(‘Rezultat=’,Rezultat:8:2); Writeln(‘Обчислення неможливі - ділення на нуль!’); Readkey; ЗАДАЧА №101 Умова: При даному значенні х обчислити: Для розв’язання цієї задачі необхідно пам’ятати, що не можна знайти квадратний корінь з від’ємного числа (зверніть увагу дітей на те, що у прикладі присутні два квадратних кореня). Program Example_101_4; Uses crt; Var X,Rezultat:real; Clrscr; Wrіte(‘Введіть значення Х: ‘); Readln(X); If (X>=1) and (X*X*X-sqrt(X-l)>=0) Then Rezultat:=sqrt(X*X*X-sqrt(X-l)); Writeln(‘Rezultat=’,Rezultat:8:2); Writeln(‘Обчислення неможливі - від’ємний підкореневий вираз!’); Readkey; ЗАДАЧА № 107 За рейтинговою системою оцінка визначається таким чином: якщо загальний бал учня становить не менше 92% від максимального, то виставляється оцінка 12, якщо не нижче 70%, то — оцінка 8, якщо ж не нижче 50%, то — оцінка 5, в інших випадках - оцінка 2. Визначте оцінку учня, якщо він набрав N балів, а максимальне значення загального балу становить S. У цій задачі можна використати повну або скорочену форму команди розгалуження. Пропонується розв’язування зі скороченою формою.
Program Example_107; Uses crt; Var N,S,Grade:integer; {N - бали, що набрав учень; S -максимальне значення сумарного балу; Grade - оцінка учня} Clrscr; Wrіte(‘Введіть максимальне значення сумарного балу, що може набрати учень: ‘); Readln(S); Write (‘Введіть кількість балів, що отримав учень:».); Readln(N); If (S<=0) or (N<=0) or (N>S) Then writeln(‘Помилка вхідних даних’) N:=round(N/S*100); {Знаходження %-відношення балів учня до максимально можливого} If N>=92 then Grade:=12; If (N<92) and (N>=70) then Grade:=8; If (N<70> and (N>=50) then Grade:=5; If (N<50) then Grade:=2; Writeln(‘Учень отримав оцінку - ‘, Grade); End; Readkey; ЗАДАЧА № 103 Умова: На площині дано дві точки (х1 у1) та (х2, y2) Визначити, яка з них знаходиться далі від початку координат. Для розв’язання цієї задачі необхідно скористатися теоремою Піфагора для знаходження відстані від початку координат до заданої точки (дивись малюнок): Очевидно, що відстань від початку координат до точки з координатами (х,у) буде обчислюватись наступним співвідношенням: Зверніть увагу: в зв’язку з тим, що кожна з координат у формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка. Виходячи з усього вищесказаного, програма для розв’язання даної задачі має наступний вигляд: Program Example__103; Uses crt; Var Xl,Yl,X2,Y2:real; {X1,Y2,X2,Y2 - координати даних точок} SI, S2:real; {S1,S2 - відстані відповідно до першої та другої точки} Clrscr; Write(‘Введіть координати першої точки: ‘); Readln(XI,Y1); Write(‘Введіть координати другої точки: ‘); Readln(X2,Y2); Sl:=sqrt(sqr(Xl)+sqr(Yl)); S2:=sqrt(sqr(X2)+sqr(Y2)); Then Writeln(‘Друга точка далі від початку координат’) Else Writeln(‘Перша точка далі від початку координат’); Readkey;
Дата добавления: 2014-10-22; Просмотров: 538; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |