1)Есть программа, нужно прикрутить меню и чтобы оно работало относительно программы.
Структура меню:
1.Работа с целыми числами
2.Работа с логическими значениями
3.Работа с символьными строками
4.Работа со здвигами
2)| Код |
writeln('primer1 или primer2 ',primer1 or primer2);
writeln('primer1 и primer2',primer1 and primer2);
writeln('не primer1',not primer1);
writeln('не primer2',not primer2);
writeln('не primer1 или primer2',not primer1 or primer2);
writeln('primer1 или не primer2',primer1 or not primer2);
writeln('primer1 или не primer2',not primer1 or not primer2);
writeln('primer1 и не primer2',primer1 and not primer2);
writeln('не primer1 и primer2',not primer1 and primer2);
writeln('не primer1 и not primer2',not primer1 and not primer2);
|
Нужно немного преобразовать вывод. (в 2 стобца и 10 строчек). пробовал через writeln рисовать, но получается криво.
| Код |
program lab3;
uses crt;
const
ci=23;
cr=12.34;
primer1=true;
primer2=false;
cc1='A';
cs1='Петя';
cs2='Маша';
var
d,m:integer;
i,j,k:integer;
vb1,vb2:boolean;
str1:string[30];
begin
clrscr;
textcolor(red);
textbackground(15);
writeln('Работа с целыми числами');
textcolor(black);
writeln('ci=',ci,' cr=',cr:9);
i:=ci mod 3;
j:=ci div 2;
writeln('i=',i,' j=',j,' j/i=',j/i:9);
readln;
textcolor(red);
writeln('Работа с логическими значениями');
{primer1:=ci>cr;
primer2:=cs1<cs2;}textcolor(yellow);
writeln('primer1= ',primer1);
writeln('primer2= ',primer2);
readln;
textcolor(black);
writeln('primer1 или primer2 ',primer1 or primer2);
writeln('primer1 и primer2',primer1 and primer2);
writeln('не primer1',not primer1);
writeln('не primer2',not primer2);
writeln('не primer1 или primer2',not primer1 or primer2);
writeln('primer1 или не primer2',primer1 or not primer2);
writeln('primer1 или не primer2',not primer1 or not primer2);
writeln('primer1 и не primer2',primer1 and not primer2);
writeln('не primer1 и primer2',not primer1 and primer2);
writeln('не primer1 и not primer2',not primer1 and not primer2);
readln;
textcolor(red);
writeln('Работа с символьными строками'); textcolor(black);
writeln('Исходные данные:',#10#13,'cc1=',cc1,'cs1=',cs1,'cs2=',cs2);
str1:=cc1+''+cs1+'+'+cs2+'= Дружба';
writeln('Результат:',#10#13,'str1=',str1);
writeln('str1:=cc1+""+cs1+"+"+cs2+"=Дружба"=',#10#13,cc1+''+cs1+'+'+cs2+'=Дружба');
writeln('Press Enter...');
readln;
clrscr;
writeln('Работа со здвигами');
writeln(#10#13,'');
for k:=1 to 15 do
begin
j:=16384;
write('k',k:2,'=');
for i:=15 downto 1 do
begin
if k and j=j then
write('1') else write('0');
j:=j shr 1;
end;
writeln;
end;
writeln('Repeat until keypressed');
repeat until keypressed;
end.
|
Заранее спасибо! |