Маша очень любит петь у костра. И вот летом её пение решили записать на диск. Проводилась стерео запись (двухканальная) с 16 битным разрешением и с частотой дискретизации 48 кГц после того как записали все песни был получен файл размером 4125 Мбайт. Сжатие данных решили не проводить. Найдите сколько времени в часах надо затратить чтобы все машины песни. ответ запишите целым числом округлив по математическим правилам
Запись 5 строк в файл }
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программа работает, и выводит '
+'данный текст, чтобы доказать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 четвертая');
writeln(outfile, 'Пятая строка');
CloseFile(outfile);
end;
// вывод на экран точнее в мемо или лист бокс
procedure TForm1.Button2Click(Sender: TObject);
begin
// выводим в мемо
Memo1.Lines.LoadFromFile('outfile.txt');
// либо в лист бокс как тебе лучше
ListBox1.Items.LoadFromFile('outfile.txt');
end;
// кнопка для закрытия
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
// событие onClose
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin
CloseAction:= caFree;
end
else begin
CloseAction:= caNone;
end;
end;
ЗДЕСЬ!
outfile.txt - это ваш файл(может создаваться автоматически
Объяснение:
// Внимание! Если программа не работает, обновите версию!
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var c:char;
var s:='';
for var i:=1 to 100 do begin
Read(c); s+=c;
end;
s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.
Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э