Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 19.10.2011
Сообщений: 9
1

Вычислить суммарный размер файлов в килобайтах и средний размер файла

11.11.2011, 10:50. Просмотров 1984. Ответов 2
Метки нет (Все метки)

Нужно составить программу с помощью которой с клавиатуры вводятся размер 6 файлов в байтах(от 100 до 2000) и вычисляет суммарный размер файлов в килобайтах и средний размер файла
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2011, 10:50
Ответы с готовыми решениями:

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

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

Суммарный размер файлов
Скрипт, который находит суммарный размер всех файлов указанного типа в указанной папке. Вывод...

Вводится с клавиатуры размер файла байтах,определить и вывести на экран значение в килобайтах?
Вводится с клавиатуры размер файла байтах,определить и вывести на экран значение в килобайтах?

2
Полярный
475 / 447 / 158
Регистрация: 11.09.2011
Сообщений: 1,156
11.11.2011, 11:17 2
Лучший ответ Сообщение было отмечено igorok48 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
 a: array[1..6] of integer;
begin
For i:= 1 to 6 do
begin
  Read(a[i]);
  sum:= sum + a[i];
end;
Writeln(sum div 1000);
Writeln(sum div 6);
readkey;
clrscr;
end.
Добавлено через 12 минут
Цитата Сообщение от dimcoder Посмотреть сообщение
Writeln(sum div 1000);
А точнее:
C++
1
Writeln(sum div 1024);
0
Модератор
62183 / 46490 / 32057
Регистрация: 18.05.2008
Сообщений: 112,397
11.11.2011, 11:22 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var  a: array[1..6] of integer;
     sum,i:integer;
begin
clrscr;
sum:=0;
For i:= 1 to 6 do
 begin
  repeat
  write('Размер ',i,' файла в байтах от 100 до 2000 ');
  Readln(a[i]);
  until(a[i]>=100)and(a[i]<=2000);
  sum:= sum + a[i];
end;
Writeln('Суммарный размер в килобайтах=',sum/1024:0:2);
Writeln('Средний размер файла в килобайтах=',sum/(6*1024):0:2);
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2011, 11:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Суммарный размер файлов на всех дисках
Суммарный размер файлов на всех дисках. Буду очень благодарен!

Вывести суммарный размер в байтах файлов каталога
Написать командный сценарий для интерпретатора bash, который выводил бы суммарный размер в байтах...

NTFS, вывести суммарный размер файлов в заданном каталоге
Помогите реализовать пример Вывести суммарный размер файлов в заданном каталоге

Найти суммарный размер всех файлов указанного типа на указанном диске
Скрипт, который находит суммарный размер всех файлов указанного типа на указанном диске.


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

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

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