Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
masimka001
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 25
1

Модуль DOS. Вывести на экран размеры всех файлов, находящихся в текущем каталоге

31.03.2012, 02:02. Просмотров 995. Ответов 1
Метки нет (Все метки)

Вывести на экран размеры всех файлов, находящихся в текущем каталоге, имена которых начинаются на заданную букву.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 02:02
Ответы с готовыми решениями:

Если в текущем каталоге имеется файл, то вывести на экран его содержимое
Напишите программу, которая работает в одном из двух режимов. Если в текущем...

Вывести на экран данные обо всех машинах, не прошедших техосмотр в текущем году
Организовать ввод, хранение в массиве, вывод на экран данных о машинах:...

Модуль DOS - Вывести красным цветом в центре экрана размер файла и дату
Ввести с клавиатуры имя файла; если он существует, вывести красным цветом в...

GRAPH (Файл не мог быть найден в текущем каталоге или в любом из каталогов поиска
Подскажите пожалуйста как применить модуль GRAPH на Паскале,А то у меня Паскаль...

.Вывести на экран значение функции y=sin(x)/2, при x находящихся в промежутке от xn до xk с шагом не равным 1
1.Вывести на экран значение функции y=sin(x)/2, при x находящихся в промежутке...

1
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,948
31.03.2012, 13:00 2
Лучший ответ Сообщение было отмечено masimka001 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt,dos;
var name:string;
    c:char;
    f:file;
    sch:Searchrec;
    size:longint;
    k:byte;
begin
clrscr;
writeln('Введите первую букву файла:');
readln(c);
clrscr;
FindFirst('*.*',Anyfile,sch);
k:=0;
if DosError=0 then
repeat
  name:=sch.name;
  size:=sch.size;
  if name[1]= c then
   begin
    writeln(name,'  ',size/1024:0:2,' кбт');
    k:=1;
   end;
  FindNext(sch)
until DosError<>0;
if k=0 then write('Файлов на букву ',c,' нет');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 13:00

Типизированные файлы/Модуль Graph/Модуль DOS
Всем доброго время суток! Народ, помогите, пожалуйста!!! У меня не получается...

Вывести на экран первые 2 строки всех файлов с раcширением 'root' в текущем каталоге
Вывести на экран первые 2 сторки всех файлов с роcширением 'root' в поточном...

Вывести на экран имя файла, имеющего наименьшую длину среди файлов, расположенных в текущем каталоге
Здравствуйте, Не знаю, как написать эту программу. Единственное что я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru