Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Then writeln('Рівняння не має розв»язків.')



Else

Begin

XI:=(-b-sqrt(D))/(2*a); X2:=(-b+sqrt(D))/(2*a);

Writeln('Корені рівняння:');

Writeln('Xl=',X1:8:2);

Writeln('X2=',X2:8:2);

If (round (XI) OX1) or (round(X2) <>X2)

Then writeln('Корені рівняння не є цілими числами.')

Else

if (round(Xl) mod 2 =0) and (round(X2) mod 2 =0)

Then writeln('Корені рівняння парні')

else writeln(ЛКорені рівняння непарні');

End;

End;

Readkey;

End.

Приклади на використання конструкції Case - Else

Приклад № 15

Розробити діалогову програму, яка запитує вік користувача і визначає, до якої вікової категорії він належить:

1) від 1 до 10 років — дитина;

2) від 11 до 15 років - підліток;

3) Від 16 до 20 років - юнак (дівчина);

4) від 21 до 30 років - молода людина;

5) після 31 року - доросла людина.

Особливих пояснень ця задача не потребує, адже її можна розв'язати і за допомогою команди розгалуження. Однак зробимо її за допомогою команди вибору, причому, щоб скористатися гілкою Else, будемо вважати, що людина може мати вік не більше 150 років (навіть за всіма відомими рекордами, людина не може жити більше 150 років). Якщо ж користувач введе число, що не входить у дозволений діапазон, будемо вважати, що він пожартував.

Program Example_15;

Uses crt;

Var Years:byte; {Years - вік користувача}

Begin

Clrscr; {Очищення екрану}

Write ('Введіть Ваш вік: ').;

Readln(Years);

Write('Ви ');

Case Years of

0..10: Writeln('- дитина.');

11.. 15: Writeln('- підліток.');

16..20: Writeln('- юнак (дівчина).');

21..30: Writeln('- молода людина.');

Writeln('- доросла людина.')

Else writeln(', пожартували? Людина стільки не живе!');

End;

Readkey; {Затримка зображення на екрані}

End.

Приклад № 16

Розробити програму виведення інформації про день тижня, (вихідний чи робочий), якщо задано його номер від 1 до 7 (1 - понеділок).

Program Example_16;

Uses crt;

Var Day:byte; {Day - номер дня тижня}

Begin

Clrscr;

Write('Введіть номер дня тижня: ');

Readln(Day);

Case Day of

1..5: Write('Це робочий день ');

6,7: Write('Це вихідний день ');

Else write('Це не день ');

End;

Writeln('тижня.');

Readkey;

End.

Приклад № 17

Дано ціле число N (1 > N > 3) та дійсне число X. За даним значенням змінної N, яка є номером функції, визначити:

1) sin X 2) cos X; 3) tg X.

Program Example_17;

Uses crt;

Var N:byte; {N - номер функції, що обчислюється}

X,Y:real; {X - значення змінної, Y - значення функції)

Begin

Clrscr;

Write('Введіть значення X: ');

Readln(X);

Write('Введіть номер функції, що обчислюється: ');

Writeln('1 - sin') ;

Writeln('2 - cos');

Writeln( '3 - tg');

Readln(N);

Writeln('Результат обчислень:')

Case N of

1: begin Y:=sin(X); writeln('sin(x)=',Y:8:2); end;

2: begin Y:=cos(X); writeln('cos(x)=',Y:8:2); end;

3: begin Y:=Sin(X)/cos(X); writeln('tg(x)=',Y:8:2);

end;

Else wrіteIn('Помилка вхідних даних.');

End;

Readkey;

End.

Приклад № 18

Дано натуральне число N(N=< 100), яке позначає вік людини. Додати до цього числа відповідно слова: «рік», «роки», «років», наприклад: 1 рік, 12 років, але 43 роки.

Очевидно, що для того, щоб правильно дописати відповідне слово, необхідно виділити останню цифру числа, що позначає вік людини. Тоді, якщо це цифра «1», то дописується слово «рік», якщо цифри «2», «З» або «4» - дописується слово «роки», а в усіх останніх випадках - дописується слово «років». Виключенням являється діапазон між 10 та 20 роками: в цих випадках завжди пишеться слово «років».

Program Example_18;

Uses crt;

Var Years:byte; {Years - вік людини}

Begin

Clrscr;

Write('Введіть Ваш віk: ');

Readln(Years);

If Years>100 Then writeln('Помилкові вхідні дані.')

Else

Begin

Write('Вам ',Years);

If (Years>=10) and (Years<=20) Then writeln('років')

Else

Case Years mod 10 of

1: writeln('рік.');

2 . . 4 : writeln('роки.');

0,5..9: writeln('років.');

End;

End;

Readkey;

End.

Хід роботи

1. Вибрати задачу згідно варіанту з лабораторної роботи.

2. Скласти блок-схему алгоритму розв’язку задачі згідно свого варіанту з лабораторної роботи.

3. Набрати і запустити в середовищі PascalABCNET програму.

4. Виправити помилки в програмі.

5. Виконати програму.

  1. Пояснити призначення всіх операторів і функцій.
  2. Зробити висновки.

ВАРІАНТИ ЗАВДАНЬ

 

1. Напишіть програму розв’язування квадратного рівняння з урахуванням всіх можливих випадків та помилок.

2. Складіть програму пошуку найбільших значень із трьох величин a, b, c.

3. Вивести значення функції якщо y = x3+1 в проміжках 1<= х <5 та х <0;

у = 0, при х поза проміжком;

4. Вивести значення функції якщо y=sin(x3)+1 в проміжках

11> х >-1; у= 0, при х поза проміжком;

5. Вивести значення функції якщо y=sqrt(x)+1/x в проміжках

1<= х <5 та х < 0; у= 0 , при х поза проміжком;

6. Вивести значення функції якщо y=sqrt(x) в проміжках

1<= х <7 та х < 0; у= 5,6, при х поза проміжком;

7. Вивести значення функції якщо y=x3+1 в проміжках 1 <= х та

х < 0; у= 5,6, при х поза проміжком;

8. Вивести значення функції якщо y=2х-х/4 в проміжках 1<= х та х <0; у= 0, при х поза проміжком;

9. Вивести значення функції якщо y=2х-х/6 в проміжках 1<= х та х<0;

у= 0, при х поза проміжком;

10. Написати програму, яка за номером дня тижня виводить назву дня тижня, при помилці при введенні виводить ***.

11. Написати програму, яка запитує у користувача номер місяця і потім виводить відповідну назву пори року. Програма повинна перевіряти правильність введених користувачем даних і, якщо вони невірні (номер більше 12), надавати повідомлення про помилку.

12. Написати програму, яка перевіряє, чи ділиться на три введене користувачем з клавіатури ціле число.

13. Написати програму, яка перевіряє, чи є введене користувачем ціле число парним і надавати відповідне повідомлення.

14. Написати програму, яка порівнює два введених з клавіатури числа. Програма повинна вказати, яке число є більшим, і, якщо числа рівні, надавати відповідне повідомлення.

15. Написати програму, яка підраховує частку двох чисел. Програма повинна перевіряти правильність введених користувачем даних і, якщо вони невірні (дільник дорівнює нулю), надавати повідомлення про помилку.

16. Написати програму підрахунку площі кільця. Програма повинна перевіряти правильність введених користувачем даних і, якщо вони невірні, надавати повідомлення про помилку.

17. Написати програму, котра переводить час із хвилин в секунди. Програма повинна перевіряти правильність введених користувачем даних і, якщо вони невірні, надавати повідомлення про помилку.

18. Написати програму, яка перевіряє, чи є рік високосним.

19. Написати програму обчислення опору електричного ланцюга, що складається з двох опорів. Опори можуть бути з’єднаними паралельно або послідовно.

20. Написати програму обчислення вартості розмови по міжміському телефону в залежності від міста в якому знаходиться абонент (кількість хвилин, код міста, вартість 1-ї хвилини розмови для даного міста вводяться з клавіатури).

21. Написати програму обчислення вартості товару з урахуванням скидки, якщо вартість товару менше 500 гр.- % скидки 10%, якщо вартість товару більше 500гр. але менше 1000гр.- % скидки 15% , якщо вартість товару більше 1000гр.- % скидки 25% (вартість товару вводиться з клавіатури).

22. Написати програму обчислення значення функції f(x,y), якщо f(x,y)=1.1 при

x 2+y2<=1, якщо f(x,y)=cos(x)+y при 1>=x 2+y2<=2, якщо f(x,y)=ln(x)+1 при

x 2+y2>=10, в інших випадках f(x,y)=0.

23. Написати програму перевірки знання дати початку другої світової війни. У випадку неправильної відповіді користувача, програма повинна надавати правильну відповідь.

24. Написати програму, яка запитує у користувача номер дня тижня і виводить одне з повідомлень: "Робочий день", "Субота", "Неділя".

25. Написати програму, яка обчислює оптимальну вагу користувача, порівнює його з реальним і надає рекомендацію про необхідність корекції ваги (худнути чи поправлятися). Оптимальна вага обчислюється за формулою: Ріст (см)-100.

26. Написати програму перевірки знання дати початку другої світової війни. У випадку невірної відповіді користувача програма повинна виводити правильний результат.

27. Написати програму для визначення вартості розмови по телефону з урахуванням знижки 20 %, яка надається по суботам та неділям.

28. Написати програму, яка після введеного з клавіатури числа (в діапазоні від 1 до 999), яке означає грошову одиницю, дописує слово «гривня» в правильному відмінку.

29. Написати програму. Яка обчислює дату наступного дня.

30. Написати програму перевірки знання архітектури. Програма повинна вивести на екран повідомлення і три варіанти відповіді, а користувач – обрати правильну відповідь і вивести його номер. Наприклад – місто Київ розміщено на річці Нева, Дніпро, Дон.

 

 

 




Поиск по сайту:

©2015-2020 studopedya.ru Все права принадлежат авторам размещенных материалов.