Решите на языке pascal, применяя цикл с предусловием дано целое положительное число n. найти наименьшее целое положительное число k, квадрат которого превосходит n. функцию извлечения квадратного корня не использовать.
Var lf,rt,n,k: integer; begin write('N = '); readln(n); lf:=1; rt:=n; while (lf+1<rt) do begin k:=(lf+rt) shr 1; if k*k>n then rt:=k else lf:=k; end; writeln('k = ',rt); end.
1.Какое устройство компьютера моделирует мышление человека? -Процессор
2.Действия над исходной информацией (фактами) в соответствии с некоторыми правилами - это -обработка информации
3.Из предложенных сообщений выбрать правило -при умножении простых дробей их числители и знаменатели перемножаются
4.Для кого, вероятнее всего, будет информативным следующее сообщение: «Программа - это алгоритм, записанный на языке программирования»? -начинающий программист
5.Где хранится выполняемая в данный момент программа и обрабатываемые ею данные? -в оперативной памяти
6.Какое устройство компьютера осуществляет процесс дискретизации звука? -звуковая карта
7.Информативность сообщения, принимаемого человеком, определяется -наличием новых знаний и понятностью
8.Вместо многоточий вставьте соответствующие понятия: «Каталог содержит информацию о ..., хранящихся в...» A) файлах, внешней памяти
9.Указать команду(ы), при выполнении которой(ых) выделенный фрагмент попадает в буфер обмена В) вырезать и копировать
10.Какие из перечисленных действий относятся к форматированию текста? -установка режима выравнивания
11.В прикладное программное обеспечение входят: В) текстовые редакторы
12.Операционная система - это -комплекс программ, организующих управление работой компьютера и его взаимодействие с пользователем
13.Предложены команды 5Сделать диск А текущим. 2Создать каталог TOWN 3Создать каталог STREET 1Создать файл Home.txt 4Войти в созданный каталог Расположить пронумерованные команды так, чтобы был получен алгоритм, с которого на пустой дискете создается файл с полным именем A:\TOWN\STREET\Home.txt Б) 5,2,3,1
14.Для хранения текста требуется 84000 бита. Сколько страниц займет этот текст, если на странице размещается 30 строк по 70 символов в строке? Для кодирования текста используется таблица кодировки, состоящая из 256 символов. 84000/(log(256)/log(2))/30/70 = 5
15.Книга состоит из 64 страниц. На каждой странице 256 символов. Какой объем информации содержится в книге, если используется алфавит из 32 символов? А) 81920 байтов Б) 40 Кбайт В)10 Кбайт Г) 16 Кбайт Д) 64 Кбайт 64*256*(log(32)/log(2)) /8/1024 = 10
16.Сколько символов содержит сообщение, записанное с символьного алфавита, если его объем составил 1/16 часть Мегабайта? (1/16)*1024*1024*8/(log(16)/log(2)) = 131072
17.Сколько памяти занимает графическое изображение, если его размер 40x60 и для кодирования цвета пикселя используется двоичный код из 32-х битов. А) 2400 байтов Б) 2100 байтов В) 960 байтов Г) 9600 байтов Д) 12000 байтов 40*60*32/8 = 9600
18.Текст занимает 0,25 Кбайт памяти. Сколько символов содержит этот текст, если используется таблица кодировки, состоящая из 256 символов? 0.25*1024*8/(log(256)/log(2)) = 256
19.Сколько битов информации содержится в сообщении объемом четверть Килобайта? 1/4*1024*8 = 2048
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var f: file of integer; var t:integer; Assign(f,'input.dat'); Rewrite(f); for var j:=1 to 5 do begin for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end; for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end end; f.Close; end.
2. Программа, которую требовалось написать
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var f,g: file of integer; var a:=new integer[20]; var t:integer; Assign(f,'input.dat'); Reset(f); Assign(g,'output.dat'); Rewrite(g); while not f.Eof do begin for var i:=0 to 19 do Read(f,a[i]); a:=a[10:15]+a[0:5]+a[15:20]+a[5:10]; for var i:=0 to 19 do Write(g,a[i]) end; f.Close; g.Seek(0); while not g.Eof do begin Read(g,t); Print(t) end; g.Close end.
var n,k,i: integer;
begin
write('Введите n: ');
readln(n);
k:=0;
while k*k<n+1 do k:=k+1;
writeln(k);
end.