Составьте программу , которая рисует отрезок с координатами концов (100,,200), если введено число 1 , и рисует окружность с центром (200,100) и радиусом 50, если введено число 2.
Uses crt,graph; var n:integer; procedure init; var gd,gm:integer; begin gd:=vga; gm:=vgahi; initgraph (gd,gm,''); end; procedure error; begin closegraph; writeln ('error!'); end; begin write ('Number: '); readln (n); init; if graphresult=0 then begin if n=1 then line(100,100,100,200) else if n=2 then circle(200,100,50); end else error; end.
При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0. При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0
При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0. При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0
var n:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('Number: ');
readln (n);
init;
if graphresult=0 then
begin
if n=1 then line(100,100,100,200) else
if n=2 then circle(200,100,50);
end else error;
end.