4 года назад

Помогите составить программу в PASCAL!

Всем привет, составил программу для вычисления площадей фигур в Pascal. Всё работает нормально, но есть одна загвоздка, не могу добавить команду для очистки экрана.
Вот программа:
Program Pifagor;
Var S: char;
Function menu: integer;
Var St: integer;
Begin
writeln ('Выберите фигуру площадь которой хотите найти');
writeln ('---------------------------');
writeln ('1 Прямоугольник');
writeln ('---------------------------');
writeln ('2 Равнобедренный треугольник');
writeln ('---------------------------');
writeln ('3 Квадрат');
writeln ('---------------------------');
writeln ('4 Круг');
writeln ('---------------------------');
Readln(St);
menu:=St;
End;
Procedure Spryamogolnik;
var a,b,s:real;
begin
write('Введите высоту: ');
readln(a);
write('Введите ширину: ');
readln(b);
s:=a*b;
writeln('Площадь равна: ',s:5:2);
end;
Procedure Srvnobedrennogotreugolnika;
var a,h,s:real;
begin
cls;
write('Введите основание и высоту труеглольника ');
readln(a,h);
S:=a/2*h;
write('площадь треугольника равна ',S);
end;
Procedure Skvadrat;
var a, s: real;
begin
write('Введите сторону квадрата: ');
readln(a);
s:=a*a;
writeln('Площадь квадрата: ',s:5:2);
end;
Procedure Skruga;
var
r: real;
S: real;

begin
write('Введите радиус круга: ');
readln(r);
S:=3.1415*sqr(r);
writeln('Площадь круга равна ',S);
end;
begin
repeat
case menu of
1:Spryamogolnik;
2:Srvnobedrennogotreugolnika;
3:Skvadrat;
4:Skruga;
end;
Writeln('Продолжить работы? Y/n');
Readln(S);
uNTIL s='n';
Writeln('Завершение работы');
end.
Короче говоря, нужно сделать так, что-бы после того, как выбираешь фигуру S которой хочешь найти, экран очищался. В общем у более опытных программистов прошу помощи

Anastasia Khrapova (Гость) Программирование
3

Программирование: Помогите составить программу в PASCAL!

2 года назад Составить программу вычисления

Помогите составить программу вычисления значений функции под N9, очень прошу: (

manvelik_92@mail.ru (Гость) 1 ответ
3
2 года назад Помогите составить программу в Visual Basic

Помогите cоставить программу, которая на входе должна получать последовательность цифр, после чего программа показывает цифру, порядковый номер которой ввел пользователь.

Игорь45rus (Гость) 1 ответ
3
2 года назад Помогите пожалуйста составить программы к этим задачам:

Помогите пожалуйста составить программы к этим задачам:

1) Создать свой модуль для вычисления логарифма числа и программу,
проверяющую работоспособность модуля: вычисление значений функции
z = (lg x +lg y) / (lg(x-1)), где x, y вводятся с клавиатуры.

2) В модуль из задания 1 добавить функцию вычисления факториала числа.
Составить программу, проверяющую работоспособность модуля: вычисление
значений функции z = (x!+y!) / (lg(x-1)) где x, y вводятся с клавиатуры.
...

ozhezhera@mail.ru (Гость) Нет ответов
3
Ответы (3)
Lenka Kapeliukh ;D (Гость) 4 года назад
3

ну так подключите модуль crt и в нужном месте вставьте команду clrscr;

Пожаловаться
альберт попловскый (Гость) 4 года назад
3

для очистки экрана служит команда ClrScr в модуле Crt

Пожаловаться
Барыкина Наталья (Гость) 4 года назад
3

могу посоветовать очень полезный сайт по паскалю ПаскальГУРУ (вбейте в гугл ПаскальГУРУ) есть много готовых и бесплатных решений

Пожаловаться
Помогите составить программу в PASCAL! (Программирование) - вопросы и ответы на все случаи жизни - справочник Программирование FOR-ASK.RU