Очистка экрана

@Юлия Крамар · Регистрация: 15.02.2013

Author24 — интернет-сервис помощи студентам

Добрый вечер! подскажите,пожалуйста,как будет выглядеть код очистки экрана.
Например,мы запускаем программу,выполняем какие-нибудь действия(например расчеты) и я хочу очистить экран и выполнять дальше расчеты(вызов самой очистки я хочу осуществить с помощью вызова определенного пункта меню.это я сделаю.мне интересно как реализовать саму очистку). Заранее спасибо.

@papaDOS · 09.12.2013, 14:28

Во первых нам нужно подключить модуль Crt для этого нужно написать строку uses Crtl; перед var

Затем использовать в нужном нам месте строку ClrScr; для отчистки экрана.

пример:

Delphi

Program PRIM;
uses CRT;
Begin
WriteLn('1 строка');
WriteLn('2 строка'); 
WriteLn('3 строка'); 
ClrScr;
WriteLn('А куда они делись?=)');   
End.

@j7777777 · 09.12.2013, 14:53

Если использовать пункты меню, то можно так:

Pascal

uses crt;
var ch:char;
begin
repeat
writeln('1. Очистка экрана');
writeln('2. Расчет');
Writeln('Esc - выход');
ch:=readkey;
case ch of
'1':clrscr;
'2': begin writeln(5+5); end;
end;
until ch=#27;
end.

@Юлия Крамар · 09.12.2013, 14:54 **[ТС]**

papaDOS, нет,вы меня не поняли....мне не просто нужно написать clrscr и выполнить очистку при запуске...мне надо реализовать процедуру,чтобы можно было бы очищать во время выполнения программы

Добавлено через 25 секунд
j7777777, спасибо,сейчас попробую

@Puporev · 09.12.2013, 15:58

Если у вас программа состоит из нескольких подпрограмм, которые вызываются из меню,то все они должны начинаться clrscr и заканчиваться readln
а основа меню примерно так

Pascal

repeat
clrscr;
writeln('1.Ââîä');
writeln('2.Ðàñ÷åò 1');
writeln('3.Ðàñ÷åò 2');
writeln('4.Ðàñ÷åò 3');
Writeln('Äðóãîå âûõîä');
readln(ch);
case ch of
'1':vvod;
'2':proc1;
'3':proc2;
'4':proc3;
else exit
end;
until not(ch in ['1'..'4'];

Новые блоги и статьи
Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .

@Юлия Крамар 19 / 2 / 0 Регистрация: 15.02.2013 Сообщений: 149
		1
	Очистка экрана 09.12.2013, 14:19. Показов 31488. Ответов 4 Метки нет (Все метки) Добрый вечер! подскажите,пожалуйста,как будет выглядеть код очистки экрана. Например,мы запускаем программу,выполняем какие-нибудь действия(например расчеты) и я хочу очистить экран и выполнять дальше расчеты(вызов самой очистки я хочу осуществить с помощью вызова определенного пункта меню.это я сделаю.мне интересно как реализовать саму очистку). Заранее спасибо. 0

@Юлия Крамар 19 / 2 / 0 Регистрация: 15.02.2013 Сообщений: 149
	09.12.2013, 14:54 [ТС]	4
	papaDOS, нет,вы меня не поняли....мне не просто нужно написать clrscr и выполнить очистку при запуске...мне надо реализовать процедуру,чтобы можно было бы очищать во время выполнения программы Добавлено через 25 секунд j7777777, спасибо,сейчас попробую 0

	09.12.2013, 15:58