Умовний оператор 1 страница

End.

Begin

Begin

End.

Begin

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

readln(a, alpha);

r: = alpha * pi / 180; переводимо градуси в радіани

b: = a*cos(r)/sin(r);

c: = sqrt(a*a+b*b);

s: = a * b / 2;

writeln(‘Сторони =’, a:6:2, b:6:2, c:6:2);

writeln(‘Площаs = ‘, s:7:2); readln

2. Обчислити периметр (р) і площу трикутника (s) за трьома відомими сторонами a, b, c. Програма повинна перевіряти правильність вхідних даних, тобто, чи існує трикутник.

program Trykutnyk;

label 222;

var a, b, c, p, s, piv, z: real;

222: write (‘Введіть значення сторін:’); readln (a, b, c);

p: = a + b + c;

piv: = p / 2;

z: = piv*(piv-a)*(piv-b)*(piv-c);

z, piv – додаткові змінні, тут використано формулу Герона

if z>0 then

begi n

s: = sqrt(z);

writeln (‘Периметр =’, p:8:2, ‘ s:8:2)

end;

if z<=0 then

writeln (‘Трикутник не існує. Введіть інші дані’);

goto 222

end; readln

3. Якщо на одну шальку терезів посадити Даринку, яка важить n кілограмів, і Наталку, яка важить на 5 кілограмів менше, а на іншу насипати m кілограмів цукерків, які набагато важчі за дівчаток, то скільки кілограмів цукерків доведеться з’їсти нещасним, щоб шальки терезів врівноважились?

program №1;

var n,m,s,a: real;

begin

writeln(‘Задайте вагу Даринки в кілограмах’);

readln(n);

writeln(‘Задайте вагу цукерків в кілограмах’);

readln(m);

s:=n+n-5;

a:=m-s;

writeln(a:1:1);

readln;

end.

4. Невдаха-учень Сашко сів виконувати домашне завдання і просидів за столом 2 години. З них x хвилин він чухав потилицю і дивився у вікно, y хвилин шукав у письмовому столі гумку, щоб стерти у підручнику з англійської мови карикатуру на свого товариша, на малювання якої він витратив перед цим z хвилин. Весь останній час Сашко перекладав англійські слова. Скільки слів він встиг перекласти, якщо на переклад одного слова у нього йшло 5 хвилин?

program №2;

var x,y,z,h: integer;

begin

writeln(‘Вкажіть, скільки хвилин Сашко чухав потилицю’);

readln(x);

writeln(‘Вкажіть, скільки хвилин Сашко шукав гумку’);

readln(y);

writeln(‘Вкажіть, скільки хвилин Сашко витратив на малювання

карикатури’);

readln(z);

h:=2*60;

h:=h-x-y-z;

h:=h div 5;

writeln(‘В решті-решт Сашко переклав ‘,h:3,’ слів’);

end.

5. Петрусь задумав число і нікому його не назвав. Друзі спіймали його і примусили подвоїти задумане число, а потім додати до нього 5. І тільки після того, як вони пообіцяли Петрусеві благодійну допомогу на контрольній з математики, він зізнався, що вийшло число n. Визначте, яке число задумав і приховав від своїх друзів Петрусь?

program №3;

var n: intenger;

begin

writeln(‘Яке число вийшло у Петруся?’);

readln(n);

n:=n-5;

n:=n div 2;

writeln(‘Петрусь задумав число – ‘,n);

readln;

end.

6. На таксі Дульці сидять х бліх, а на вівчарці Ладі – у. Після того, як вівчарка і такса зустрілись і поговорили одна з одною, 12 Дусьчиних блох перейшли на Ладу, а 17 Ладиних – на Дуську. Скільки блох тепер сидить на Ладі, а скільки на Дульці?

program №4;

var x,y,z: integer;

begin

writeln(‘Вкажіть, скільки блох сиділо на Дульці:’);

readln(x);

writeln(‘Вкажіть, скільки блох сиділо на Ладі:’);

readln(y);

x:=x+5;

y:=y-5;

writeln(‘На Дульці ‘,x:5,’, a на Ладі ‘,y:5);

readln;

end.

7. В череві вівчарки Лади х сосисок, а в череві такси Дуськи – у. Кому дісталося більше сосисок і на скільки?

program №13;

var x,y,e: integer;

begin

writeln(‘Вкажіть, яка кількість сосисок знаходиться у череві Лади:’);

readln(x);

writeln(‘Вкажіть. Яка кількість сосисок знаходиться у череві Дуськи:’);

readln(y);

if x>y then

begin

e:=x-y;

writeln(‘Ладі дісталося на ‘,e:0,’ сосисок більше’);

end

else

if x<y then

begsn

e:=y-x;

writeln(‘Дусьці дісталося на ‘,e:0,’ сосисок

більше’);

end

else

writeln(‘Ладі іДусьці дісталася однакова кількість

сосисок’);

readln;

end.

8. Чебурашка вирішив купити килими, щоб застелити кімнату, в якій він мешкав разом з Геною. Розмірами їхньої прямокутної кімнати виявилися цілі числа a I b. Коли Чебурашка запитав у магазині, які розміри квадратних килимів, що були у продажі, то продавець назвав йому ціле число с. Яку кількість килимів необхідно закупити Чебурашці, щоб накрити максимальну площу кімнати? Килими не можна накладати та підгортати. Визначити, яка площа кімнати буде не накритою килимами. Передбачити ситуацію, коли розміри килима перевищують розміри кімнати.

program №14;

var a,d,c,h,d,k,s: integer;

begin

writeln(‘Задайте розміри прямокутної кімнати:’);

readln(a,b);

writeln(‘Задайте сторону квадратного килима:’);

readln(c);

if (a<c) or (b<c) then

writeln(‘Розміри килима завеликі для даної кімнати’)

else

begin

h:=a div c;

d:=b div c;

k:=d*h;

s:=a*b-sqr(c)*k;

writeln(‘Ненакрита площа – ‘,s:5,’,килимів – ‘,k:3);

end

readln

end.

9. Знайти максимальне число из трьох.

program z4;

uses crt;

var a,b,c,max: integer;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (b<c) then max:=c;

write('max=',max);

readln;

end.

10 Знайти значення виразу 1*1+2*2+...+n*n

program z1;

var n,s,i: integer;

begin

write('n = ');

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

writeln('s = ',s);

readln;

end.

11 Дано дві таблиці. Скласти з них 3 таблицю впорядковану по зрост.

program z3;

uses crt;

var a: array [1..10] of integer;

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

c: array [1..30] of integer;

n,m,k,l,i,j,min: integer;

begin

clrscr;

write('введ.к-ть.ел.таб.а n=');readln(n);

write('введ.к-ть.ел.таб.b m=');readln(m);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to m do

begin

write('b[',i,']=');readln(b[i]);

end;

k:=n+m;{кол.эл.таб.с}

(*заносим ел.таб.а в таб.с*)

for i:=1 to n do c[i]:=a[i];

(*заносим ел.таб.в в таб.с*)

for i:=1 to m do c[i+n]:=b[i];

(*впорядкуєм таб.с[1..k] по зрост*)

for i:=1 to k-1 do

begin

l:=i;{номер мін.}min:=c[i];

for j:=i+1 to k do

if c[j]<min then

begin

min:=c[j];l:=j;

end;

c[l]:=c[i];{міняєм містями 1-й і мін.ел.}

c[i]:=min;

end;

for i:=1 to k do writeln('Ответ:c[',i,']=',c[i]);

readln;

end.

12 Знайти найбільше з чотирьох чисел. }

program z5;

uses crt;

var a,b,c,d,max,max1,max2: real;

procedure bol2(aa,bb: real; var maxmax: real);

begin

if aa>bb then maxmax:=aa

else maxmax:=bb;

end;

begin

clrscr;

write('введіть a,b,c,d через пробіл ');

readln(a,b,c,d);

bol2(a,b,max1);

bol2(c,d,max2);

bol2(max1,max2,max);

writeln('max=',max);

readln;

end.

13Знайти К-ть букв "а" в тексті.

program z6;

uses crt;

var d: string[30];

n,i: integer;

begin

write('введіть текст ');

readln(d);

n:=0;

for i:=1 to length(d) do

if d[i]='а' then n:=n+1;

write('В тексті а=',n);

readln;

end.

14 Скласти програму визначення середнього арифметичного таблиці а

program z7;

uses crt;

var a: array [1..10] of integer;

s: real;

sum,n,i: integer;

begin

clrscr;

write('n=');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

sum:=0;

for i:=1 to n do

sum:=sum+a[i];

s:=sum/n;

writeln('ср ариф= ',s);

readln;

end.

15 Записати програму піднесення числа а в степінь n

program z8;

uses crt;

var a,n,i,p: integer;

begin

clrscr;

write('n=');readln(n);

write('a=');readln(a);

p:=1;

for i:=1 to n do p:=p*a;

write('p=',p);

readln;

end.

16. Скласти програму обчислення факторіалу числа n.

Наприклад: 5!=1*2*3*4*5

7!=1*2*3*4*5*6*7 }

program z9;

uses crt;

var f,n,i: integer;

begin

clrscr;

write('n=');readln(n);

f:=1;

for i:=1 to n do f:=f*i;

write('f=',f);

readln;

end.

17. Скласти програму перевірки чи є в тексті буква "s" }

program z11;

uses crt;

var t: string;

i: integer;

ot: boolean;

begin

clrscr;

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

for i:=1 to length(t) do

if t[i]='s' then ot:=true;

if ot=true then write('да')

else write('нет');

readln;

end.

18. Дано речення скласти програму, яка розміщує слова в порядку зменшення довжини слів}

program z15;

uses crt;

type slov = array [1..10] of string;

var p,b: string;

s: slov;

i,j,l: integer;

q: boolean;

procedure maxdl(ii,jj: integer;ss: slov; var ll: integer);

var t:integer;m:string;

begin

m:=ss[ii]; { считает max(t) }

ll:=ii; { l-номер max }

for t:=ii+1 to jj do

if length(m)<length(ss[t]) then

begin

m:=ss[t];

ll:=t;

end;

end;

begin

clrscr;

write('текст p=');readln(p);

j:=1;

for i:=1 to length(p) do

begin

b:=p[i];

if b=' ' then j:=j+1

else s[j]:=s[j]+b;{ склеивание слова и заносим в таб }

end;

b:='';

for i:=1 to j do

begin

maxdl(i,j,s,l); { находим номер мах элм }

b:=s[i]; { меняем местами мах элм: }

s[i]:=s[l];

s[l]:=b;

end;

for i:=1 to j do write(s[i],' ');

readln;

end.

19 Дана дійсна таблица a[1..n]. Знайти к-ть від’ємних елементів таблиці.

program z16;

uses crt;

var k,n,i: integer;

a: array [1..10] of integer;

begin

clrscr;

write('n = ');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do

if a[i]<0 then inc(k);

write('k = ',k);

readln;

end.

20 Знайти максимальний елемент таблиці а[1..10] }

program z17;

uses crt;

var a: array [1..10] of integer;

max,i,n: integer;

begin

clrscr;

write('n = ');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if a[i]>max then max:=a[i];

write('max = ',max);

readln;

end.

21 Дано координати вершин трикутника ABC A(x1;y1), B(x2;y2), C(x3;y3) Чи є трикутник рівнобедренним }

program z19;

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c: real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

if (a=b)or(a=c)or(b=c) then write('равнобедрений')

else write('не рівнобедрений');

readln;

end.

22. Чи є число b дільником числа a.

program z30;

uses crt;

var a,b: integer;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

if a mod b=0 then write('да є')

else write('ні не є дільником');

readln;

end.

23. Скласти програму знахождення НОД и НОК двух чисел a і b.

program z32;

uses crt;

var a,b,p: real;

nod,nok: real;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

p:=a*b;

while a<>b do

if a>b then a:=a-b

else b:=b-a;

nod:=a;

nok:=p/nod;

writeln('НОД:',a);

write('НОК:',nok);

readln;

end.

24 Скласти програму ров’язку квадратного рівняння.

program z33;

uses crt;

var a,b,c,x1,x2,d: real;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

d:=sqr(b)-4*a*c;

if d>0 then

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln('x1=',x1);

writeln('x2=',x2);

end;

if d=0 then

begin

x1:=(-b)/(2*a);

writeln('x=',x1);

end;

if d<0 then write('коренів нема');

readln;

end.

25. Дано речення, знайти к-ть слів в ньому.

program z38;

uses crt;

var tec: string;

l,i,n: integer;

begin

clrscr;

write('введіть текст:');readln(tec);

l:=length(tec)+1;tec[l]:=' ';

for i:=1 to l do if tec[i]=' 'then n:=n+1;

write('В тексті ',n,' слів');

readln;

end.

26. Дано текст, визначити к-ть слів "кот".

program z39;

uses crt;

var a: string;

i,m,k,n: integer;

begin

clrscr;

write('введіть текст ');readln(a);

k:=0;m:=length(a);

a:=a[m]+' ';

for i:=1 to m do if a[i+2]='кот'then inc(k);

write('В тексті ',k,' слів кот');

readln;

end.

27. Визначити чи є дане слово перевертнем.

program z40;

uses crt;

var a,b,c: string;

i: integer;

begin

clrscr;

write('Введіть слово: ');readln(a);

b:='';

for i:=1 to length(a) do b:=a[i]+b;{ перевертаємо слово }

if a=b then write('перевертень')

else write('не перевертень');

readln;

end.

28 Знайти найменше однозначне число х яке задовольняє умову

x*x*x-x*x=n. }

program z43;

uses crt;

var x,n: integer;

ot: boolean;

begin

clrscr;

write('n = ');readln(n);

ot:=false;

x:=1;

while (x*x*x-x*x<>n) do

begin

inc(x);

if x*x*x-x*x=n then ot:=true;

end;

if ot=false then write('нет')

else write('x=',x);

readln;

end.

29. Дано цілочисельну табл а[1..m].Серед елементоі таблиці є хоча б

один від’ємний. Знайти суму S елементов розміщених

після від’ємного елемента, потім знайти суму простих множників

числа S }

program z7;

uses crt;

var fl,i,m,sum,s,poz,j: integer;

a,b: array [1..60] of integer;

label met,mm;

begin

mm: clrscr;textcolor(11);

write('введіть к-ть елементов таблиці: ');readln(m);

for i:=1 to m do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to m do if a[i]<0 then poz:=i;

if poz=0 then begin

write('Hе знайдений від’ємний елемент!');

readln;goto mm;

end;

for i:=poz+1 to m do sum:=sum+a[i];

b[1]:=2;m:=3;j:=1;fl:=0;

met:while m<=sum do

begin

for i:=2 to m-1 do if m mod i=0 then fl:=1;

if fl=0 then begin

inc(j);b[j]:=m;inc(m);goto met;

end;

fl:=0;inc(m);

end; i:=1;

while sum>1 do if sum mod b[i]=0 then

begin

s:=s+b[i];sum:=sum div b[i];

end

else inc(i);

write('Відповідь: ',s);

readln;

end.

30. Розмістити по краям таблиці нулі.

program z20;

uses crt;

var a: array [1..100,1..100] of integer;

i,j,m,n: integer;

begin

clrscr;

write('к-ть рядків ');readln(m);

write('к-ть стовпців ');readln(n);

for i:=1 to m do

for j:=1 to n do

begin

write('a[',i,',',j,']=');readln(a[i,j]);

end;

for i:=1 to m do a[i,1]:=0;

for j:=1 to n do a[m,j]:=0;

for i:=1 to m do a[i,n]:=0;

for j:=1 to n do a[1,j]:=0;

for j:=1 to n do

begin

writeln(' ');

for i:=1 to m do write(' ',a[i,j]);

end;

readln;

end.

31.Дана лінійна таблица, яка складається з цілих чисел. Визначити чи є в цій таблиці хоч би одне число кратне k.

program z1;

uses crt;

var a: array [1..100] of integer;

i,k,n: integer;

begin

clrscr;

write('введіть к-ть елм таблиці:');readln(n);

write('введіть число:');readln(k);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do if k mod a[i]=0 then write(a[i]);

readln;

end.

32. Знайти всі трицифрові числа, при цілочисельному діленні кожного з яких на 11 одержуємо частку, що дорівнює сумі квадратів цифр числа.

Program NoName;

Var x,y,z:integer;

Begin

For x:=1 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If (100*x+10*y+z) div 11 =sqr(x)+sqr(y)+sqr(z) then

WriteLn(x,y,z)

end.

33. Трицифрове число закінчується цифрою 3. Якщо цю цифру перемістити через два знаки вліво, то нове число буде на 1 більше від потроєного вихідного числа. Знайти це число.

Program NoName;

Var x,y:integer;

Begin

For x:=1 to 9 do

For y:=0 to 9 do

If 10*x+y-10=0 then

WriteLn('Це число ',x,y,'3')

end.

Примітка. ху3 -дане число; 3ху -одержане. Тоді 3ху =3* ху3 +1, тобто 300+10х+у=3(100х+10у+3)=1. Звідси 10х+у-10=0.

34. Знайти усі трицифрові числа, що дорівнюють сумі кубів своїх цифр.

Program zad_3;

Var x,y,z:integer;

Begin

For x:=1 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If 100*x+10*y+z=sqr(x)*x+sqr(y)*y+sqr(z)*z then

WriteLn(x,y,z);

end.

35. Шестицифрове число починається зліва цифрою 1. Якщо цю цифру перенести зі свого місця на останнє місце справа, то утворене число буде втроє більше за вихідне. Знайти вихідне число.

Program zad_4;

Var m,n,x,y,z:integer;

Begin

For m:=1 to 9 do

For n:=0 to 9 do

For x:=0 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If 100000*m+10000*n+1000*x+100*y+10*z+1=3*(100000+10000*m+1000*n+100*x+10*y+z) then

WriteLn('1',m,n,x,y,z);

end.

36. Дане натуральне число n>=10. Написати програму одержання m останніх цифр запису числа n.

Program os_cifri;

Var i,n,m: integer;

Begin

WriteLn('Введіть число n');

ReadLn(n);

WriteLn('введіть m');

ReadLn(m);

WriteLn(' останні ',m,' цифр такі:');

For i:=1 to m do

Begin

WriteLn(n mod 10);

n:=n div 10

end

end.

37. Знайти чотирицифрове число, що дорівнює квадрату числа, вираженого двома останніми цифрами цього чотирицифрового числа.

Program zad_6;

Var p,x,y,z:integer;

Begin

For p:=1 to 9 do

For x:=0 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If 1000*p+100*x+10*y+z=sqr(10*y+z) then

WriteLn(p,x,y,z);

end.

38. Натуральне число називається досконалим, якщо воно дорівнює сумі усіх своїх дільників, за винятком самого себе. Наприклад, 6=1+2+3 – досконале; 8≠1+2+4 – не є досконалим.
Написати програму виведення всіх досконалиї чисел, менших заданого числа n.

Program doskonale;

Var n,i,j,s:integer;

Begin

WriteLn('Введіть n');

ReadLn(n);

WriteLn('Досконалі:');

For i:=2 to n-1 do

Begin

s:=0;

For j:=1 to (i div 2) do

If i mod j=0 then

s:=s+j;

If i=s then

WriteLn(i);

end

end.

39. Знайти чотирицифрові числа, кожне з яких ділиться націло на 11 і сума цифр яких дорівнює 11.

Міркування: pxyz – шукане число; pxyz mod 11=0; p+x+y+z=11.

Program zad_8;

Var p,x,y,z:integer;

Begin

For p:=1 to 9 do

For x:=0 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If (p+x+y+z=11) and ((1000*p+100*x+10*y+z) mod 11=0) then

WriteLn(p,x,y,z);

end.

40. Знайти чотирицифрові числа, які, якщо приписати справа число 400, дають повний квадрат.

Міркування: pxyz – шукане число; pxyz 400 – повний квадрат якогось числа.

Program zad_9;

Var p,x,y,z,i:integer;

Begin

For p:=1 to 9 do

For x:=0 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

Begin

For i:=1000 to 4000 do

If i*i=1000000*p+100000*x+10000*y+1000*z+400 then

WriteLn(p,x,y,z);

end

end.

41. У магазині є тільки монети 2 коп, 5 коп, 10коп. Скількома способами продавець може дати здачу n коп.?

Program NoName;

Var p,n,x,y,z:integer;

Begin

WriteLn('введіть суму здачі');

ReadLn(n);

p:=0;

WriteLn('2':2,'5':3,'10':3,' Всього монет');

WriteLn('_ _ _ _ _ _ _ _ _ _ ');

For x:=0 to (n div 2) do

For y:=0 to (n div 5) do

For z:=0 to (n div 10) do

If 2*x+5*y+10*z=n then

begin

WriteLn(x:2,y:3,z:3,(x+y+z):5);

p:=p+1

end;

WriteLn;

If p=0 then

WriteLn('немає варіантів здачі')

else

WriteLn('Усіх способів ',p);

end.

Примітка. n div 2, n div 5, n div 10 – найбільші кількості монет однієї вартості, якими може бути дана здача.

42. Чи існує таке двоцифрове число, що коли до нього приписати спереду 1, то одержане число було б в 2 рази більше за вихідне?

Program NoName;

Var x,y,k:integer;

Begin

k:=0;

For x:=1 to 9 do

For y:=0 to 9 do

If 100+10*x+y=2*(10*x+y) then

Begin

WriteLn(x,y);

k:=k+1;

end;

If k=0 then

WriteLn('не існує');

end.

43. Чи існує таке двоцифрове число, що коли до нього приписати спереду 1, то одержане число було б в 3 рази більше за вихідне?

Program zad_12;

Var x,y,k:integer;

Begin

k:=0;

For x:=1 to 9 do

For y:=0 to 9 do

If 100+10*x+y=3*(10*x+y) then

Begin

WriteLn(x,y);

k:=k+1

end;

If k=0 then

WriteLn('не існує');

end.

44. У яке двоцифрове число і яку цифру треба вставити посередині запису, щоб одержане число було в 6 раз більше за вихідне?

Program zad_13;

Var x,y,k,i:integer;

Begin

k:=0;

For x:=1 to 9 do

For y:=0 to 9 do

For i:=0 to 9 do

If 100*x+10*i+y=6*(10*x+y) then

Begin

WriteLn('У ', x,y,' цифру ',i);

k:=k+1

end;

If k=0 then

WriteLn('не існує');

end.

Результат виконання:

У 18 цифру 0

45. Знайдіть усі пари двоцифрових чисел, які є дзеркальним відображенням одне одного і сума яких – трьохцифрове число.

Наприклад: 57 і 75; їх сума 132.

Program zad_14;

Var x,y,a,b,c:integer;

Begin

For x:=1 to 9 do

For y:=1 to 9 do

For a:=1 to 9 do

For b:=0 to 9 do

For c:=0 to 9 do

If 10*x+y+10*y+x=100*a+10*b+c then

WriteLn(x,y,' i ',y,x);

end.

46. Знайдіть усі пари двоцифрових чисел, які є дзеркальним відображенням одне одного і різниця яких - число 36.

Наприклад: 37 і 73; їх різниця 36.

Program zad_15;

Var x,y:integer;

Begin

For x:=1 to 9 do

For y:=1 to 9 do

If ((10*x+y)-(10*y+x)=36) or ((10*y+x)-(10*x+y)=36) then

WriteLn(x,y,' i ',y,x);

end.

47. Знайдіть усі чотирицифрові числа, які з обох боків читаються однаково і кратні числу 4.

Наприклад: 4224.

Program zad_16;

Var x,y:integer;

Begin

For x:=1 to 9 do

For y:=0 to 9 do

If (1000*x+100*y+10*y+x) mod 4=0 then

WriteLn(x,y,y,x);

end.

48. Свідок дорожньої пригоди (вчитель математики) розказав: Номер автомобіля чотирицифровий. Остання цифра 1. Сума перших двох цифр дорівнює сумі двох останніх. Число-номер кратне числу 3.

Автомобілі з якими номерами треба буде перевірити міліції?

Program zad_17;

Var x,y,z:integer;

Begin

For x:=0 to 9 do

For y:=0 to 9 do

For z:=0 to 9 do

If ((x+y+z+1) mod 3=0) and (x+y=z+1) then

WriteLn(x,y,z,'1');

Readln;

end.

49. Користувач вводить початкове, кінцеве значення Х та крок. Треба вивести значення аргументу та функції для кожного кроку.
при X = 0, Y:= 1
при X > 0, Y:= F + Ln(X)
при X < 0, Y:= 1 / SQR(X) + Sin(F)
де F:= 16.5 * X + SIN(X * X)

VAR F, P: real; X, Xn, Xk, dX: real; Y: real;BEGIN Writeln ('Введіть початкове X'); Readln (Xn); Writeln ('Введіть кінцеве X'); Readln (Xk); Writeln ('Введіть крок'); Readln (dX); X:= Xn; Writeln (' X Y'); while X <= Xk do Begin F:= 16.5 * X + SIN(X * X); if X = 0 Then Y:= 1 Else Begin if X > 0 Then Y:= F + Ln(X) Else Y:= 1 / SQR(X) + Sin(F); End; Writeln(X, ' ', Y); X:= X + dX; End;END.

50. Користувач вводить число Х, для якого програма повинна вивести значення функції X*SIN(X/2)

VAR X, Y: real;BEGIN Writeln ('Введіть X'); Readln (X); Y:= X * SIN(X/2); Writeln('Y = ', Y);END.

Розділ IV Збірник задач з Turbo Pascal

Розділ 1

Прості програми. Арифметичні вирази

☻1.1. Вивести на екран з точністю два знаки число p.

☻1.2. Вивести на екран з точністю два знаки число е (основа натурального логарифма).

☻1.3. Скласти програму виводу на екран числа, що вводиться з клавіатури. Числу, що виводиться, повинне передувати повідомлення "Ви ввели число ".

☻1.4. Скласти програму виводу на екран числа, що вводиться з клавіатури. Після числа, що виводиться, повинне слідувати повідомлення "- ось яке число Ви ввели".

☻1.5. Вивести на одному рядку числа 1, 13 і 49 з одним пропуском між ними.

☻1.6. Вивести на одному рядку числа 7, 15 і 100 з двома пропусками між ними.

☻1.7. Скласти програму виводу на екран в один рядок трьох будь-яких чисел з двома пропусками між ними.

☻1.8. Скласти програму виводу на екран в один рядок чотирьох будь-яких чисел з одним пропуском між ними.

☻1.9. Вивести на екран числа 50 і 10 одне під іншим.

☻1.10. Вивести на екран числа 5, 10 і 21 одне під іншим.

☻1.11. Скласти програму виводу на екран "стовпчиком" чотирьох будь-яких чисел.

Дата добавления: 2014-11-29