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


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

Then writeln('Бабусі не змогли зайняти всі місця.')



Else writeln('Бабусі зайняли всі місця.');

Place:=Sum - к*1;

If Place>0

Then writeln('Бабусям не вистачило ',Place,' місць.');

Readkey;

End.

Приклад № 2

Знайти значення виразу:

(1 + 0.1)*(2 + 0.2)*...*(9 + 0.9)

Розв'язання: У даному випадку кількість повторів буде дорівнювати 9, тобто програма буде мати вигляд:

Program Example_2;

Uses crt; Var I:word; {I - параметр циклу}

Rez: real; {Rez - результат обчислень}

Begin

Clrscr;

Rez:=1; {Початкове значення дорівнює 1, тому що результат є накопиченням добутку}

For I:=1 to 9 do Rez:=Rez*(I+0.1*I);

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

Readkey;

End.

Приклад № 3

Коли Василині Премудрій виповнилося 18 років, Чахлик Невмирущий вирішив одружитися з нею. Василина запитала Чахлика, скільки у нього скринь із золотом. Чахлик відповів, що зараз у нього n скринь і щороку додається ще по т скринь. Василина пообіцяла, що вийде заміж тоді, коли у Чахлика буде k повних скринь із золотом. Скільки років буде тоді нареченій?

Program Example_3;

Uses crt;

Var m,n,k:word; {n - початкова кількість скринь із золотом, m - щорічний «прибуток» Чахлика, k - «потреби» Василини Премудрої}

Sum,Years:word; {Sum - щорічне накопичення Чахлика, Years - вік Василини Премудрої}

Begin

Clrscr;

Write('Введіть початкову кількість скринь з золотом: ');

Readln(n);

Write (' Введіть щорічний прибуток Чахлика: ') ;

Readln(m);

Write('Введіть «потреби» Василини Премудрої: ');

Readln(k) ;

Sum:=п; {Початковий «капітал» Чахлика}

Years:=18; {Початковий вік Василини}

While Sum<=k do

Begin

Sum:=Sum+m;

Years:=Years+1;

End;

Writeln('Василиях вже виповнилося ',Years,' років.');

Readkey;

End.

Приклад № 4

Дано натуральне число п. Визначити суму цифр у числі. Для розв'язку цієї задачі використаємо такий штучний прийом: щоб знайти суму цифр, ми повинні «брати» цифри по одній і додавати їх одна до одної, а потім використану цифру «відкидати». Це нам дозволять зробити операції ділення націло та знаходження залишку від цілочисельного ділення. Так, при діленні числа націло на 10 остання цифра числа буде «відкидатися», а при знаходженні залишку від ділення націло ми виділяємо останню цифру числа. Тобто:

123 div 10 = 12 3928 mod 10= 8.

Процес буде повторюватись, доки від числа «нічого не залишиться», тобто, доки воно не перетвориться на нуль. Програма, що реалізує описаний алгоритм, має такий вигляд:

Program Example_4;

Uses crt;

Var n: longint; {N - дане число}

Sum: byte; {Sum - сума цифр числа}

Begin

Clrscr;

Sum:=0; {Сума цифр числа спочатку дорівнює 0}

Write('Введіть ціле число: ');

Readln(N);

N:=abs(N);

While N>0 do

Begin

Sum:=Sum+N mod 10; {Знаходження суми цифр}

N:=N div 10; {«Відкидання» останньої цифри числа}

End;

Writeln('Sum= ',Sum);

Readkey;

End.

Приклад № 5

Дано ціле число т > 1. Знайти найбільше число к, при якому виконується умова

4к < т.

Program Example_5;

Uses crt;

Var m,k,Rez:longint; {Rez - обчислення степеню 4}

Begin

Clrscr;

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

Readln(m);

Rez:=1;

k:=0;

While Rez<m do

Begin k:=k+l; Rez:=Rez*4; End;

Writeln('k= ' ,k) ;

Readkey;

End.

Хід роботи

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

2. Написати 3 програми розв’язку вибраної задачі:

1) на основі циклового оператора FOR;

2) на основі оператора Repeat;

3) оператора WHILE.

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

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

5. Зробити висновки.

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

1. Написати програму обчислення значення факторіала введеного з клавіатури числа від 1 до 10 (Факторіалом числа n називається добуток цілих чисел від 1 до n).

2. Написати програму, яка обчислює суму перших n – цілих додатних парних чисел ряду.

3. Написати програму, яка виводить на екран ваше прізвище та ім’я 10 раз.

4. Написати програму знаходження суми 1, 1/3, 1/5, 1/7, 1/9... 10-х чисел ряду.

5. Написати програму знаходження суми 1, -1/2, +1/4, -1/6, +1/8... 10-х чисел ряду.

6. Написати програму знаходження суми 1, -1/3, +1/5, -1/7, +1/9... 10-х чисел ряду.

7. Написати програму знаходження добутку 1, 2, 4, 6, 8... 10-х чисел ряду.

8. Написати програму, яка виводить таблицю значень 2х ,якщо х змінюється в діапазоні 1…10.

9. Написати програму, яка виводить таблицю площини кола, якщо радіус змінюється в діапазоні 4…10 з кроком 0,5.

10. Написати програму, яка виводить таблицю значень х2 ,якщо х змінюється в діапазоні 1….10.

11. Написати програму, яка виводить таблицю значень функції у=-2.4x2+5x-3 в діапазоні від -2 до 2, з шагом 0.5.

12. Написати програму, яка вводить з клавіатури 5 дробових чисел і обчислює їх середнє арифметичне.

13. Написати програму, яка обчислює середнє арифметичне введеної з клавіатури послідовності дробових чисел. Кількість чисел повинна задаватися під час виконання програми.

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

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

16. Написати програму, яка генерує послідовність із 10 випадкових чисел в діапазоні від 1 до 10, виводить ці числа на екран і обчислює їх середнє арифметичне.

17. Написати програму, яка генерує три послідовності із 10 випадкових чисел в діапазоні від 1 до 10, виводить ці числа на екран і обчислює середнє арифметичне кожної послідовності.

18. Написати програму, яка виводить на екран таблицю вартості яблук в діапазоні від 100 кг до 1 кг з шагом 100г.

19. Написати програму, яка виводить на екран таблицю значень функції у=|х|. Діапазон змінення аргументу від -4 до 4, шаг приросту аргументу 0.5.

20. Написати програму, яка виводить на екран таблицю значень функції у=|х-2|+|х+1|. Діапазон змінення аргументу від -4 до 4, шаг приросту аргументу 0.5.

21. Написати програму, яка виводить на екран таблицю множення на 8.

22. Написати програму, яка виводить на екран квадрат Піфагора - таблицю множення.

23. Написати програму, яка обчислює часткову суму ряду: 1-1/3+1/5-1/7+1/9... та порівнює отримане значення з p/4 (при сумуванні достатньо великої кількості членів цього ряду, величина часткової суми наближується до p/4).

24. Написати програму, яка виводить на екран вашу адресу 10 раз.

25. Написати програму, яка виводить на екран таблицю множення на 7.

26. Написати програму, яка виводить таблицю квадратів перших десяти цілих додатних чисел.

27. Написати програму, яка виводить таблицю квадратів перших п’яти цілих додатних непарних чисел.

28. Написати програму, яка виводить на екран таблицю значень функції у=х32+1. Діапазон змінення аргументу від -5 до 5, шаг приросту аргументу 1.5.

29. Написати програму, яка обчислює суму перших n членів ряду 1, 3, 5,.... Кількість членів ряду задає користувач.

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

 

 




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

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