Записати у файл cgisla.dat 100 перших цiлих чисел

Sin X;

Cos X;

Tg X.

Program Example_160;

Uses crt;

Var N:byte; {N – номер функції, що обчислюється}

X,Y:real; {X – значення змінної, Y – значення

функції}

Begin

Clrscr; {Очищення екрану}

Write(‘Введіть значення Х: ’);

Readln(Х);

Write(‘Введіть номер функції, що обчислюється: ’);

Writeln(‘1 - sin’);

Writeln(‘2 - cos’);

Writeln(‘3 - tg’);

Readln(N);

Writeln(‘Результат обчислень:’)

Case N of

1: begin Y:=sin(X); writeln(‘sin(x)=’,Y:8:2); end;

2: begin Y:=cos(X); writeln(‘cos(x)=’,Y:8:2); end;

3: begin Y:=sin(X)/cos(X); writeln(‘tg(x)=’,Y:8:2);

end;

Else writeln(‘Помилка вхідних даних.’);

End;

Readkey; {Затримка зображення на екрані до

натискання будь якої клавіші}

End.

 

№164. Розробити алгоритм-"лотерею", який, використовуючи генератор випадкових чисел, визначатиме призи:

1) комп'ютер;

2) принтер;

3) сканер;

4) компакт-диск;

5) набір дискет.

 

Program Example_164;

Uses crt;

Var N:byte; {N – генерований номер лотереї}

Begin

Clrscr; {Очищення екрану}

Randomize; {Процедура, що примушує програму

генерувати при кожному новому

запуску програми нові числа}

N:=random(4)+1;

Write(‘Вітаємо! Ви виграли ’)

Case N of

1: writeln(‘комп’ютер!!!’);

2: writeln(‘принтер!!!’);

3: writeln(‘сканер!!!’);

4: writeln(‘компакт-диск!!!’);

5: writeln(‘набір дискет!!!’);

End;

Readkey; {Затримка зображення на екрані до

натискання будь якої клавіші}

End.

 

№165. Дано натуральне число N (N <= 100), яке позначає вік людини. Додати до цього числа відповідно слова: "рік", "роки", "років", наприклад: 1 рік, 12 років, але 43 роки.

 

Program Example_165;

Uses crt;

Var Years:byte; {Years – вік людини}

Begin

Clrscr; {Очищення екрану}

Write(‘Введіть Ваш вік: ’);

Readln(Years);

Write(‘Вам ’,Years);

If (Years>=10) and (Years<=20)

Then writeln(‘років’)

Else

Case Years mod 10 of

1: writeln(‘рік.’);

2..4: writeln(‘роки.’);

0,5..9: writeln(‘років.’);

End;

Readkey; {Затримка зображення на екрані до

натискання будь якої клавіші}

End.

Цикли

№177. Ненажера Стецько пробрався перед обідом у шкільну їдальню, де вже були накриті столи, і почав швиденько з'їдати ще тепленьки булочки, що стояли на столах. З першого столу він з'їв x1 булочок, з другого - х2, і, відповідно, з останнього - xn булочок. Але за ним стежив черговий по їдальні Андрійко та ретельно все фіксував на своєму калькуляторі: до булочок, з'їдених з першого столу, додав кількість булочок, що зникли з другого столу, і т.д. Допоможіть крок за кроком відтворити інформацію, яку дістав Андрійко на своєму калькуляторі.

 

Program Example_177;

Uses crt;

Var I,N:word; {I – параметр циклу, N –

кількість столів в їдальні,

тобто кількість повторень}

Sum,X:word; {X – кількість булочок на

черговому столі їдальні, Sum –

загальна кількість булочок, що

з’їв Стецько}

Begin

Clrscr;

Sum:=0; {На початку роботи програми Стецько

ще нічого не з’їв}

Write(‘Введіть кількість столів в їдальні: ’);

Readln(N);

For I:=1 to N do

Begin

Write(‘Введіть кількість булочок на

черговому столі: ’);

Readln(X);

Sum:=Sum+X;

Writeln(‘На даний момент Стецько з”їв

’,Sum,’ булочок.’);

End;

Readkey; {Затримка зображення на екрані}

End.

 

№183. Компанія бабусь поїхала на мотоциклах на курси комп'ютерної грамотності. Попереду на мотоциклі без глушника їхала одна бабуся, за нею - дві, потім - три і т.д. Скільки бабусь їхало на заняття, якщо приголомшені пішоходи всього нарахували N рядів? Чи змогли бабусі зайняти всі місця у класі, якщо там стояло k рядів по l комп'ютерів в кожному? Скільки вільних місць залишилося?

 

Program Example_183;

Uses crt;

Var I,N,Sum:word; {I – параметр циклу, N –

кількість рядів мотоциклів,

тобто кількість повторень, Sum –

загальна кількість бабусь, що

приїхали на курси}

Place,k,l:word; {k – кількість рядів в

комп’ютерному класі, l –

кількість комп’ютерів в

кожному ряду, Place – кількість

місць, що вистачила для бабусь}

Begin

Clrscr;

Sum:=0;

Write(‘Введіть кількість рядів мотоциклів, що

нарахували пішоходи: ’);

Readln(N);

For I:=1 to N do Sum:=Sum+I;

Writeln(‘Кількість бабусь, що приїхала на курси ’,Sum);

Writeln(‘Кількість комп”ютерів на курсах ’,k*l);

If Sum < k*l Then writeln(‘Бабусі не змогли зайняти всі місця.’)

Else writeln(‘Бабусі зайняли всі місця.’);

Place:=Sum – k*l;

If Place>0

Then writeln(‘Бабусям не вистачило ’,Place,’місць.’);

Readkey; {Затримка зображення на екрані}

End

Прості цикли

 

№179.На дверях ліфта висіло загрозливе попередження про те, що двері зачиняються самі в той самий момент, коли зайвий за вагою пасажир переступить поріг ліфта. Котрий пасажир постраждає, якщо ліфт витримує вагу не більше S кг, а вага пасажирів, що стоять у черзі до ліфта, дорівнює відповідно a1, a2, a3, … an?

 

Program Example_179;

Uses crt;

Var N:word; {I – номер пасажира, що увійшов у

ліфт}

Sum,A,S:real; {Sum – сумарна вага пасажирів, що

знаходяться в ліфті, A – вага

чергового пасажира, що увійшов до

ліфта, S – критична вага, що може

бути піднята ліфтом}

Begin

Clrscr;

Sum:=0; {На початку роботи програми в ліфті

N:=0; немає пасажирів}

Write(‘Введіть критичну вагу, що піднімає ліфт: ’);

Readln(S);

Repeat

Write(‘Введіть вагу чергового пасажира: ’);

Readln(А);

Sum:=Sum+А;

N:=N+1;

Until Sum>S;

Writeln(‘Постраждає ’,N,’-й пасажир.’);

Readkey; {Затримка зображення на екрані}

End.

 

№180. Коли Василині Премудрій виповнилося 18 років, Чахлик Невмирущий вирішив взяти її заміж. Василина запитала Чохлика, скільки у нього скринь із золотом. Чахлик сказав, що в нього зараз n скринь і щороку додається ще по m скринь. Василина пообіцяла, що вийде заміж тоді, коли у Чохлика буде k повних скринь із золотом. Скільки років буде тоді нареченій?

Program Example_180;

Uses crt;

Var m,n,k:word; {n – початкова кількість скринь з

золотом, m – щорічний “прибуток”

Чахлика Невмирущого, k – “потреби”

Василини Премудрої}

Sum,Years:word; {Sum – щорічне накопичення Чахлика

Невмирущого, Years – вік Василини

Премудрої}

Begin

Clrscr;

Write(‘Введіть початкову кількість скринь з золотом: ’);

Readln(n);

Write(‘Введіть щорічний прибуток Чахлика: ’);

Readln(m);

Write(‘Введіть “потреби” Василини Премудрої: ’);

Readln(k);

Sum:=n; {Початковий “капітал” Чахлика}

Years:=18; {Початковий вік Василини}

While Sum<=k do

Begin

Sum:=Sum+m;

Years:=Years+1;

End;

Writeln(‘Василині вже виповнилося ’,Years,’ років.‘);

Readkey; {Затримка зображення на екрані}

End.

 

 

№181. Капосний папуга навчився висмикувати у дідусі Василя волосся, яке ще залишилося у того на голові. Почавши з однієї волосини, він щодня збільшував порцію вдвічі. Через скільки днів дідусеві не знадобиться гребінець, якщо спочатку в нього на голові було аж N волосин?

 

Program Example_181;

Uses crt;

Var S,N,Sum:longint; {S – кількість волосся, що буде

висмикнуто, Sum – кількість

волосся, що залишилося в

дідуся на голові, N –

початкова кількість волосся}

Day:word; {Day – номер дня, який папуга

знущається над дідусем}

Begin

Clrscr;

Write(‘Введіть початкову кількість волосся в дідуся

на голові: ’);

Readln(N);

If N=0

Then writeln(‘Дідусь вже лисий, папузі нічого робити!’)

Else

begin

Day:=0;

Sum:=N;

S:=1; {Початкова кількість волосся, що

буде висмикнутою капосним папугою}

Repeat

Sum:=Sum-S; {Зменшення дідусевого волосся}

S:=S*2;

Day:=Day+1; {Підрахунок номера дня}

Until Sum<=0;

Writeln(‘Папуга знущався над дідусем ’,Day,’ днів.’);

End;

Readkey; {Затримка зображення на екрані}

End.

 

№189(2). Знайти значення (1 + 0.1)(2 + 0.2)...(9 + 0.9)

 

Program Example_189_2;

Uses crt;

Var I:word; {I – параметр циклу}

Rez:real; {Rez – результат обчислень}

Begin

Clrscr;

Rez:=1; {Початкове значення дорівнює 1, тому що

результат являється накопиченням

добутку}

For I:=1 to 9 do Rez:=Rez*(I+0.1*I);

Writeln(‘Rez= ’,Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

№190(1). Дано ціле n. Визначити n!

 

Program Example_190_1;

Uses crt;

Var I,n:word; {I – параметр циклу}

Factorial:longint; {Factorial – результат

обчислень}

Begin

Clrscr;

Factorial:=1; {Початкове значення дорівнює 1, тому

що результат являється накопиченням

добутку}

Write(‘Введіть значення n: ’);

Readln(n);

For I:=1 to n do Factorial:=Factorial*I;

Writeln(‘Factorial= ’,Factorial:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

№190(3). Дано ціле n. Визначити 1*3*5*7*…*(2n+1).

 

Program Example_190_3;

Uses crt;

Var I,n:word; {I – параметр циклу}

Rez:longint; {Rez – результат обчислень}

Begin

Clrscr;

Rez:=1; {Початкове значення дорівнює 1, тому

що результат являється накопиченням

добутку}

Write(‘Введіть значення n: ’);

Readln(n);

For I:=0 to n do Rez:=rez*(2*I+1);

Writeln(‘Rez= ’,Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

Задача №190(6). Дано ціле n. Визначити sin(1)*sin(1+2)*…*sin(1+2+…+n).

 

Program Example_190_6;

Uses crt;

Var I,n:word; {I – параметр циклу}

Rez,Sum:longint; {Rez – результат обчислень,

Sum – проміжне накопичення}

Begin

Clrscr;

Rez:=1; {Початкове значення дорівнює 1, тому

що результат являється накопиченням

добутку}

Sum:=0; {Початкове значення дорівнює 0, тому

що результат являється накопиченням

суми}

Write(‘Введіть значення n: ’);

Readln(n);

For I:=1 to n do

Begin

Sum:=Sum+I; {Накопичення суми}

Rez:=Rez*sin(Sum); {Накопичення добутку}

End;

Writeln(‘Rez= ’,Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

№191(1). За даним натуральним значенням змінної n обчислити .

 

Program viraz;

Uses crt;

Var n, i: integer;

d,ch: real;

Begin

Clrscr;

Write(‘Введіть число n: ’);

Readln(n);

d:=1; ch:=0;

for i:=1 to n do

begin

ch:=ch+i;

d:=d*ch/cos(ch);

end;

Writeln(‘d=’, d);

Readln;

End.

 

№191(6). За даним натуральним значенням змінної n обчислити:

Program Example_191_6;

Uses crt;

Var I,n:word; {I – параметр циклу}

Rez:real; {Rez – результат обчислень}

Begin

Clrscr;

Rez:=0; {Початкове значення дорівнює 0, тому

що результат являється накопиченням

суми}

Write(‘Введіть значення n: ’);

Readln(n);

For I:=1 to n do

Begin

Rez:=sqrt(Rez+2);

End;

Writeln(‘Rez= ’,Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

№197(1). Дано натуральне число n. Визначити кількість цифр у цьому числі.

 

Program Example_197_1;

Uses crt;

Var N:longint; {N – задане число}

Count:byte; {Count – кількість цифр в числі}

Begin

Clrscr;

Write(‘Введіть натуральне число: ’);

Readln(N);

N:=abs(N); {Знаходження модуля числа для

позбавлення від помилкового введення

ненатурального числа}

Count:=0; {Початкове значення кількості цифр}

Repeat

Count:=Count+1;

N:=N div 10; {“Відкидання” останньої цифри

числа після підрахунку}

Until N = 0;

Writeln(‘Кількість цифр в числі = ’,Count);

Readkey; {Затримка зображення на екрані}

End.

 

 

№197(2). Дано натуральне число n. Визначити суму цифр в числі.

 

Program Example_197_2;

Uses crt;

Var n:longint; {N – дане число}

Sum:byte; {Sum – сума цифр числа}

Begin

Clrscr;

Sum:=0; {Сума цифр числа спочатку дорівнює 0}

Write(‘Введіть ціле число: ’);

Readln(N);

N:=abs(N);

While N>0 do

Begin

Sum:=Sum+N mod 10; {Знаходження суми цифр}

N:=N div 10; {“Відкидання” останньої

цифри числа }

End;

Writeln(‘Sum= ’,Sum);

Readkey; {Затримка зображення на екрані}

End.

 

№200(2). Дано дійсне число а. Знайти таке найменше n, що .

 

Program Example_200_2;

Uses crt;

Var n:word; {n – шукане число}

Rez,a:real; {Rez – результат обчислень, а –

граничне значення}

Begin

Clrscr;

n:=1; {Початкове значення n - 1}

Write(‘Введіть значення a: ’);

Readln(a);

Rez:=0; {Початкове значення суми}

While Rez<=a do

Begin

Rez:=Rez+1/n;

n:=n+1;

end;

Writeln(‘n= ’,n);

Readkey; {Затримка зображення на екрані}

End.

 

№203(2). Знайти найбільше додатне число n, для якого виконується умова: .

Program Example_203_2;

Uses crt;

Var n:word; {n – шукане число}

Begin

Clrscr;

n:=1;

While –4*n+841*sqrt(n)+3>=0 do n:=n+1;

Writeln(‘n= ’,n);

Readkey; {Затримка зображення на екрані}

End.

 

№204. Дано ціле число m>1. Знайти найбільше число k, при якому виконується умова 4k < m.

Program Example_204;

Uses crt;

Var m,k,Rez:longint; {Rez – обчислення степеню 4}

Begin

Clrscr;

Write(‘Введіть значення m (m>1): ’);

Readln(m);

Rez:=1;

k:=0;

While Rezdo

Begin

k:=k+1;

Rez:=Rez*4;

End;

Writeln(‘k= ’,k);

Readkey; {Затримка зображення на екрані}

End.

 

№208(1). Під час обчислення результатів деяких експериментів виникає необхідність отримання результату із заданою похибкою. Нехай результатом є нескінченна сума, що задається певною формулою, і відома похибка e (e > 0) для знаходження наближеного значення результату. Будемо вважати, що необхідна точність досягнута, коли додавання наступного доданку змінює суму на величину, меншу за e. Обчислити:

 

Program Example_208_1;

Uses crt;

Var i:word;

Rez,Epsilon:real; {Rez – результат обчислень,

Epsilon - похибка}

Begin

Clrscr;

Rez:=0; {Початкове значення дорівнює 0, тому

що результат являється накопиченням

суми}

Write(‘Введіть значення похибки (Е>0): ’);

Readln(Epsilon);

i:=1;

While 1/sqr(i)>Epsilon do

Begin

Rez:=Rez+1/sqr(i)

i:=i+1;

End;

Writeln(‘Rez= ’,Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

№210. Дано ціле число n, яке набуває значень шкільних оцінок. Визначити відповідною кількістю звукових сигналів, яка саме оцінка була задана ("1" - один звуковий сигнал, "2" - два звукових сигнали і т.д.). Якщо ж задане число не відповідає значенню шкільної оцінки - подати довгий звуковий сигнал.

 

Program Example_210;

Uses crt;

Var I,n:word; {I – параметр циклу, n – оцінка учня}

Time:word;

Begin

Clrscr;

Write(‘Введіть Вашу оцінку: ’);

Readln(n);

Time:=10000; {Значення цієї змінної залежить

від характеристик комп’ютера, за

яким працює учень, і може бути

підібрана практичним шляхом}

If (n<1) or (n>12)

Then

begin

writeln(‘Ви помилились, такої оцінки не

існує’);

sound(200);

end

Else

For I:=1 to n do

Begin

Sound(200);

Delay(time);

Nousound;

Delay(time);

End;

Readkey; {Затримка зображення на екрані}

End.

№212.Обчислити значення числа p, використовуючи формулу

Program Example_212;

Uses crt;

Var i,n:word; {і – параметр циклу, n – кількість

доданків}

Rez_Pi:real; {Rez_Pi – обчислене значення числа

Pi}

Begin

Clrscr;

Rez_Pi:=0;

i:=1; {i – значення знаменника першого доданка}

n:=0; {n – доданків ще нема}

while round(pi*1000)=round(Rez_Pi*4000) do

Begin

If n mod 2 = 0

Then Rez_Pi:=Rez_Pi+1/i

Else Rez_Pi:=Rez_Pi-1/i;

i:=i+2;

n:=n+1;

End;

Writeln(‘Кількість необхідних доданків - ’,n);

Writeln(‘Порівняйте значення Pi: ’);

Writeln(‘Результат обчислень програми: ’,Rez_Pi:8:3);

Writeln(‘Вбудована функція: ’,Pi:8:3);

Readkey; {Затримка зображення на екрані}

End.

 

№208(4). Під час обчислення результатів деяких експериментів виникає необхідність отримання результату із заданою похибкою. Нехай результатом є нескінченна сума, що задається певною формулою, і відома похибка e (e > 0) для знаходження наближеного значення результату. Будемо вважати, що необхідна точність досягнута, коли додавання наступного доданку змінює суму на величину, меншу за e. Обчислити:

Program Example_208_4;

Uses crt;

Var i:word; {i – номер доданка}

S,Sum:real; {S – черговий доданок, Sum –

нескінченна сума}

Epsilon:real; {Epsilon – задана похибка

обчислень}

Begin

Clrscr;

Write(‘Введіть значення похибки: ’);

Readln(Epsilon);

Sum:=0; {Початкове значення дорівнює 0 для

накопичення суми}

S:=1; {Перший доданок нескінченної суми за

умовою дорівнює “1”}

i:=1;

repeat

if i mod 2 =0

then Sum:=Sum + 1/S

else Sum:=Sum - 1/S;

i:=i+1;

S:=S*i;

until 1/S<=Epsilon;

Writeln(‘Результат обчислень = ’,Sum:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

№209.На скільки років необхідно покласти в банк суму Х грошових одиниць, щоб одержати суму N грошових одиниць (N > X), якщо банк нараховує 200% річних?

Program Example_209;

Uses crt;

Var X,N:real; {X – початковий вклад, N – бажана

сума}

Rez:real; {Rez – результуюча сума на

рахунку}

Years:longint; {Years – термін, протягом якого

сума лежала в банку}

Begin

Clrscr;

Write(‘Введіть початкову суму вкладу: ’);

Readln(Х);

Write(‘Введіть бажану суму вкладу: ’);

Readln(N);

If N<=X

Then writeln(‘Ви вже маєте бажану суму!’)

Else

Begin

Rez:=X;

Years:=0;

Repeat

Rez:=3*Rez; {200% річних збільшують за рік

вклад втричі}

Years:=Years+1;

Until Rez>=N;

Writeln(‘Ви отримаєте бажану суму через ’,years,’ років.‘);

End;

Readkey; {Затримка зображення на екрані}

End.

 

Поєднання повторення і розгалуження

№231.Скласти програму, яка б допомогла працівникам ДАІ визначати кількість порушників перевищення швидкості на трасі, якщо відомо, що на даному проміжку траси встановлено обмеження на швидкість Vmax, а прилад фіксує швидкість автомобілів V1, V2, …, Vn.

 

Program Example_231;

Uses crt;

Var V,Vmax:real; {V – швидкість чергового водія,

Vmax – максимально дозволена

швидкість}

Count:longint;{Count – кількість порушників}

Begin

Clrscr;

Count:=0; {На початку роботи порушники відсутні}

Write(‘Введіть значення максимально дозволеної швидкості: ’);

Readln(Vmax);

Vmax:=abs(Vmax); {Знаходження модуля для

виключення помилки введення

від’ємної максимальної

швидкості}

Repeat

Write(‘Введіть значення швидкості чергового водія: ’);

Readln(V);

If V>Vmax then Count:=Count+1;

Until V<=0;

Writeln(‘Кількість порушників ’,Count);

Readkey; {Затримка зображення на екрані}

End.

 

№234(2). Дано натуральні числа n i a1, a2, …, an. Визначити кількість членів ak послідовності a1, a2, …, an, що кратні числу 3 і не кратні числу 7.

 

Program Example_234_2;

Uses crt;

Var n:word; {n – кількість чисел, що вводяться}

a,count:word; {a – змінна, що зберігає чергове

введене число; count – кількість

чисел, що задовольняє заданій

умові}

Begin

Clrscr;

count:=0; {На початку роботи кількість

знайдених чисел дорівнює 0}

Write(‘Введіть кількість чисел, що будуть вводитись: ’);

Readln(n);

Repeat

Write(‘Введіть чергове число: ’);

Readln(a);

If (a mod 3 = 0) and (a mod 7 <> 0)

Then count:=count+1;

n:=n-1;

Until n<0;

Writeln(‘Кількість шуканих чисел = ’,count);

Readkey; {Затримка зображення на екрані}

End.

№239. Дано натуральне число п і дійсні числа . Визначити max() .

program max;

var

a,max:real;

i,n:integer;

begin

Write('n=');

Read(n);

Write('a1=');

Read(a);

max:=a;

for i:=2 to n do

begin

Write('a',i, '=');

Read(a);

if a>max then

begin

max:=a;

end

end;

Write('max=',max:7:3);

readln;

end.

 

 

№251 (5). Дано натуральне число n і дійсні числа a1, a2, …, an (a1 < > 0). Відомо, що в заданій послідовності є хоча б одне нульове значення. Розглядаючи члени послідовності, що розташовані до першого нульового члена, визначити середнє арифметичне членів.

 

Program Example_251_5;

Uses crt;

Var count:word; {count – кількість членів

послідовності до першого нульового

елемента}

a,Sum:real; {a – черговий член послідовності,

Sum – сума членів послідовності до

першого “0”}

SA:real; {SA – середнє арифметичне}

Begin

Clrscr;

Sum:=0;

count:=0; {Початкові значення дорівнюють “0”}

repeat

write(‘Введіть черговий член послідовності: ’);

readln(a);

Sum:=Sum+a;

count:=count+1;

until a=0;

SA:=Sum/(count-1);

Writeln(‘Середнє арифметичне = ’,SA:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

 

№ 417. Баба-Яга записалася на курси водіїв літальних апаратів. Але справи в неї були кепські, бо вона ніяк не могла запам'ятати, яким чином визначається тривалість польоту, якщо відомі швидкість і відстань. Довелося їй звернутися по допомогу до Хлопчика-Мізинчика, який швиденько написав їй шпаргалку, куди Бабі-Язі треба було лише підставити свої значення. Як виглядала послідовність дій у цій шпаргалці і як нею користувалася Баба-Яга?

 

Program Example_417;

Uses crt; {Підключення бібліотеки}

Procedure Solution (V,S - real; var T - time);

Begin

T:=S/V;

End;

Var X,Y,M:real;

Begin

Clrscr;

Write('Введіть швидкість літального апарату: ');

Readln(X);

Write('Введіть відстань між населеними пунктами: ');

Readln(Y);

If (X<=0) or (Y<0)

then writeln('Некоректні вхідні дані.')

else

begin

Solution(X,Y,M); {Виклик процедури}

Writeln('Тривалість польоту -> ',M:6:2);

end;

Readkey;

End.

 

№ 423 (модифікована). У Білосніжки наближався день народження і її вирішили привітати друзі. Перш за все це були гноми, далі зібралися звірята, а потім і пташки прилетіли. Кожен з гостей приніс квіти, кількість яких зберігається у відповідному масиві: а1, а2,... an - квіти гномів, b1, b2, … bm - квіти звірят та c1, c2, …, ck - квіти пташок. Хто з гостей (гноми, звірята чи пташки) приніс найбільшу кількість квітів? Який з гномів, звірят та пташок найщедріший?

Program Example_423;

Uses crt; {Підключення бібліотеки}

{Опис типу для масиву}

const

L = 100;

Type

T_Mas = array[1..L] of integer;

{Процедура заповнення масиву генератором випадкових чисел з контрольним виведенням на екран вмісту заповненого масиву}

Procedure Input (var MAS:T_Mas; count:integer);

var i:integer;

begin

for i:=1 to count do

begin

MAS[i]:=round(100); {Заповнення масиву

генератором випадкових чисел}

write(MAS[i]:6);

end;

writeln;

end;

{Процедура знаходження суми елементів та максимуму в заданому масиві; count - кількість елементів в масиві, що необхідно обробити}

Procedure Solution (MAS:T_Mas; count:integer;

var SUM,MAX:longint);

Var i:integer;

Begin

SUM:=0; {Початкові значення }

MAX:=MAS[1];

For i:=1 to count do

begin

SUM:=SUM+MAS[i];

if MAX<MAS[i]

then MAX:=MAS[i];

end;

End;

{Процедура пошуку максимуму в масиві}

Procedure Search_Max(M:array of longint;

var n_max:integer);

var i,Maximum:integer;

begin

Maximum:=M[0]; n_max:=0;

for i:=0 to 2 do

if Maximum<M[i]

then

begin

Maximum:=M[i];

n_max:=i;

end;

n_max:=n_max+1;

end;

Var A,B,C:T_Mas;

n,m,k,number:integer;

S,Max:array[1..3] of longint;

Begin

Clrscr;

Writeln('Введіть кількість гостей на дні народження');

Write('Кількість гномів: ');

readln(n)

Input(A,n);

Write('Кількість звірят: ');

readln(M)

Input(B,m);

Write('Кількість пташок: ');

readln(k)

Input(C,k);

Solution(A,n,S[1],M[1]);

Solution(B,m,S[2],M[2]);

Solution(C,k,S[3],M[3]);

{Вибір, хто (гноми, звірята чи пташки) принесли

найбільшу кількість квітів}

Search_Max(S,number);

Case number of

1: Write('Гноми');

2: Write('Звірята');

3: Write('Пташки');

End;

write(' принесли найбільше квітів.');

writeln;

write('Самий щедрий гість перебуває у ');

{Вибір, де (у гномів, звірят чи пташок)

перебуває найщедріший гість}

Search_Max(M,number);

Case number of

1: Write(' гномів.');

2: Write(' звірят.');

3: Write(' пташок.');

End;

Readkey;

End.

 

 

№ 427. Організувати зміну кольору екрана для покрокового введення текстової інформації - прізвище, ім'я, школа, клас - за допомогою власної підпрограми COLOR_PAGE. Для вибору номера кольору скористатися генератором випадкових чисел.

 

Program Example_427;

Uses crt; {Підключення бібліотеки}

Procedure Solution (S:string; var R:string);

Begin

textbackground(Random(14)+1);

clrscr;

textcolor(Random(14)+1);

gotoxy(20,10);

writeln('Введіть ',S);

gotoxy(20,11);

readln(R);

End;

Var A:string;

Begin

Solution('своє прізвище',A);

Solution('своє ім"я',A);

Solution('школу, де Ви навчаєтесь',A);

Solution('свій клас',A);

Readkey;

End.

 

№ 463. Створити підпрограму, яка б із тексту S вилучала вказаний символ х і обчислювала кількість вилучень. У програмі організувати виклик цієї підпрограми.

 

Program Example_463;

Uses crt; {Підключення бібліотеки}

Procedure Solution (x:char; var S:string;

var count:byte);

var i:byte; {локальна змінна для організації

циклу}

Begin

count:=0; i:=1;

while i<=length(S) do

begin

if S[i]=x

then

begin

count:=count+1;

delete(S,i,1);

end

else i:=i+1;

end;

End;

Var A:string; ch:char; N:byte;

Begin

clrscr;

writeln ('Введіть текст: ');

readln(A);

write ('Введіть шуканий символ: ');

readln (ch);

Solution(^ch,A,N);

writeln ('Результуючий текст: ',A);

writeln ('Кількість виконаних вилучень: ',N);

readkey;

End.

 

№ 420. П'ятеро бравих солдатів служили у війську під командуванням сержанта. Перед сержантом було поставлено завдання розробити стратегію визначення чотирьох вояк для штурму фортеці супротивника. Досвідчений сержант вирішив визначати найкращу четвірку за таким правилом: відношення суми ваги вояків до добутку їх зросту повинно бути максимальним. Хто з п'яти служак був удостоєний честі захищати своє військо?

 

Program Example_420;

Uses crt; {Підключення бібліотеки} Mas

Type

T_Mas = array [1..5,1..2] of real;

Function Solution (Mas:T_Mas):byte;

var i:byte;

Min:real;

Begin

Min:=Mas[1,1]*Mas[1,2];

Solution:=1;

for i:=2 to 5 do

if Min > Mas[i,1]*Mas[i,2]

then

begin

Min:=Mas[i,1]*Mas[i,2];

Solution:=i;

end;

End;

Var Soldat:T_Mas;

Number,i:byte;

Begin

Clrscr;

{Заповнення масиву та виведення його на екран}

For i:=1 to 5 do

begin

Soldat[i,1]:=random*100+50;

Soldat[i,2]:=random*0.8+1.5;

writeln(Soldat[i,1]:8:2,Soldat[i,2]:6:2);

end;

writeln ('Не пішов на штурм ',Solution(Soldat),'-й солдат.');

Readkey;

End.

 

 

№ 432. Використовуючи функцію max2(a,b), яка визначає максимальне з двох даних чисел, записати функцію max3(a,b,c), що визначає максимальне з трьох даних чисел, і організувати виклик цієї функції для обчислення суми найбільших значень трьох трійок довільних дійсних чисел.

 

Program Example_432;

Uses crt; {Підключення бібліотеки}

Function Max2 (a,b:real):real;

begin

if a > b

then Max2:=a

else Max2:=b;

end;

Function Max3 (a,b,c:real):real;

Var Max:real;

Begin

Max:=Max2(a,b);

Max3:=Max2(Max,c);

End;

Var x,y,z,Rezultat:real;

Begin

Clrscr;

writeln ('Введіть три довільні числа: ');

readln (x,y,z);

Rezultat:=Max3(x,y,z);

Rezultat:=Rezultat+Max3(2,-4.5,12.54);

Rezultat:=Rezultat+Max3(abs(x),abs(y),abs(z));

writeln ('Результат -> ',Rezultat:8:2);

Readkey;

End.

 

 

№ 437. Дано дійсні числа u та v. Визначити значення: z = f(u,v) + f (u+v,uv) + f(u2,v2) + f(0.1,0.1)

Де

Program Example_437;

Uses crt; {Підключення бібліотеки}

Function F(x,y:real; var Rez:real):boolean;

Begin

if (x=0) and (y=0)

then F:=false

else

begin

F:=true;

Rez:=(x+y)/(x*x+x*y+y*y)+x/(1+sqr(y))+y/(1+sqr(x));

end;

End;

Var u,v,R:real;

Solution:Boolean;

Begin

Clrscr;

writeln('введіть два числа: ');

readln(u,v);

Solution:=F(u,v,R)+F(u+v,u*v,R)+

F(sqr(u),sqr(v),R)+F(0.1,0.1,R);

if F(u,v) = false

then writeln('Помилкові вхідні дані.')

else writeln('Результат обчислень -> ',R:8:2);

Readkey;

End.

 

№ 452.Дано координати вершин двох трикутників. Визначити, який з них має більшу площу.

 

Program Example_452;

Uses crt; {Підключення бібліотеки}

{Обчислення довжини відрізка з координатами кінців (a,b) та (c,d)}

Function Len (a,b,c,d:real):real;

Begin

Len:=sqrt(sqr(a-b)+sqr(c-d));

End;

Function Input(var x1,y1,x2,y2,x3,y3:real):boolean;

Var a,b,c:real;

Begin

writeln ('Введіть координати першої вершини:');

readln (x1,y1);

writeln ('Введіть координати другої вершини:');

readln (x2,y2);

writeln ('Введіть координати третьої вершини:');

readln (x3,y3);

a:=Len(x1,y1,x2,y2);

b:=Len(x1,y1,x3,y3);

c:=Len(x3,y3,x2,y2);

if (a>=b+c) or (c>=a+b) or (b>=a+c)

then

begin

Len:=False;

writeln ('Помилка! Повторіть введення:');

end

else Len:=True;

End;

Function S (a,b,c:real):real;

Function P (x,y,z:real):real;

Begin

P:=x+y+z;

End;

Var PP:real;

Begin

PP:=P(x,y,z)/2;

S:=sqrt(PP*(PP-a)*(PP-b)*(PP-c));

End;

Var x11,y11,x12,y12,x13,y13:real;

x21,y21,x22,y22,x23,y23:real;

S1,S2:real;

Flag:Boolean;

Begin

clrscr;

repeat

writeln ('Перший трикутник:');

Flag:=Input(x11,y11,x12,y12,x13,y13);

until Flag;

repeat

writeln ('Другий трикутник:');

Flag:=Input(x21,y21,x22,y22,x23,y23);

until Flag;

S1:=S(x11,y11,x12,y12,x13,y13);

S2:=S(x21,y21,x22,y22,x23,y23);

if S1>S2

then

begin

writeln ('Більшу площу має перший трикутник.');

writeln ('Його площа дорівнює -> ',S1:8:2);

end

else

if S2>S1

then

begin

writeln ('Більшу площу має другий трикутник.');

writeln ('Його площа дорівнює -> ',S2:8:2);

end

else

begin

writeln ('Трикутники мають однакову площу.');

writeln ('Їх площа дорівнює -> ',S1:8:2);

end;

readkey;

End.

 

№ 440. Використовуючи підпрограму обчислення факторіалу, розробити програму обчислення суми факторіалів усіх цілих чисел від 1 до 10.

 

Program Example_440;

Uses crt; {Підключення бібліотеки}

Function Factorial (n:integer):longint;

Begin

if n=0

then Factorial:=1

else Factorial:=Factorial(n-1)*n;

End;

Var Rez:longint;

i:byte;

Begin

Clrscr;

Rez:=0;

For i:=1 to 10 do

begin

Rez:=Rez+Factorial(i);

end;

writeln('Rezultat -> ',Rez);

Readkey;

End.

 

№ 495. Знайти найбільший спільний дільник двох натуральних чисел n та m за алгоритмом Евкліда:

Program Example_495;

Uses crt; {Підключення бібліотеки}

Function Evklid (n,m:integer):integer;

begin

if n=m

then Evklid:=n

else

if n>m

then Evklid:=Evklid(n-m,m)

else Evklid:=Evklid(n,m-n);

end;

Var x,y:integer;

Begin

Clrscr;

writeln ('Введіть два числа: ');

readln (x,y);

writeln ('НОД -> ',Evklid(abs(x),abs(y)));

Readkey;

End.

 

№ 498. Обчислити значення функції Аккермана для двох невід'ємних цілих чисел n та m, де:

 

 

Program Example_498;

Uses crt; {Підключення бібліотеки}

Function A(n,m:word):word;

Begin

if n=0

then A:=m+1

else

if (n<>0) and (m=0)

then A:=A(n-1,1)

else A:=A(n-1,A(n,m-1));

End;

Var x,y:word;

Begin

Clrscr;

writeln ('введіть два числа: ');

readln (x,y);

writeln ('Результат обчислень -> ',A(x,y));

Readkey;

End.

 

№ 500. Обчислити кількість комбінацій з n різних елементів по m, тобто кількість неупорядкованих підмножин з m елементів, що належать заданій множині з n елементів, скориставшись залежністю:

 

Program Example_500;

Uses crt; {Підключення бібліотеки}

Function C (n,m:word):longint;

Begin

if ((m=0) and (n>0)) or ((m=n) and (n>=0))

then C:=1

else

if (m>n) and (n>=0)

then C:=0

else C:=C(n-1,m-1)+C(n-1,m);

End;

Var x,y:word;

Begin

clrscr;

writeln ('Введіть два числа: ');

readln(x,y);

writeln ('Кількість комбінацій з ',x,' по',y,' -> ',C(x,y));

readkey;

End.

 

№383. У даному тексті всі послідовності крапок замінити на одну крапку.

 

Program Example_383;

Uses crt;

Var i:word; {i - змінна циклу}

St:string; {St - даний текст}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (St);

i:=1;

While i<=length(St) do

Begin

While St[i]='.' do Delete(St,i,1);

Insert('.',St,i);

i:=i+1;

End;

Writeln ('Результуючий рядок: ');

Writeln (St);

Readkey; {Затримка зображення на екрані}

End.

 

№384(2). Дано деякий текст, у якому є хоча б одна кома. Визначити порядковий номер останньої коми в тексті.

 

Program Example_384_2;

Uses crt;

Var i:byte; {i - змінна циклу}

St:string; {St - даний текст}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln(St);

i:=length(St);

while St[i]<>',' do i:=i-1;

Writeln ('Номер позиції останньої коми в тексті ',i);

Readkey; {Затримка зображення на екрані}

End.

 

№386. Дано деякий текст. Створити новий текст, який утворено із даного читанням з кінця до початку.

 

Program Example_386;

Uses crt;

Var i:byte; {i - змінна циклу}

St,Rez:string; {St - даний текст, Rez -

результуючий (перегорнутий)

рядок}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (St);

Rez:=''; {Очищення рядка}

For i:=length(St) downto 1 do

Rez:= Rez+St[i];

Writeln ('Результуючий рядок: ');

Writeln (St);

Readkey; {Затримка зображення на екрані}

End.

 

№387. Перевірити, чи однаково читається дане слово зліва направо і навпаки.

 

Program Example_387;

Var i:byte; {i - змінна циклу}

St,Rez:string; {St - даний текст, Rez -

результуючий (перегорнутий)

рядок}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (St);

Rez:=''; {Очищення рядка}

For i:=length(St) downto 1 do

Rez:= Rez+St[i]; {Перегортання рядка}

If Rez = St

Then Writeln ('Слово являється паліндромом.')

Else Writeln ('Слово не являється паліндромом.');

Readkey; {Затримка зображення на екрані}

End.

 

 

№389(2). Визначити, скільки разів у даному тексті зустрічається послідовність символів "абв".

 

Program Example_389;

Var i:byte; {i - змінна циклу}

St:string; {St - даний текст}

Count:byte; {Count - лічильник

послідовностей}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (St);

Count:=0; {Початкове значення лічильника}

For i:=1 to length(St)-3 do

If Copy (St,i,3) = 'абв'

Then count:=count+1;

Writeln ('Кількість шуканих послідовностей: ',count);

Readkey; {Затримка зображення на екрані}

End.

 

№394. Нехай дано формулу. Визначити коректність формули щодо кількості відкритих та закритих дужок. Вважається, що закриті дужки не стоять перед відкритими. Якщо дужки у формулі відсутні - повідомити про це.

 

Program Example_394;

Var i:byte; {i - змінна циклу}

St:string; {St - даний текст}

count_left, count_right:byte;

{count_left - лічильник кількості

лівих дужок, count_right -

лічильник кількості правих дужок}

Begin

Clrscr;

Write ('Введіть формулу: ');

Readln(St);

Count_left:=0; {Початкове значення лічильника}

Count_right:=0;

For i:=1 to length(St) do

Begin

If St[i] = '('

Then count_left:=count_left+1;

If St[i] = ')'

Then count_right:=count_right+1;

End;

Writeln ('Кількість лівих дужок: ',count_left);

Writeln ('Кількість правих дужок: ',count_right);

If (count_left=0) or (count_right=0)

Then writeln ('Формула не має дужок.')

Else

Begin

If count_left = count_right

then Writeln ('Формула коректна.')

else writeln ('Формула не коректна.');

end;

Readkey; {Затримка зображення на екрані}

End.

 

 

№397. Нехай дано текст S та значення символьних змінних x та y. Із тексту вилучити всі символи, що збігаються з x і повторити двічі всі символи, що збігаються з y.

 

Program Example_397;

Var i:byte; {i - змінна циклу}

S:string; {S - даний текст}

x,y:char; {x,y - шукані символи}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (S);

Write ('Введіть шукані символи: ');

Readln (x,y);

For i:=1 to length(S) do

Begin

If S[i] = x

Then delete(S,i,1);

If S[i] = ')'

Then insert(y,S,i);

End;

Writeln ('Результуючий рядок після зміни: ',S);

Readkey; {Затримка зображення на екрані}

End.

 

 

№401. Розробити програму-шифрувальник тексту, що замінює кожну його літеру наступною по порядку в абетці. Останню літеру абетки необхідно замінити першою.

Program Example_401;

Var i:byte; {i - змінна циклу}

S:string; {S - даний текст}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (S);

For i:=1 to length(S) do

Begin

If (S[i]>=65) and (S[i]<90) or

(S[i]>=97) and (S[i]<122) or

(S[i]>=128) and (S[i]<159) or

(S[i]>=160) and (S[i]<=175) or

(S[i]>=224) and (S[i]<245) or

Then S[i]:=chr(ord(S[i]+1);

If (S[i] = 'Z') or (S[i] = 'z')

Then S[i]:=chr(ord(S[i])-25);

If (S[i] = 'Я')

Then S[і]:='А';

If (S[i] = 'я')

Then S[і]:='а';

End;

Writeln ('Результуючий рядок після зміни: ',S);

Readkey; {Затримка зображення на екрані}

End.

 

№406(3). Дано деякий текст. Групи символів, які розділені пробілами (одним або кількома) та не містять всередині себе пробілів, називатимемо словами. Вважатимемо, що текст завжди починається зі слова. Визначити кількість слів, у яких перша та остання літера однакові.

 

Program Example_406;

Var i:byte; {i - змінна циклу}

S,Slovo:string; {S - даний текст, Slovo -

вирізане з тексту слово}

count:byte; {count - лічильник шуканих

слів}

Begin

Clrscr;

Write ('Введіть текст: ');

Readln (S);

S:=' '+S+' '; {Дописування проміжку перед

першим словом та після

останнього}

Count:=0; {Початкове значення лічильника}

i:=1; {Початок перегляду рядка}

while i<=length(S)-1 do

Begin

If (S[i]=' ') and (S[i+1]<>' ')

Then

Begin

Slovo:=''; {Очищення рядка для

зберігання чергового слова}

While (S[i+1]<>' ') do

Begin

Slovo:=Slovo+S[i+1];

i:=i+1;

End;

If Slovo[1] = Slovo[length(Slovo)]

Then count:=count+1;

End;

i:=i+1;

End;

Writeln ('Кількість шуканих слів: ',count);

Readkey; {Затримка зображення на екрані}

End.

№311(1). Дано одновимірний масив цілих чисел А[i], де i = 1,2,…n. Вивести елементи масиву у зворотному порядку.

Program Example_311_1;

Uses crt;

Var N,i:word; {N - кількість елементів масиву, i -

змінна циклу}

А:array [1..100] of longint; {A - заданий масив}

Begin

Clrscr;

Write ('Введіть кількість елементів масиву (<100): ');

Readln(N);

For i:=1 to N do

Begin

A[i]:=random(300); {Заповнення масиву

випадковими числами}

Write(А[i]:5); {Виведення масиву на екран

для контролю правильності

роботи програми}

End;

Writeln; {Переведення курсору на наступний

рядок}

For i:=N downto 1 do

Begin

Write (A[i]:5);

End;

Readkey; {Затримка зображення на екрані}

End.

 

 

№311(2). Дано одновимірний масив цілих чисел А[i], де i = 1,2,…n. Вивести елементи масиву з парними індексами.

 

Program Example_311_2;

Uses crt;

Var N,i: word; {N - кількість елементів масиву, i -

змінна циклу}

А: array [1..100] of longint; {A - заданий масив}

Begin

Clrscr;

Write ('Введіть кількість елементів масиву (<100): ');

Readln (N);

For i:=1 to N do

Begin

A[i]:=random(300); {Заповнення масиву

випадковими числами}

Write(А[i]:5); {Виведення масиву на екран

для контролю правильності

роботи програми}

End;

Writeln; {Переведення курсору на наступний

рядок}

i:=2;

while i<=N do

Begin

Write(A[i]:5);

i:=i+2; {Змінна циклу змінюється на 2, щоб

вибрати тільки парні елементи}

End;

Readkey; {Затримка зображення на екрані}

End.

 

 

№300. Барон Мюнхаузен, вийшовши на екологічно чисте полювання, зарядив свою рушницю кісточками вишень. Після того як він вдало влучив поміж роги оленям, в яких влучило відповідно k1, k2, …, kn кісточок, у них на головах виросли чудові молоді вишеньки. Скільки саджанців зміг подарувати барон Мюнхаузен садівникам-дослідникам?

 

Program Example_300;

Uses crt;

Var N:word; {N - кількість оленів, тобто

елементів масиву, у яких влучив

Мюнхаузен}

K:array[1..100] of longint; {K - зарезервований

масив для зберігання кількості

кісточок, що влучили в оленів}

i,Sum:longint; {i - змінна циклу, Sum - загальна

кількість кісточок, що влучили в

оленів}

Begin

Randomize; {Ця процедура запускається з метою

зробити числа генератора

випадкових чисел ще більш

"випадковими"}

Clrscr;

Sum:=0; {На початку роботи програми Мюнхаузен

ще ні в кого не влучив}

Write ('Введіть кількість оленів, в яких влучив

Мюнхаузен (<=100): ');

Readln(N);

For i:=1 to N do

Begin

K[i]:=random(50)+20; {Заповнення масиву

випадковими числами в

діапазоні від 20 до 70}

Write(K[i]:5); {Виведення масиву на екран

для контролю правильності

роботи програми}

Sum:=Sum+K[i];

End;

Writeln; {Переведення курсору на новий

рядок}

Writeln ('Кількість нових саджанців ',Sum);

Readkey; {Затримка зображення на екрані}

End.

 

№302. Середню групу дитячого садочка вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видна з-за паркану, якщо зріст хлопчиків задається у сантиметрах від'ємними числами, а дівчаток - додатними у вигляді цілих значень a1, a2, …, an? Крім того, у всіх дівчаток на голівках зав'язані бантики заввишки 10 см, а висота паркану H см.

 

Program Example_302;

Uses crt;

Var N,H:word; {N - кількість дітей в дитсадочку,

Н - висота паркану}

А:array[1..100] of longint; {А - зарезервований

масив для зберігання зростів

дітей}

i,Count_girl,Count_boy:longint;

{i - змінна циклу, Count_girl -

кількість дівчаток, Count_boy -

кількість хлопців}

Begin

Randomize;

Clrscr;

Count_girl:=0;

Count_boy:=0;

Write ('Введіть висоту паркану: ');

Readln(H);

Write ('Введіть кількість дітей в дитсадочку: ');

Readln(N);

For i:=1 to N do

Begin

A[i]:=random(300)-150; {Заповнення масиву

випадковими числами в

діапазоні від -150 до +150}

Write(А[i]:5); {Виведення масиву на екран

для контролю правильності

роботи програми}

if (A[I]<0) and (abs(A[I])>H)

then Count_Boy:=Count_Boy+1;

if (A[I]>0) and (A[I]+10>H)

then Count_Girl:=Count_Girl+1;

End;

Write ('Кількість хлопчиків, що видна з-за паркану ');

Writeln (Count_Boy);

Write ('Кількість дівчаток, що видна з-за паркану,);

writelnCount_girl);

Readkey; {Затримка зображення на екрані}

End.

 

№309. Дано натуральне число А. Складіть програму, що представляє його у вигляді многочлена. Наприклад,

123 ==>1 * 10^2 + 2 * 10^1 + 3*10^0.

 

Program Example_309;

Uses crt;

Var N,i,Count:longint; {N - задане ціле число, i -

змінна циклу, Count - кількість

цифр в числі}

Cifra:array [1..10] of byte; {Cifra - масив для

зберігання цифр числа}

Begin

Clrscr;

Count:=0;

Write ('Введіть ціле число: ');

Readln (N);

While N>0 do

Begin

Cifra[i]:=N mod 10;

N:=N div 10;

Count:=Count+1;

End;

Write('N = ');

For i:=N downto 1 do

Begin

Write(Cifra[i],'*10^',i-1);

If i>1

Then write(' + '); {Якщо доданок не останній,

то до нього дописується

знак "+"}

End;

Readkey; {Затримка зображення на екрані}

End.

 

 

№312. Дано дійсні числа a1951, a1952, …, a2000 - кількість опадів (в мм), що випали у місті за останні 50 років минулого століття. Обчислити середню кількість опадів за цей період і щорічне відхилення від середнього значення.

 

Program Example_312;

Uses crt;

Var N,i:longint; {N - кількість елементів масиву, i

- змінна циклу}

A:array[1951..2000] of real; {A - масив для

зберігання кількості

опадів у відповідному році}

B:array[1951..2000] of real; {B - масив для

зберігання відхилення від

середнього значення}

Begin

Randomize;

Clrscr;

Sum:=0;

For i:=1951 to 2000 do

Begin

A[i]:=random(500)/7; {Заповнення масиву

випадковими дійсними числами}

Write(A[i]:8:2); {Виведення масиву на екран

для контролю правильності

роботи програми}

Sum:=Sum+K[i];

End;

Sum:=Sum/50; {Знаходження середньої кількості

опадів за рік}

Writeln;

Writeln ('Щорічні відхилення від середньої кількості опадів за період 1951 - 2000 р.р.');

For i:=1951 to 2000 do

Begin

B[i]:=Sum - A[i]; {Знаходження щорічного

відхилення}

Write(B[i]:8:2); {Виведення результатів на

екран}

End;

Readkey; {Затримка зображення на екрані}

End.

 

 

№315 (1). Дано натуральне число n та цілі числа a1, a2, … an і b1, b2, …, bn. Визначити значення c1, c2, …, cn, якщо ci = ai + bi.

 

Program Example_315_1;

Uses crt;

Const N=100;

Type

Masiv = array[1..N] of integer;

Var A,B,C:Masiv; {A,B - масиви для зберігання

вхідних даних, С - вихідний

масив}

i:byte; {і - змінна циклу}

Begin

Randomize;

Clrscr;

For i:=1 to N do

Begin

A[i]:=random(200); {Заповнення масиву

випадковими цілими числами}

Write(A[i]:4); {Виведення масиву на екран

для контролю правильності

роботи програми}

End;

Writeln;

For i:=1 to N do

Begin

B[i]:=random(200);

Write(B[i]:4);

End;

Writeln;

For i:=1 to N-1 do

Begin

C[i]:=a[i]+b[i];

write(c[i]:4);

End;

Readkey; {Затримка зображення на екрані}

End.

 

№318 (1). Дано дійсні числа a1, a2, …, a30, b1, b2, …, b30. Обчислити

(a1 + b30)(a2 + b29)…(a30 + b1).

Program Example_318_1;

Uses crt;

Var A,B: array[1..30] of real;

{A,B - масиви для зберігання вхідних даних}

i:byte; {і - змінна циклу}

Rez:real; {Rez - результат обчислень}

Begin

Randomize;

Clrscr;

Writeln ('Масив А:');

For i:=1 to 30 do

Begin

A[i]:=random(200)/7-random*15;

Write(A[i]:8:2);

End;

Writeln ('Масив В:');

For i:=1 to 30 do

Begin

B[i]:=random*200-random*100;

Write(B[i]:8:2);

End;

Writeln;

Rez:=1;

{Початкове значення дорівнює 1, тому що результат

являється накопиченням добутку}

For i:=1 to 30 do

Begin

Rez:=Rez*(A[i]+B[31-i]);

End;

Writeln ('Результат обчислень = ',Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

№318 (4). Дано дійсні числа a1, a2, …, a30, b1, b2, …, b30. Обчислити

 

 

Program Example_318_4;

Uses crt;

Var A,B:array[1..30] of real;

{A,B - масиви для зберігання вхідних даних}

i:byte; {і - змінна циклу}

R1,R2:real; {R1 - чисельник дробу, R2 -

знаменник дробу}

Rez:real; {Rez - результат обчислень}

Begin

Randomize;

Clrscr;

Writeln ('Масив А:');

For i:=1 to 30 do

Begin

A[i]:=random(200)/7-random*15;

Write(A[i]:8:2);

End;

Writeln ('Масив В:');

For i:=1 to 30 do

Begin

B[i]:=random*200-random*100;

Write(B[i]:8:2);

End;

Writeln;

R1:=0;

R2:=0;

{Початкове значення дорівнює 0, тому що результат

являється накопиченням суми}

For i:=1 to 15 do

Begin

R1:=R1 + (A[2*i-1]+B[2*i-1]);

R2:=R2 + (A[2*i]+B[2*i]);

End;

Rez:=R1/R2;

Writeln ('Результат обчислень = ',Rez:8:2);

Readkey; {Затримка зображення на екрані}

End.

 

№343(2). Дано натуральні числа n, m та випадкові дійсні числа, що утворюють таблицю A[i,j], де i = 1,2,…, n; j = 1, 2, …, m. Роздрукувати у рядок елементи, що розташовані в першому стовпчику.

 

Program Example_343_2;

Uses crt;

Const

n = 10;

m = 8;

Var A: array[1..n,1..m] of real;

i,j: integer; {і,j - змінні циклу}

Begin

Randomize; {Ця процедура запускається з метою

зробити числа генератора

випадкових чисел ще більш

"випадковими"}

Clrscr;

For i:=1 to n do

Begin

For j:=1 to m do

begin

A[i,j]:=random*50-random*30;

{Заповнення масиву

випадковими числами}

Write(A[i,j]:8:2); {Виведення масиву на

екран для контролю

правильності роботи програми}

end;

writeln;

End;

Writeln ('Перший стовпчик масиву:');

For i:=1 to n do

begin

Write (A[i,1]:8:2);

end;

Readkey; {Затримка зображення на екрані}

End.

 

№343(5). Дано натуральні числа n, m та випадкові дійсні числа, що утворюють таблицю A[i,j], де i = 1,2,…, n; j = 1, 2, …, m. Роздрукувати у рядок елементи, що розташовані на бічній діагоналі.

 

Program Example_343_5;

Uses crt;

Const

n = 10;

Var A: array[1..n,1..n] of real;

i,j: integer; {і,j - змінні циклу}

Begin

Randomize;

Clrscr;

{Заповнення масиву випадковими числами та виведення

його на екран}

For i:=1 to n do

Begin

For j:=1 to m do

begin

A[i,j]:=random(500)/11-random*30;

Write (A[i,j]:8:2);

end;

writeln;

End;

Readln; {Затримка зображення на екрані}

Writeln ('Бічна діагональ масиву:');

For i:=1 to n do

begin

Write (A[i,n-i+1]:8:2);

end;

Readkey; {Затримка зображення на екрані}

End.

 

№344(2). Дано натуральні числа n, m та матриці цілих чисел Aij, Bij, де i = 1, 2, …, n, j = 1, 2, …,m. Обчислити значення елементів матриці Cij, якщо Cij = Aij (I+j) - Bij(i2+j2).

 

Program Example_344_2;

Uses crt;

Const

n = 8;

m = 15;

Var A,B,C: array[1..n,1..m] of integer;

i,j:word; {і,j - змінні циклу}

Begin

Randomize;

Clrscr;

Writeln ('Масив А:');

For i:=1 to n do

Begin

For j:=1 to m do

begin

A[i,j]:=random(50)-random(20);

Write (A[i,j]:5);

end;

writeln;

End;

Writeln ('Масив В:');

For i:=1 to n do

Begin

For j:=1 to m do

begin

B[i,j]:=random(120)-random(80);

Write (B[i,j]:5);

end;

writeln;

End;

Writeln ('Результуючий масив С:');

For i:=1 to n do

Begin

For j:=1 to m do

begin

С[i,j]:=A