Главная Обратная связь

Дисциплины:






Задания для самостоятельного решения



Задание 1.

Что будет выведено на экран в результате работы программы?

Вариант 1.

var

a, b : char;

z : real;

c : boolean;

begin

a := ‘?’;

b := ‘8’;

z := -38.7;

c := true;

Writeln(a, a, b, b);

Writeln(a, a : 2, b : 2);

Writeln(z, z, z : 7 : 3);

Writeln(c, ‘=’, not(c):6);

Writeln(‘a =’, a : 3, a);

end.

 

Вариант 2.

var

x, y : byte;

a, b : boolean;

c : char;

begin

x := 15;

y := 10;

a := true;

b := true;

c := ‘x’;

Writeln(abs(10-15)=5);

Writeln(x, x, x:4, X:2);

Writeln(not(a), b:5);

end.

 

Вариант 3.

var

x, y : char;

c : boolean;

begin

x := ‘*’;

y := ‘z’;

c := false;

Writeln(c, not(c)=not(c));

Writeln(x=y);

Writeln(‘z’, ‘=’, x:2);

end.

 

Вариант 4.

var

a, b : char;

i, j : integer;

begin

a := ‘b’;

b := ‘a’;

i := 100;

j := 99;

Writeln(‘b’, a, a, b);

Writeln(j+1, i);

Writeln(i-1=j);

Writeln(a, i:4, ‘b’, ‘=’, j);

end.

 

Вариант 5.

var

a, b : char;

z : boolean;

f : integer;

begin

a := ‘z’;

b := ‘r’;

z := false;

f := 138;

Writeln(a, b, f, z);

Writeln(a, b:4);

Writeln(f, f, f);

Writeln(f=138, not(z));

end.

 

Вариант 6.

var

a, b : boolean;

i, j : integer;

begin

a := true;

b := true;

i := 115;

j := 551;

Writeln(not(a):8, b);

Writeln(i=j);

Writeln(i, j, i);

Writeln(i:4, j:4);

end.

 

Вариант 7.

var

x, y : byte;

a, b : boolean;

c : char;

begin

x := 15;

y := 10;

a := true;

b := true;

c := ‘x’;

Writeln(x, y, x+y);

Writeln(not(a), b:6);

Writeln(c, ‘=’, c:5);

end.

 

Вариант 8.

var

x, y : char;

a : boolean;

begin

x := ‘?’;

y := ‘z’;

a := false;

Writeln(x, x, x, x);

Writeln(x, x:2, x:3, x);

Writeln(not(a):5);

end.

 

Вариант 9.

var

f : char;

i : integer;

m : boolean;

begin

f := ‘i’;

i := 100;

m := false;

Writeln(f, i);

Writeln(f:4, i:4);

Writeln(m=m, not(m));

Writeln(i+1, f);

end;

 

Вариант 10.

var

j : integer;

f, z : boolean;

begin

j := 168;

f := true;

z := false;

Writeln(z, not(f));

Writeln(j=168);

Writeln(j, j);

Writeln(j, j:5);

end.

 

Вариант 11.

var

g, f : boolean;

j : char;

begin

g := true;

f := false;

j := ‘f’;

Writeln(j, f);

Writeln(f=not(g));

Writeln(j, j, j);

Writeln(j, j:3, j:2);

end.

 

Вариант 12.

var

g, f : boolean;

j : char;

begin

g := true;

f := false;

j := ‘f’;

Writeln(j, f);



Writeln(f=not(g));

Writeln(j, j, j);

Writeln(j, j:3, j:2);

end.

 

Задание 2.

Напишите программу для расчета по двум формулам. Предварительно подготовьте тестовые примеры для второй формулы с помощью калькулятора. Отсутствующие в языке функции выразите через имеющиеся.

 

Вариант 1.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 2.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 3.

,

x, y, z вводятся с клавиатуры.

 

Вариант 4.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 5.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 6.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 7.

,

x>0, y>0 вводятся с клавиатуры.

 

Вариант 8.

,

x, y вводятся с клавиатуры.

 

Вариант 9.

,

x>0, a>0 вводятся с клавиатуры.

 

Вариант 10.

,

x, y, z вводятся с клавиатуры.

 

Вариант 11.

, !!!!!

x, y, z>0 вводятся с клавиатуры.

 

Вариант 12.

,

x>0, y>0 вводятся с клавиатуры.

 

Задание 3.





sdamzavas.net - 2019 год. Все права принадлежат их авторам! В случае нарушение авторского права, обращайтесь по форме обратной связи...