Сборник задач с решениями на языке программирования Паскаль Подготовила: Алдошина Е.А., учитель информатики МБОУ СОШ №18 г. Узловая Тульской области Задача 1 Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009? Программа program z1; var k,x:integer; Begin k:=1; x:=1; while x mod 20090 do begin k:=k+1; x:=x+11; end; writeln ('Через ', k, ' секунд '); end. Задача 2 Найдите количество четных цифр в десятичной записи числа n. Пример Входные данные Результат 1486 371 3 0 Программа program z2; var x, y, k:integer; Begin readln (x); k:=0; while x0 do begin y:=x mod 10; if y mod 2 =0 then k:=k+1; x:=x div 10; end; writeln ('k=',k); end.

1. Решебник По Химии 9 Класс
2. Решебник По Русскому
3. Решебник По Английскому

Задача 3 Выясните, лежат ли на одной прямой точки А( x1, y1), B( x2, y2), C( x3, y3) Пример Входные данные Результат x1=1 y1=1 x2=6 y2=3 x3=11 y3=5 Точки лежат на одной прямой Программа program z3; var x1, x2, x3, y1, y2, y3, z, n:real; Begin write (‘Введите координаты точки А '); readln ( x1, y1); write (‘Введите координаты точки В '); readln ( x2, y2); write (‘Введите координаты точки C '); readln (x3,y3); z:=(x3-x1)/(y3-y1); n:=(x3-x2)/(y3-y2); if (z=n) and (z=(x2-x1)/(y2-y1)) then writeln ('Точки лежат на одной прямой’) else writeln ('Точки не лежат на одной прямой’); end. Задача 4 Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов - максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 - 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К7), все они только что собраны. Определить, сколько роботов будет через N лет. Пример Входные данные Результат 8 3 10 10 152 143702 Программа program z4; var k, i, n, p:integer; s, x, y:longint; r:array 1.3 of longint; Begin write('количество роботов k='); readln(k); write('количество лет n='); readln( n); r1:=k; r2:=0; r3:=0; s:=k; for i:=1 to n do begin x:=s div 3; p:=s mod 3; if p=0 then y:=0 else if p=1 then begin x:=x-3; y:=2 end else begin x:=x-1; y:=1 end; r3:=r2; r2:=r1; r1:=5.x+9.y; s:=r1+r2+r3; end; writeln (‘Количество роботов - ’, s); end.

Задача 5 Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону. Программа program z5; var a,b,c,x,y,z,kol,r:real; Begin readln (a,b,c); readln (x,y,z); readln (r); x:=int(x.100/a); y:=int(y.1000/b); z:=int(z.50/c); kol:=0; if (x=r) and (y=r) and (z=r) then begin if (x0) and (kol=50 then writeln ('no') else writeln (kol); end.

Задача 7 Дано два целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^ b.

Входные данные Результат a=2 b =4 6 Программа program z7; var a,b,d:integer; c:byte; Begin writeln ('Введите a'); readln (a); writeln ('Введите b'); readln (b); d:=a; if b=1 then writeln (a) else begin for c:=2 to b do d:=d.a; d:=d mod 10; end; writeln ( d); end. Задача 8 Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации.

(Предполагается, что масса отдельного груза не превышает 50 тонн). Программа program z8; type mas=array1.15 of integer; var m:mas; k,i,s:integer; Begin for i:=1 to 15 do begin writeln ('Введите m',',i,'); readln (mi); end; k:=1; i:=1; s:=0; repeat if s+mi15; writeln ('Потребовалось, k,'рейсов '); Задача 9 Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина? Пример Входные данные Результат 200000 5 3000000 4 Программа program z9; var s, k, p: real; n: integer; Begin writeln ('Введите стартовый капитал'); readln( k); writeln ('Введите% увеличения капитала'); readln( p); writeln ('Введите сумму, необходимую для покупки магазина'); readln(s); while k begin k:=k+k.(p/100); n:=n+1; end; writeln ('Количество лет -', int( n/12)); end.

1. Название документа Чолокоглы_Программирование.doc. Сборник задач по программированию на языке Паскаль. Автор: Чолокоглы Алина Олеговна, учитель информатики и ИКТ МАОУ СОШ №44 г.Томска. Описание материала: Сборник задач посвящен вопросам программирования на языке программирования Pascal 7.0. В нем подробно рассматриваются решения большого количества задач, от простых до достаточно сложных. Сборник адресован учащимся, преподавателям, ведущим занятия по информатике и программированию, а также всем желающим самостоятельно овладеть искусством программирования на языке Pascal 7.0.
2. Сборник содержит условия задач и одно или два варианта их решения на языке программирования Pascal 7.0. Задачи в сборнике классифицированы по основным разделам: линейные алгоритмы, разветвляющиеся алгоритмы, циклические алгоритмы, обработка массивов, обработка строк и создание графических изображений. После каждого раздела предлагаются задачи для самостоятельного решения. Внутри каждого раздела задачи по мере возможности расположены по возрастанию степени трудности. Линейные алгоритмы. UNTIL CH='D'; end. Сборник задач по программированию на языке Паскаль. 12 3 4 5 Следующая ⇒. Читайте также.

Задача 10 Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 175=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана. Программа program z10; var i,a,b,c: integer; Begin for i:= 111 to 999 do begin a:= i div 100; b:= (i div 10) mod 10; c:= i mod 10; if (b 0) and (c 0) and (i mod (a. b. c) = 0) then writeln (i); end; end. Задача 11 На конференцию приехало N человек.

В этом видео я объяснил как решать задачи в Pascal ABC.

Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров.

Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции. Пример Входные данные Результат 20 3 4 6 Программа program z11; var N,M,K,x:integer; Begin writeln ('Введите количество участников'); readln( N); writeln ('Введите вместимость первого автомобиля'); readln( K); writeln ('Введите вместимость второго автомобиля'); readln(M); x:=0; while N0 do begin x:=x+1; if x mod 20 then N:=N-K else N:=N-M; end; writeln (x); end.

Задача 12 Имеется четыре коробки спичек и в каждой из них по 15 спичек. Номер коробки, из которой берется очередная спичка, выбирается случайно.

Решебник По Химии 9 Класс

Сколько спичек будет сожжено, прежде чем одна из коробок опустеет? Составить программу. Программа program z12; var A: array 1.4 of integer; i, m,n:integer; Begin for i:=1 to 4 do Ai:=15; repeat n:=1+random(4); An:=An-1; m:= m+1; until A n=0; writeln ('В коробке', n, 'закончились спички'); writeln ('Израсходовано спичек', m); end. Задача 13 Сформировать квадратную матрицу следующего вида. 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4 Программа program z13; var A: array 1.5, 1.5 of byte; i, j:integer; begin for i:=1 to 5 do for j:=1 to 5 do Ai, j:=1+(i+j-2) mod 5; for i:=1 to 5 do begin for j:=1 to 5 do write (ai, j:2); writeln; end; end. Задача 14 Дано число типа byte.

Проверить, является ли палиндромом его двоичное представление с учетом того, что сохранены старшие нули. Пример таких чисел: 102 (т.

102 = 0110 0110 2, а это палиндром), 129 (129 = 1000 0001 2) и т. Пример Входные данные Результат n= 129 n= 128 true false Программа program z14; var n, a, b, c, d: byte; Begin readln (n); a:= n mod 2; n:= n div 2; b:= n mod 2; n:= n div 2; c:= n mod 2; n:= n div 2; d:= n mod 2; n:= n div 2; a:= 8.

a + 4. b + 2.

Обращаем Ваше внимание, что настоящий учебник не входит в Федеральный перечень учебников, утвержденный Министерством образования. Полный и качественный учебник Всеобщая история 8 класс А.Я. Юдовская, П.А. Баранов, Л.М. Ресурсы Интернета по истории Нового временистр. Книга: Всеобщая история. История Нового времени, 1800-1900. Автор: Юдовская, Баранов, Ванюшкина. Аннотация, отзывы. Всеобщая история. История Нового времени, 1800-1900. Юдовская А.Я. М.: 2014 — 304. М.: 2012 — 303. В учебнике используются. Всемирная история нового времени 8 класс учебник. Всеобщая история. История Средних веков. Всеобщая история. Базовый и углубленный уровни. История Нового времени, 1800-1900.

c + d; writeln (n = a); end. Задача 15 Даны два натуральных числа. Найти их наименьшее общее кратное. Примечание: наименьшим общим кратным двух чисел m и n называется наименьшее натуральное число, которое делится на m и n. Обозначение: НОК( m, n) Пример Входные данные Результат m =5 n = 11 55 Программа program z15; var m, n, prod: word; Begin readln(m, n); prod:= m. n; while m n do begin if m n then begin m:= m – n end else begin n:= n – m end end; writeln(prod div m) end. Задача 16 Дана последовательность символов длины n ( n = 1).

Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения () программа должна сообщить о правильности расстановки скобок, а при вводе выражения (() – о неправильности.

Примечание: сбалансированной скобочной записью называется символьное выражение, в котором каждой открывающей скобке соответствует закрывающая скобка правее и наоборот, каждой закрывающей скобке соответствует открывающая скобка левее. Пример Входные данные Результат n=7 ((()) false Программа program Z16; var count: integer; i, n: byte; c: char; Begin readln(n); count:= 0; for i:= 1 to n do begin read(c); if c = '(' then inc(count); if c = ')' then dec(count); if count = -1 then break end; writeln( count = 0) end. Задача 17 Сколько существует упорядоченных пар натуральных чисел а и b, для которых известны их наибольший общий делитель d и их наименьшее общее кратное m? Пример Входные данные Результат d =2 m =30 (6, 10) (2, 30) Программа program Z17; var a, b, i, j, d, m:integer; function nod(a, b:integer):integer; begin if a=b then nod:=a else if ab then nod:=nod(a-b, b) else nod:=nod(a, b-a) end; Begin writeln (‘Введите НОД двух чисел d’); readln (d); writeln (‘Введите НО K двух чисел m’); readln (d); for i:=1 to 100 do begin for j:=1 to 100 do begin a:=i; b:=j; if ((nod(a, b)=d) and ((a.b div nod(a, b))=m)) then writeln (i, j); end; end; readln end.

Решебник По Русскому

Задача 18 Правительство гарантирует, что инфляция в новом году составит р% в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи. Пример Входные данные Результат p =1 p =10 s=12.68 s=213.84 Программа Пояснения: Сложные проценты вычисляются по формуле. Program Z18; var a, p, s:real; Begin writeln (‘Введите процент месячной инфляции’); readln (p); a:=exp(ln(1+p/100).12); s:=(a-1).100; writeln (s:10:2); readln end.

Решебник По Английскому

Задача 19 Факультету выделен стипендиальный фонд в размере f рублей в месяц. Результаты сессии таковы: «отличников», «хорошистов», «троечников». Повышенная стипендия (для отличников) составляет рублей, обычная - рублей; задолжники стипендии лишаются. Составить программу, определяющую сколько студентов каждой категории могут получать стипендию и каков будет остаток фонда на материальную помощь малоимущим студентам?