Инфоурок / Информатика / Конспекты / Подборка задач для программирования на Паскале

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


библиотека
материалов

Задача 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

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.

























Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


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

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

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

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

 

Общая информация

Номер материала: 319465

Похожие материалы



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG