Решение Задач Паскаль Abc
Доверенность в садик образец. 1) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания. 2) Дан целочисленный массив A размера N,являющийся перестановкой.
Найти количество инверсий в данной перестановке,т.е. Таких пар Ai И Aj элементов в которых большее число находится слева от меньшего:AiAj при iL) и целочисленный массив размера N. Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением. 1) Дан массив размера N.
Второе — исправить ошибки реестра. Программа для чистки реестра. Третье — дефрагментировать диски. Первое — ускорить систему.
Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания. Var a,d:array1.255of integer; i,c,n:byte; begin write('n='); read(n); for i:=1 to n do begin write('a',i,'='); read(a) end; writeln; c:=0; for i:=1 to n-1 do if aai+1 then begin c:=c+1; dc:=i end; writeln('TaKuX EJIEMEHTOB:',c); for i:=1 to c do write(d,' '); writeln end. 2) Дан целочисленный массив A размера N,являющийся перестановкой. Найти количество инверсий в данной перестановке, т.
Таких пар Ai И Aj элементов в которых большее число находится слева от меньшего: AiAj при iL) и целочисленный массив размера N. Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением. Что-то я не понял, что это за Л?
Вот решил так: var a:array1.256of integer; i,j,n:byte; c:integer; begin write('n='); read(n); for i:=1 to n do begin write('a',i,'='); read(a) end; writeln; c:=0; for i:=1 to n-1 do for j:=i+1 to n do if aaj then inc(c); writeln('Колличество инверсий - ',c); end.
Помогите пожалуйста) Pascal ABC. Решение задач с использованием простых записей - Pascal ABC Распечатать список тех. Решенные задачи в Паскаль: условный оператор К оглавлению Рассмотрите и решите примеры программ [] Facebook. Pascal abc.net. Логическое программирование. Prolog (Пролог). Объектно-ориентированное (визуальное) программирование. Visual Basic (vb 2008). Решений задач по информатике Паскаль (Pascal ABC, Turbo Pascal). Вы можете заказать решение своих задач в разных средах: Pascal ABC, Free. Решение, использующее while. Погрешность округления и вычислительная погрешность.
Сборник задач с решениями на языке программирования Паскаль Подготовила: Алдошина Е.А., учитель информатики МБОУ СОШ №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.
Pascal Abc Команды
Задача 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.
Решение Задач Pascal Abc Онлайн
Задача 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. Задача 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 человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров.
Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции. Пример Входные данные Результат 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 спичек. Номер коробки, из которой берется очередная спичка, выбирается случайно. Сколько спичек будет сожжено, прежде чем одна из коробок опустеет? Составить программу. Программа 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.
Температура воздуха по помещениям регулируется комнатными термостатами. Регулирование температуры теплоносителя, поступающего в систему напольного отопления, производится 2-х ходовыми регулирующими клапанами, с термостатическими элементами, имеющими выносной датчик температуры, установленными на интегрированных коллекторах. Пример в dwg теплого пола Разместил: - Категория: Размер: 3.7 MB Раздел: Дата: Скачали: 364 Еще один пример проекта отопления дома теплым полом, но уже в dwg формате. Чертеж на гидроизоляцию пола dwg. Теплые полы dwg Источником тепла служит существующая газовая котельная расположенная в техническом помещении второго этажа жилого дома.
b + 2. 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). Проверить баланс круглых скобок в этом выражении.
Примеры Решения Задач Pascal Abc
Например, при вводе выражения () программа должна сообщить о правильности расстановки скобок, а при вводе выражения (() – о неправильности. Примечание: сбалансированной скобочной записью называется символьное выражение, в котором каждой открывающей скобке соответствует закрывающая скобка правее и наоборот, каждой закрывающей скобке соответствует открывающая скобка левее. Пример Входные данные Результат 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 рублей в месяц. Результаты сессии таковы: «отличников», «хорошистов», «троечников». Повышенная стипендия (для отличников) составляет рублей, обычная - рублей; задолжники стипендии лишаются. Составить программу, определяющую сколько студентов каждой категории могут получать стипендию и каков будет остаток фонда на материальную помощь малоимущим студентам?