![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
suriv |
![]() ![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: ![]() ![]() ![]() |
Вот,сделал програмку типа калькулятора,ради интереса да и проверить свои силы в паскале.
Так вот что в это программе лишнее или как можно её улучшить: program l;
uses crt;
var
a,b,z:real;
d,r:char;
g:boolean;
begin
clrscr;
highvideo;
writeln(' CALCULATOR ');
write(' by -=[SuRiV]=- ');
delay(2000);
clrscr;
g:=false;
repeat
normvideo;
writeln;
write('‚ўҐ¤ЁвҐ ЇҐаў(r)Ґ зЁб«(r) ');
readln( a );
write('‚ўҐ¤ЁвҐ ўв(r)а(r)Ґ зЁб«(r) ');
readln( b );
write('‚ўҐ¤ЁвҐ § Є ¤Ґ(c)бвўЁп ');
readln(d);
case d of
'+': z:=a+b;
'-': z:=a-b;
'*': z:=a*b;
'/': z:=a/b;
else
g:=true;
write('Ќ ¤(r) Ўл«(r) ўўҐбвЁ § Є ¤Ґ(c)бвўЁп!');
delay(2000);
halt;
end;
writeln('ЋвўҐв:',a:5 :1,d,b:5 :1,' = ',z:5 :2);
write('…йс а §(r)Є(Y/N)');
readln(r);
if r='n' then
begin
write('Љ «мЄг«пв(r)а § ўҐаи Ґв бў(r)о а Ў(r)вг...');
g:=true;
end;
until g;
readln;
end.
:p2: -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 11:17 |