VPF::Нужна помощь в доработке - Форум программистов

mentall

Дата 26.2.2009, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.2.2009

Репутация: нет
Всего: нет

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.

Заранее спасибо!

mentall

Дата 26.2.2009, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.2.2009

Репутация: нет
Всего: нет

Нужно немного преобразовать вывод. (в 2 стобца и 10 строчек). пробовал через writeln рисовать, но получается криво. Это я сделал, а вот меню даже не представляю как.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »