Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Информатика / Конспекты / Подборка задач для программирования на Паскале
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

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

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

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

























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

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

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

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

 

Автор
Дата добавления 19.01.2015
Раздел Информатика
Подраздел Конспекты
Просмотров233
Номер материала 319465
Получить свидетельство о публикации

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх