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


Задача 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.

Похожие статьи




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

Предыдущая | Следующая