Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009?
while x mod 20090 do
writeln (‘ Через ‘, k, ‘ секунд ‘);
Найдите количество четных цифр в десятичной записи числа n.
Входные данные
Результат
if y mod 2 =0 then k:=k+1;
Выясните, лежат ли на одной прямой точки А( x 1, y 1), B ( x 2, y 2), C ( x 3, y 3)
Входные данные
Результат
x1=1 y1=1
x2=6 y2=3
x3=11 y3=5
Точки лежат на одной прямой
x1, x2, x3, y1, y2, y3, z, n:real;
write (‘Введите координаты точки А ‘);
readln ( x 1, y 1);
write (‘Введите координаты точки В ‘);
readln ( x 2, y 2);
write (‘Введите координаты точки C ‘);
if (z=n) and (z=(x2-x1)/(y2-y1)) then
writeln (‘Точки лежат на одной прямой’)
writeln (‘Точки не лежат на одной прямой’);
Пример решения задач на Pascal #1
Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов — максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 — 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К>7), все они только что собраны. Определить, сколько роботов будет через N лет.
Входные данные
Результат
10 10
143702
var k, i, n, p:integer;
r:array [1..3] of longint;
write(‘ количество роботов k=’); readln(k);
write (‘количество лет n =’); readln ( n );
else if p=1 then begin x:=x-3; y:=2 end
else begin x:=x-1; y:=1 end;
writeln (‘Количество роботов — ’, s );
Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.
if (x>=r) and (y>=r) and (z>=r) then
Задача 6
Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?
while (k>0) and (kol<50) do
if kol>=50 then writeln (‘no’) else writeln (kol);
Дано два целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^b.
Входные данные
Результат
writeln (‘ Введите a’); readln (a);
writeln (‘ Введите b’); readln (b);
if b=1 then writeln (a)
Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).
Линейные программы. Решение задач. Ч.1.
mas=array[1..15] of integer;
for i:=1 to 15 do
writeln (‘ Введите m’,'[‘,i,’]’);
writeln (‘ Потребовалось , k,’ рейсов ‘);
Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p %. Через сколько лет он накопит сумму s , достаточную для покупки собственного магазина?
Входные данные
Результат
writeln (‘Введите стартовый капитал’);
writeln (‘Введите % увеличения капитала’);
writeln (‘Введите сумму, необходимую для покупки магазина’);
writeln (‘Количество лет -‘, int ( n /12));
Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.
var i,a,b,c: integer;
for i := 111 to 999 do
b := (i div 10) mod 10;
if (b 0) and (c 0) and (i mod (a * b * c) = 0) then writeln (i);
На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.
Входные данные
Результат
writeln (‘Введите количество участников’);
writeln (‘Введите вместимость первого автомобиля’);
writeln (‘Введите вместимость второго автомобиля’);
if x mod 20 then N:=N-K else N:=N-M;
Задача 12
Имеется четыре коробки спичек и в каждой из них по 15 спичек. Номер коробки, из которой берется очередная спичка, выбирается случайно. Сколько спичек будет сожжено, прежде чем одна из коробок опустеет? Составить программу .
A: array [1..4] of integer;
writeln (‘В коробке’, n , ‘закончились спички’);
writeln (‘Израсходовано спичек’, m );
Сформировать квадратную матрицу следующего вида.
A: array [1..5, 1..5] of byte;
Дано число типа byte . Проверить, является ли палиндромом его двоичное представление с учетом того, что сохранены старшие нули. Пример таких чисел: 102 (т. к. 102 = 0110 01102, а это палиндром), 129 (129 = 1000 00012) и т. д.
Входные данные
Результат
n = 129
n= 128
false
a := 8 * a + 4 * b + 2 * c + d;
Задача 15
Даны два натуральных числа. Найти их наименьшее общее кратное.
Примечание: наименьшим общим кратным двух чисел m и n называется наименьшее натуральное число, которое делится на m и n . Обозначение: НОК( m , n )
Входные данные
Результат
m =5
n = 11
while m n do begin
if m > n then begin
writeln(prod div m)
Задача 16
Дана последовательность символов длины n ( n >= 1). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.
Примечание: сбалансированной скобочной записью называется символьное выражение, в котором каждой открывающей скобке соответствует закрывающая скобка правее и наоборот, каждой закрывающей скобке соответствует открывающая скобка левее.
Входные данные
Результат
false
for i := 1 to n do begin
if c = ‘(‘ then inc(count);
if c = ‘)’ then dec(count);
if count = -1 then break
writeln ( count = 0)
Сколько существует упорядоченных пар натуральных чисел а и b , для которых известны их наибольший общий делитель d и их наименьшее общее кратное m ?
Входные данные
Результат
m =30
a, b, i, j, d, m:integer;
function nod(a, b:integer):integer;
if a=b then nod:=a
if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)
writeln (‘ Введите НОД двух чисел d’);
writeln (‘ Введите НО K двух чисел m’);
for i:=1 to 100 do
for j:=1 to 100 do
if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);
Задача 18
Правительство гарантирует, что инфляция в новом году составит р% в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.
Входные данные
Результат
p =10
s=12.68
s=213.84
Сложные проценты вычисляются по формуле .
writeln (‘Введите процент месячной инфляции’);
Факультету выделен стипендиальный фонд в размере f рублей в месяц. Результаты сессии таковы: «отличников», «хорошистов», «троечников». Повышенная стипендия (для отличников) составляет рублей, обычная — рублей; задолжники стипендии лишаются. Составить программу, определяющую сколько студентов каждой категории могут получать стипендию и каков будет остаток фонда на материальную помощь малоимущим студентам?
writeln (‘ Введите размер фонда ’);
writeln (‘Введите количество отличников, хорошистов и троечников’);
readln ( n 1, n 2, n 3);
writeln (‘Введите размер стипендий’);
if f>s1*n1 then k1:=n1 else k1:=f div s1;
if f>s2*n2 then k2:=n2 else k2:=f div s2;
if f>s2*n3 then k3:=n3 else k3:=f div s2;
writeln (‘Количество отличников, получивших стипендию=’, k 1);
if k 2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘, k 2);
if k 3>0 then writeln (‘Количество троечников, получивших стипендию =’, k 3);
writeln (‘Фонд материальной помощи=’, f );
N коробок стоят по кругу. В i -ой коробке j змей. Каждую минуту змеи переползают в соседнюю коробку (из i -ой в i +1-ую), а из N -ой – в первую. Составить программу, определяющую количество змей в каждой коробке через М минут.
Входные данные
Результат
3 4 5 6 1 2
writeln (‘Введите количество коробок n ’);
writeln (‘Введите количество минут m ’);
if m=0 then begin j:=0; m:=n end else j:=n-m;
Задача 21
У Вас имеется в наличии 2000 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры — 20 рублей за упаковку, тетради общие — 10 рублей за штуку, стержни — 1,5 рубля за штуку. Вы должны потратить все деньги.
x , y , z , kol : integer ;
for x:=1 to 200 do
for y:=1 to 200 do
for z:=1 to 200 do
if (sum=2000) and (kol=200) then writeln(‘ фломастеры -‘,x,’ тетради -‘, y, ‘ стержни -‘, z);
Задача 22
Имеется N точек, расположенных в произвольном порядке на плоскости. Найти две точки, расстояние между которыми наименьшее.
Входные данные
Результат
— 1 -1
Номера точек
a:array[1..n] of integer;
b:array[1..n] of integer;
FOR i:= 1 TO n do
m:=SQRT(SQR(a[1] — a[2])+ SQR(b[1] — b[2]));
FOR i:= 1 TO n — 1 do
FOR j:= i + 1 TO n do
q:=SQRT(SQR(a[1] — a[2])+ SQR(b[1] — b[2]));
writeln(‘ Номера точек ’);
В книге N страниц. Составить программу подсчета количества десятичных цифр, требуемых для нумерации всех страниц книги. Нумерация проводится от 1 и далее.
Входные данные
Результат
N =1 0
N =10 0
s = 11
s = 192
writeln (‘Количество десятичных цифр=’ , s );
Король Флатландии решил вырубить некоторые деревья, растущие перед его дворцом. Деревья перед дворцом короля посажены в ряд, всего там растет N деревьев, расстояния между соседними деревьями одинаковы.
После вырубки перед дворцом должно остаться M деревьев, и расстояния между соседними деревьями должны быть одинаковыми. Помогите королю выяснить, сколько существует способов вырубки деревьев.
Требуется написать программу, которая по заданным числам N и M определит, сколько существует способов вырубки некоторых из N деревьев так, чтобы после вырубки осталось M деревьев и соседние деревья находились на равном расстоянии друг от друга.
Входные данные
Результат
Источник: globuss24.ru
Презентация на тему Решение задач на языке программирования Pascal
Тип урока: комбинированный.Вид: лекция.Метод обучения: Иллюстративно-объяснительный.Оборудование: Компьютер, презентация, доска, проектор.Форма обучения: фронтальная с учащимися.План урока:Организационный момент. (2мин)Актуализация знаний. (5мин)Объяснение нового материала. (8мин)Решение задач.(20мин)Домашняя работа. (2мин)Подведение итогов урока.(3мин)
- Главная
- Информатика
- Решение задач на языке программирования Pascal
Слайды и текст этой презентации
Слайд 1 «Решение задач на языке программирования» (Подготовка к ОГЭ)
Учителя информатики:
Трукжанова
Айгуль Зулхаджаевна
Слайд 2Тип урока: комбинированный.
Вид: лекция.
Метод обучения: Иллюстративно-объяснительный.
Оборудование: Компьютер, презентация, доска, проектор.
Форма
обучения: фронтальная с учащимися.
План урока:
Организационный момент. (2мин)
Актуализация знаний. (5мин)
Объяснение нового
материала. (8мин)
Решение задач.(20мин)
Домашняя работа. (2мин)
Подведение итогов урока.(3мин)
Слайд 3Цели урока:
Образовательные: закрепить знание системы команд исполнителя;
ввести понятие алгоритма, программы;
сформировать
умение составлять алгоритмы решения задач;
Развивающие:
развитие алгоритмического и логического мышления, познавательный интерес обучающихся;
развитие творческой активности обучающихся;
формирование интереса к изучению предмета;
Воспитательные: воспитать культуру речи
воспитание у обучающихся самостоятельности, аккуратности, внимательности, культуры речи и общения учеников.
Задачи урока:
Научить составлять алгоритмы решения задач на языке программирования.
Раскрыть понятие «программа».
Слайд 4Языки программирования — это формальные языки, предназначенные для записи алгоритмов,
исполнителем которых будет компьютер.
Записи алгоритмов на языках программирования называются
программами.
Язык Паскаль – универсальный язык программирования.
Никлаус Вирт (род. в 1934 г.) — швейцарский учёный, специалист в области информатики, один из известнейших теоретиков в области разработки языков программирования, профессор информатики (компьютерных наук). Разработчик языка Паскаль и ряда других языков программирования.
Слайд 5Алфавит языка
Алфавит языка программирования Паскаль — набор допустимых символов, которые
можно использовать для записи программы.
A, B, C, …, X
Алфавит языка Паскаль
Латинские прописные
буквы
Латинские строчные
буквы
Знаки арифметические,
препинания, скобки и другие
Источник: theslide.ru
Задачи на Языке Паскаль
Язык программирования Паскаль — наиболее известный для студентов (иногда его даже начинают изучать еще в школе), именно с него обычно начинается обучение будущих программистов и математиков. Если вы студент 1-го или 2-го курса, с большой вероятностью вы изучаете именно Паскаль: разбираетесь с синтаксисом, решаете простые задачи, строите блок-схемы, рисуете графические примитивы, осваиваете структурное программирование и т.п.
Но что делать, если на носу зачет, а вы написали только малую часть лабораторных? Или знаете, как работать в Турбо Паскале, но надо переделать все для Паскаль ABC? Не получается конкретная задача или осталось несколько дней до сдачи курсовой? Мы поможем вам сдать информатику успешно: разработаем программы с комментарием в коде, напишем подробный отчет и т.п.
Закажите решение задач на Pascal профессионалам
Решение задач на Паскале. Контрольные работы по Pascal
МатБюро предлагает вам помощь в решении задач на языке программирования Паскаль (работа со строками, массивами, файлами, математическими функциями, графикой и т.п.), а также выполнении контрольных и курсовых работ в различных средах разработки: Turbo Pascal, PascalABC.NET, Delphi и т.п.
Стоимость решения задачи по информатике на языке Паскаль начинается от 200 рублей. На стоимость работы влияет сложность и объем задачи, а также дополнительные требования: подробность описания, наличие отчета, наличие блок-схемы и т.п. Если вам нужна курсовая работа по информатике по Паскалю, стоимость составит от 1400 рублей, срок от 3 дней и больше.
Нужна программа на Турбо Паскале или Pascal ABC?
Источник: pascal-entering.ru