Лінійні алгоритми

Обчислення вартості покупки, що складається з декількох зошитів
program zoshit;

uses crt;var a,  //зошити
b,//к?льк?сть зошит?в
c,// сума зошит?в
d,//ол?вц?
s,//к?льк?сть обкладинок 
v,//сума обкладинок
n :real;//обща варт?сь

BEGIN
write('BecTu BaPTicTb zoshita');
read(a);
write('BecTu kilkist zoshita');
read(b);
c:=(a*b);
write('BecTu BaPTicTb obkladenki');
read(d);
write('BecTu kilkist obkladenok');
read(s);
v:=(d*s);
n:=(c+v);
Writeln(n:1:3);
readln;
END.
..................
Перевірка
Вхід:3;4;3;4
Вивід:24
.................

2

Складіть програму обчислення площі поверхні паралелепіпеда 

program Plosha_paralelepipeda;

uses crt;

Var a,b,c,S:word;

BEGIN

Writeln('Bedit 1 chislo');

Readln(a);

writeln('Bedit 2 chislo');

readln(b);

writeln('Bedit 3 chislo');

readln(c);

S:=2*(a*b+b*c+a*c);

WRiteln('Plosha',s);

readln

END.
.................

Перевірка

Вхід: 3,4,5

Вихід:94
.................

3

Складіть програму переведення відстані, заданої в кілометрах, у метри

program perevedenya_vidstani;

uses crt;

var a,b,c:word;

BEGIN

b:=1000;

Readln(a);

c:=a*b;

Writeln('Metru=',c);

END.
..........

Перевірка:

Вхід:6 км

Вивід:6000 м
...........

4

Переведення днів в тижні

program Kilkist_dniv;

uses crt;

var n,a,b:byte;

BEGIN

REad(n);

a:= n div 10 ;

b:= n mod 7;

writeln('tizhden-',a,'dniv-',b);

END.

....................

Перевірка

Вхід 15

Вихід тижднів 2 днів 1

..........................

5

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

program Girls;

uses crt;

var n,m:real;

BEGIN

Readln(n,m);

m:=m-(n+n+5);

writeln(m:5:3);

END

....................

Перевірка

Вхід 40 84

Вихід 4

.....................

6

Const a=2; b=10; 
 var x:boolean; 
begin 
  x:=a < b; 
  Writeln(x); 
end. 

7

Const a=TRUE;    b=FALSE; 
Begin 
 writeln(b > a); 
end. 

8

Const X=-2; y=2; 
 Var Z:Boolean; 
Begin 
Z:=sqr(x)-sqr(y)=0; writeln(z); 
end. 

9

Const F=7; D=5; 

 Var Z:Boolean;
 Begin  
Z:=1/F > 1/D;  
writeln(z); 
end. 

10

З’ясуйте, чи може шахова тура за один ход потрапити з клітинки з координатами (x1,y1) у клітинку з координатами (x2,y2). Тура ходить тільки у горизонтальному або вертикальному напрямках.

program Tyra;

uses crt;

Var x1,x2,y1,y2:byte;

BEGIN

write(x1,y1);read(x1,y1);

write(x2,y2);read(x2,y2);

if (x2=x1)or(y2=y1) then writeln('yes')

else writeln('no');

END.

11

Дано A, B, C – сторони трикутника. Чи є цей трикутник рівностороннім

program Truktnuk_rivnostr;

uses crt;

Var a,b,c:byte;

BEGIN

write(a);read(a);

write(b);read(b);

Write(c);read(c);

if (a=b)and(b=c) then writeln('rivnostoronii')

else writeln('ne rivnostoronii');

END.

12

Дано ціле трьохзначне число. Чи всі його цифри однакові

program Odunakovi_Chifru;

uses crt;

var a,b,c,v:integer;

BEGIN

writeln('vedIt tsIle 3-h znachne chislo',a);read(a);

b:=a mod 10;

c:=a mod 100 div 10 ;

v:=a div 100;

if (b=c)and(c=v)and(b=v) then writeln('tsifri odnakovI')

else writeln('tsifri ne odnakovI');

END.

13

З’ясуйте, чи може шаховий кінь за один хід попасти з клітинки з координатами (x1, y1) у клітинку з координатами (x2, y2)

program shahovui_kin;

uses crt;

Var x1,x2,y1,y2:byte;

BEGIN

write('koordinati konya '); read(x1,y1);

write('koordinati klItinki'); read(x2,y2);

if (x2=x1)or(y2=y1) then writeln('yes')

                     else writeln('no');

END.