Подборка задач для программирования на Паскале

Скачать материал

Задача 1.

Составить программу распечатывающую все числа Фибоначчи,

непревосходящие данное введённое число.

Program Ряд Фибоначчи (input, output);

Uses crt;

Var N, N1, N2, N3: integer;

Begin

Writeln ('Введите число ограничивающее

ряд чисел Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2; Write('1,1');

While N3<N Do

Begin

Write (',',N3);

N1:=N2; N2:=N3;

N3:=N1+N2;

End;

Repeat until keypressed;

End.

Задача 2.

Составить программу, которая по заданному номеру «К» (К>2)

выдаёт К-й член последовательности чисел Фибоначчи.

Program Число Фибоначчи (input, output);

Uses crt;

Var Z, K, N1, N2, N3: integer;

Begin

Writeln ('Введите номер интересующего вас числа

Фибоначчи '); Read (K);

N1:=1; N2:=1;

For Z:=3 To K Do

Begin

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

Writeln('На',K,'-том месте в последовательности Фибоначчи

находится число',N3);

Repeat until keypressed;

End.

Задача 3.

Составить программу проверки принадлежит ли данное число , введённое пользователем числом Фибоначчи.

Program Проверка Фиббоначчи (input, output);

Uses crt;

Var Z, N, N1, N2, N3: integer;

Begin

Writeln ('Введите интересующее вас число для проверки

принадлежности ряду чисел Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2; Z:=0;

While N3<=N Do

Begin

If N3=N then Z:=1;

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

If Z=1 then Writeln ('Данное',N,' принадлежит ряду Фибоначчи')

else Writeln ('Данное',N,' не принадлежит ряду Фибоначчи');

Repeat until keypressed;

End.

Задача 4.

Составить программу выясняющую между какими числами Фибоначчи лежит данное введённое пользователем число.

Program Границы Фибоначчи (input, output);

Uses crt;

Var N, N1, N2, N3: integer;

Begin

Writeln ('Введите интересующее вас число для проверки

границ Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2;

While N3<=N Do

Begin

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

Writeln ('Данное число ',N,' лежит между числами

Фибоначчи ',N1,' и ',N2);

Repeat until keypressed;

End.

Задача 5.

Составить программу, которая подсчитывает в ограниченной

числом N (верхний предел) последовательности чисел Фибоначчи

количество простых и количество совершенных чисел.

Program Разбиение Фибоначчи (input, output);

Uses crt;

Var Z, P, N, N1, N2, N3: integer;

Begin

Writeln ('Введите число ограничивающее ряд чисел

Фибоначчи '); Read (N);

N1:=1; N2:=1;N3:=2; P:=0; C:=0;

While N3<=N Do

Begin

N3:=N1+N2; Z:=0;

For I:=3 To N3 Do

If (N3 mod I)=0 then Z:=Z+1

If Z=2 then P:=P+1 else C:=C+1

N1:=N2; N2:=N3;

End;

Writeln('Этот ограниченный ряд Фиббоначчи – числа

непревышающие ',N,'- содержит',P,' простых

чисел и ',C,' составных чисел';

Repeat until keypressed;

End.

Скачать материал

Скачать материал "Подборка задач для программирования на Паскале"

Как учитель может зарабатывать на Инфоуроке?

Краткое описание документа:

Предлагается четыре задачи, связанные с понятием "чисел Фиббоначчи" для самостоятельной или дополнительной работы при изучении темы "Программирование на Паскале". Проверка умений использования структур циклов и ветвления. Решения написаны для Турбо-Паскаля.

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 656 188 материалов в базе

Найти материалы

Скачать материал

Другие материалы

docx

Конспект обощающего урока-аукциона по теме " Логика"

19.01.2015
503
0

docx

Методические рекомендации для выполнения внеаудиторных самостоятельных работ студентов социально-экономического профиля по дисциплине "информационные технологии в профессиональной деятельности"

19.01.2015
1269
3

pptx

Метод проекта на дисциплине Информатика и ИКТ(презентация на статью)

19.01.2015
527
0

docx

Конспект урока "Обработка информации" (10 класс)

Рейтинг: 5 из 5

19.01.2015
5932
497

docx

Конспект урока "Персональный компьютер" (8 класс)

19.01.2015
2607
4

pptx

Презентация на тему "Использование современных информационных технологий в образовательном процессе"

19.01.2015
6624
121

rar

Интегрированный урок "Построение графиков функций на уроках математики - информатики"

19.01.2015
1370
12

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Скачать материал
- 19.01.2015 535
- DOCX 22 кбайт
- Оцените материал:
Настоящий материал опубликован пользователем Стодоля Андрей Иванович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Автор материала

Стодоля Андрей Иванович
- На сайте: 9 лет и 5 месяцев
- Подписчики: 0
- Всего просмотров: 3565
- Всего материалов: 5