Система задач и упражнений по языку программирования Pascal. Часть 1 - 29 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

29
(5). var
x:char;y:string;
begin
x=’a’; x:=x+x;
y:=3*x;
end.
(6). var x,y:string;
beggin
x:=’ток’;
y:=-x;
end.
(7). var w,q:boolean;
begin
w:=’true’;
q:=’фальшь’;
end;
(8). var
x:real;y:integre;
s:boolean;
begin x:=5; y:=5;
x:=x+y; y:=x-y;
s:=y; end.
(9). var x:y:real;
begin x:=2,3; y:=1\x;
writelne(y:5:10);
end.
(10). Var x,y:real;
Begin read(x);
y:=x mod 3;
end.
(11). var s,p:integer;
bgin readln(x);
y:=2*x+123;
writeln(y:2:3);end.
(12). vat
x,y,z,a,x,w:real;
beging x:=2e+1.2;
y:=2x/5;
wrietln(xy);end,
20.Определите типы величин x, y и z, входящих в каждую серию команд.
(1). Readln(x,y);
z:=x+y;
y:=2*x+z;
(2). Readln(x,y);
z:=x+y;
z:=x+z;
(3). readln(x,y);
z:=x/y;
y:=x*z;
(4). readln(x,y);
z:=x+y;
z:=x-z;
(5). readln(x,y);
z:=x+y+t;
y:=z;
21.Найдите значение y после исполнения серии команд:
(1) x:=1; y:=2;
x:=x+y;
y:=x-y;
x:=x*x;
y:=x;
(2) x:=1; y:=2; z:=3;
x:=y;
y:=z;
z:=x+y;
y:=z;
(3) x:= -1; y:=2;
y:=x*y;
y:=y*y;
x:=y-1;
y:=x-y;
(4) x:=2; y:=3;
x:=y-x;
x:=x*x;
y:=x;
y:=y-x;
(5) x:=0; y:=1; z:=2;
y:=x-1;
z:=y;
x:=y;
y:=x+y+z;
(6) x:= -1; y:=2; z:=3;
x:=y+1;
y:=y*x;
z:=y;
y:=y*z;
(7) y:=4;
y:=y+1;
y:=y*4;
y:=20-y;
y:=12-y;
y:=y*y-100;
(8) y:=2;
y:=y+4;
y:=y-4*y;
y:=y+y/3;
y:=y+22;
y:=y*y;
(9) y:=2;
y:=y-y*3;
y:=y-2;
y:=y-y/3;
y:=y+24;
y:=y/2;
(10) y:=6;
y:=y*y;
y:=y-12;
y:=y+y/2;
y:=y-16;
y:=y/5;
(11) y:=0;
y:=y+7;
y:=y*y-4;
y:=y+3;
y:=y/8+2;
y:=y/4;
(12) y:= -1;
y:=y*y;
y:=y+5;
y:=y-2;
y:=y*y-11;
y:=y*2;
(13) y:='12';
y:='34'+y;
y:=y+'56';
y:=y+'0';
(14) y:='09';
y:=y+'87';
y:=y+y;
y:='-1'+y;
(15) y:='1';
y:=y+y+'0';
y:='01'+y;
y:='0'+y;
(16) y:=2;
y:='1'+y;
(17) y:='10';
y:=y+'1';
(18) y:='3.';
y:=y+'4.';

Страницы