Kulikov1065
?>

Паскаль исправьте данный код под условие задачи, данные не записываются в файл. Также нужно через // после команд написать что они делают. -- var f:file of integer; a, mn, mx, i, n:integer; begin assign(f, 'file.txt'); rewrite(f); write('Сколько компонент ввести в файл? n='); readln(n); writeln('Введите ', n, ' целых чисел:'); for i:=1 to n do begin readln(a); write(f, a); end; writeln('Содержание файла:'); reset(f); seek(f, 0); read(f, a); mn:=a; mx:=a; write(a, ' '); for i:=1 to filesize(f)-1 do begin seek(f, i); read(f, a); if a> mx then mx:=a else if a write(a, ' '); end; writeln; writeln('Макс.=', mx, ' Мин.=', mn); close(f); readln end. -- Условие задачи: Создать файл действительных случайных чисел. Найти наибольший и наименьший элементы и дописать в файл.

Информатика

Ответы

zurabghiendzhoian886

ответ: 40

Объяснение:

1. Вычислим объем файла:

Объем файла = (кол-во пикселей) * (кол-во бит на пиксель)

Кол-во бит на пиксель для палитры из 65 636 цветов равно 16

( 2^n >= 65536 )

Объем файла в КБ:

(кол-во пикселей) * (кол-во бит на пиксель) / 8 / 1024:

1024 * 768 * 16 / 8 / 1024 = 1536

2. Определим пропускную канала:

1536 / 48 = 32 КБ/сек

3. Вычислим объем второго файла:

Кол-во бит на пиксель для палитры из 256 цветов - 8.

Объем файла в КБ: 1280 * 1024 * 8 / 8 / 1024 = 1280

Время передачи этого файла:

1280 / 32 = 40 секунд

Vladimirovna

1-

2 В Греции, в Римской империи, в средневековой Европе не было никаких проблем с тем, что сейчас называется «интеллектуальной собственностью». Картины писали месяцами, обычно на стенах (фрески, мозаика). Книги переписывали целыми монастырями, причем рынок книг был настолько мал и настолько закрыт, что авторы при всем желании не смогли бы определить тираж своих работ. Впрочем, авторы книг того времени обычно умирали мученической смертью и не оставляли после себя наследников. Так что проблема продаж никого особенно не волновала. Ситуация изменилась, как только появилось первое тиражное искусство — я имею в виду литературу и печатный станок. Книгопечатание породило пиратство. Поначалу с явлением боролись стандартными методами из средневековой цензуры (все книги и так проходили еретик-контроль). Однако постепенно издатели и авторы добились смягчения цензуры, а вместо лицензирования и контроля создали совершенно новую концепцию авторских прав.

3 пираты это те кто не соблюдают авторское право. Плагиат выражается в публикации под своим именем чужого произведения, а также в заимствовании фрагментов чужих произведений без указания источника заимствования. Обязательный признак плагиата — присвоение авторства, так как неправомерное использование, опубликование, копирование и т. п. произведения, охраняемого авторским правом, само по себе не плагиат, а другой вид нарушения авторского права, часто называемый «пиратством». «Пиратство» становится плагиатом при неправомерном использовании результатов интеллектуального труда и присвоении публикующим лицом авторства.

4 оно называется авторское свидетельство    

5 В нынешнем значении в европейских языках слово «плагиат» стали употреблять в XVII веке.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль исправьте данный код под условие задачи, данные не записываются в файл. Также нужно через // после команд написать что они делают. -- var f:file of integer; a, mn, mx, i, n:integer; begin assign(f, 'file.txt'); rewrite(f); write('Сколько компонент ввести в файл? n='); readln(n); writeln('Введите ', n, ' целых чисел:'); for i:=1 to n do begin readln(a); write(f, a); end; writeln('Содержание файла:'); reset(f); seek(f, 0); read(f, a); mn:=a; mx:=a; write(a, ' '); for i:=1 to filesize(f)-1 do begin seek(f, i); read(f, a); if a> mx then mx:=a else if a write(a, ' '); end; writeln; writeln('Макс.=', mx, ' Мин.=', mn); close(f); readln end. -- Условие задачи: Создать файл действительных случайных чисел. Найти наибольший и наименьший элементы и дописать в файл.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Vasileva
shtankosoyuz1629
Ulianev77
andy74rus36
Рафаэль633
Ольга1915
Скворцов
sargisyan77
Курнев-Анастасия359
Умоляю не понимаю как делать заранее
svetegal
gilmore886173
Alekseevna
alfakurs
Руслан1360
clubgarag701