Задачі програмування на мові Pascal

Размещено на http://www.allbest.ru//

Размещено на http://www.allbest.ru//

Задача Dobutok. Дано чотирицифрове натуральне число. Знайти добуток цифр цього числа.

добуток число функція чотирицифровий

Технічні умови. Вхідні дані: а - ціле додатне чотирицифрове число. Вихідні дані - ціле число, що є добутком цифр чотирицифрового числа, при умові, що -32768<= a <=32678

Розв'язання.

program Dobutok;

var a,b, c, d, n: integer;

begin

write(`Введіть 4-цифрове ціле число n=');

readln(n);

a:= n div 1000;

b:= (n mod 1000) div 100;

c:= (n mod 100) div 10;

d:= n mod 10;

writeln(`Добуток цифр числа n=', a*b*c*d);

Задача MAXMIN3. Дано три різні цілі числа. Не використовуючи знаки порівняння “<” i “>” та “<=” i“>=”, знайти найбільше, середнє,найменше із трьох даних чисел та розташувати дані числа в порядку спадання.

Технічні умови. Вхідні дані вводяться з екрану: x, y,z - цілі числа. Не використовувати знаки порівняння “<” i “>” та “<=” i “>=”. Вихідні дані виводяться на екран: перше число - ціле число, що є найбільшим із трьох чисел, друге число - ціле число, що є середнім із трьох чисел, третє число - ціле число, що є найменшим із трьох чисел,якщо -32768<= x,y,z <=32678. Остаточно виводиться на екран спадна послідовність із трьох даних чисел.

Введення:

Введіть ціле число x=3

Введіть інше ціле число y=8

Введіть інше ціле число z=0

Виведення:

Найбільше із трьох чисел max=8

Середнє із трьох чисел ser=3

Найменше із трьох чисел mіn=0

Спадна послідовність із трьох чисел 8; 3; 0

Розв'язання.

program MAXMIN3;

var x,y,z,max,min,ser: integer;

begin

write('Введіть ціле число x=');

readln(x);

write('Введіть інше ціле число y=');

readln(y);

write('Введіть інше ціле число z=');

readln(z);

max:=(abs(x-y)+x+y) div 2;

max:=(abs(z-max)+z+max) div 2;

min:=(-abs(z-y)+(z+y)) div 2;

min:=(-abs(min-x)+(min+x)) div 2;

ser:=x+y+z-max-min;

writeln('Найбільше із трьох чисел max=', max);

writeln('Середнє із трьох чисел ser=', ser);

writeln('Найменше із трьох чисел mіn=', min);

writeln('Спадна послідовність із трьох чисел ', max, ser, min);

end.

Петрик П'яточкін вишикував у рядок слоненят та рахує їх по кожному кольору окремо. Всього буває 8 кольорів слоненят. У рядок вишикувались N (10<N<999) слоненят. Скільки слоненят кожного кольору стоїть перед Петриком? Бажано їх порахувати пройшовши всього один раз перед строєм.

Технічні умови. Програма зчитує з клавіатури ціле число N - кількість слоненят, потім, через пропуск - N чисел від 1 до 8, якими ми пронумеровали кожен колір в тій послідовності, в якій вони потрапляли на очі Петрику від початку рядка. Програма виводить на екран в один рядок через пропуски пари цілих чисел, де перше число пари - колір, а друге - кількість слоненят такого кольору.

Введення>12 1 1 2 3 3 1 5 6 8 7 6 5

Виведення> 1 3 2 1 3 2 4 0 5 2 6 2 7 1 8 1

Розв'язання.

program slon;

const q=1; g=998;

type Massiv = array[q..g] of integer;

var s, r, n, l, k: integer;

b:array[1..8] of integer;

a: Massiv;

begin

read(n);

for r:=1 to n do

read (a[r]);

for r:=1 to 8 do

b[r]:=0;

for r:=1 to n do

case a[r] mod 9 of

1: b[1]:=b[1]+1;

2: b[2]:=b[2]+1;

3: b[3]:=b[3]+1;

4: b[4]:=b[4]+1;

5: b[5]:=b[5]+1;

6: b[6]:=b[6]+1;

7: b[7]:=b[7]+1;

8: b[8]:=b[8]+1;

end;

for r:=1 to 8 do

write(r,' ',b[r],' ');

end.

Задача Функція. Обчислити значення функції для заданого значення х:

у=5х2 - 7, якщо х<=2;

у = 1/ (2х - 4), якщо 2< х<5;

у=(х - 5)0,5, якщо х>=5.

Результат вивести з 3-ма знаками після коми.

Технічні умови. Із клавіатури вводиться одне дійсне число х, а виводиться дійсне значення у (із трьома знаками після коми).

Розв'язання.

program value;

var

f,x: real;

k, p,t: boolean;

begin

read(x);

t:=((x>2)and(x<5));

p:=(x<=2);

k:=(x>=5);

if p=truethen f:=5*x*x -7;

if t=truethen f:=1/(2*x -4);

if k=truethen f:=sqrt(x -5);

writeln(f:10:3);

end.

Размещено на Allbest.ru