510713
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаДругие методич. материалыПримеры решения задач на языке паскаль

Примеры решения задач на языке паскаль

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

hello_html_m5764ecaf.gifhello_html_m5764ecaf.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m20ad4c03.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m71149aae.gifhello_html_m47029796.gifhello_html_m63e27022.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gifhello_html_m51eb1d11.gifhello_html_40838eaa.gifhello_html_40838eaa.gifhello_html_4edda62a.gifhello_html_m5129b85e.gifhello_html_m5764ecaf.gifhello_html_m5764ecaf.gifЗадача 1.

В квадратной комнате шириной A и высотой B есть окно и дверь с размерами C на D и M на N соответственно. Вычислите площадь стен для оклеивания их обоями.

Решение: Для решения данной задачи из курса геометрии мы с вами знаем нужно найти площадь стен комнаты и вычесть площадь окна и двери. То есть для решения задачи нам потребуется линейный алгоритм и знание формулы нахождения площади прямоугольника. Составим блок-схему. Теперь составим программу.

Файл:Схема3.png


program Zadaca1;

var a,b,c,d,m,n,S,S1,S2,S3: ineger;

begin

write(‘Введите через запятую длину и ширину комнаты’);

readln(a,b);

write(‘Введите через запятую длину и ширину окна’);

readln(c,d);

write(‘Введите через запятую высоту и ширину двери’);

readln(m,n);

S1:=4*a*b;

S2:=C*D;

S3:=M*N;

S:=S1-(S2+S3);

writeln(‘Площадь стен для оклейки обоев’,S);

end.















Задача 2

На работу в совместное предприятие приглашаются специалисты, возраст которых не превышает 35 лет. Определи, будет ли принят на работу человек, возраст которого N лет?

Решение: Для решения задач, в которых проверяется, какое либо условие требуется использовать алгоритм ветвление. В данной задаче есть условие, и оно звучит, что возраст человека не должен превышать 35 лет, запишем это условие N<=35. Следовательно: мы должны введенное число проверять на это условие и выводить.

program zadaca2;http://www.rusedu.info/upload/rte/63_3.gif

var N:integer;

begin

write(‘Введите возраст человека’);

readln(N);

if N<=35 then writeln(‘Принят’)

else writeln(‘Не принят’);

end.














Задача3

В городе N – количество жителей ежегодный прирост составляет 5%. Составить программы:

а) сколько жителей будет через I лет.

б) через, сколько лет число жителей будет больше 75000 чел. если в городе было 50000 чел.

Решение: Для решения таких задач нужно использовать циклические алгоритмы. Возьмем задачу а) у нас точно известно количество повторений I, поэтому используем алгоритм с заданным числом повторений. Который будет каждый год увеличивать число жителей города на 5%, формула будет выглядеть таким образом {N:=N+N*5/100;} то есть после выполнения этой команды в переменную N будет присваиваться значения N увеличенное на 5%. Блок схема выглядит таким образом.

НАЧАЛО

КОНЕЦ

ВЫВОД N

N:=N+N*5/100

k:=1 to I

ВВОД N,i






program Zadaca3a;

var N,k,i: integer; {k-счётчик в цикле}

begin

write(‘Введите количество жителей ’);

readln(N);

write(‘Введите количество лет ’);

readln(i);

for k:=1 to i do begin

N:=N+N*5 div 100; {div – будет находит целую часть от деления}

end;

writeln(‘После ’,i,’лет количество жителей будет ’,N);

end.




Решение: Для решения таких задач нужно использовать циклические алгоритмы. Возьмем задачу б) у нас точно неизвестно количество повторений, но у нас известно условие N<M (N – количество жителей в начале, M – количество жителей в конце) при котором нужно закончить цикл поэтому используем алгоритм с пред условием (вдруг количество жителей до будет равно количеству жителей после). каждый год увеличивать число жителей города на 5%, формула будет выглядеть таким образом {N:=N+N*5/100;} то есть после выполнения этой команды в переменную N будет присваиваться значения N увеличенное на 5%. Блок схема выглядит таким образом.

N:=N+N*5/100

i:=i+1

ВВОД N,M

i:=0

N

НАЧАЛО

КОНЕЦ

ВЫВОД i






program Zadaca3a;

var N,M,i: integer;

begin

write(‘Введите количество жителей в начале’);

readln(N);

write(‘Введите количество жителей в конце’);

readln(M);

while N

N:=N+N*5 div 100;

i:=i+1;

end;

writeln(‘Через ’,i,’лет количество жителей будет больше ’,M);

end.



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

Номер материала: ДВ-415067

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «Оператор персонального компьютера»
Курс «3D Studio MAX»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

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

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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