В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Batanik17
Batanik17
07.05.2023 19:29 •  Информатика

1) С какой команды начинается написание программы на языке Turbo Pascal? 2) В результате вычисление получается целое число в районе 100000. Какой тип данных будете использовать для переменной?

3) Какую операцию будете использовать при целочисленном делении?

4) Запишите функцию для псевдослучайных чисел [0: Х]

5) Запишите выражение в виде логических функций и переменных. «Не А умножается на А И B».

6) Выберите операторы присваивания, которые на ваш взгляд записаны, верно.

а) x:= 4,3+b*123; b) x:=0; с) x:= true; d) x:=y- sin(P/4)+8.1;

7) Какой результат мы увидим на экране, при работе процедур: Write, Writeln, Read, Readln.

a) i:=5; Write (I,I,I);

b) program primer;

var a,b,c,sum:integer;

begin

a:=1; b:=2; c:=55;

Write(a:3); Write(b:3); Write(c:3); Writeln;

Sum:=a+b+c;

Writeln (‘A=’,a);

Writeln (‘B=’,b);

Writeln (‘C=’,c);

Writeln (‘Сумма A+B+C равна ’, sum);

end.

8) Исправьте ошибки: var x,y: real;

begin

x :=0;

y:=1/x;

end.

Показать ответ
Ответ:
kuprianova24012
kuprianova24012
23.05.2020 11:26
Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.
0,0(0 оценок)
Ответ:
takhtarkina
takhtarkina
18.05.2023 06:10

Системное ПО обеспечивает работу компьютера (загрузка ядра, драйверов, проверка портов, синхронизацию устройств и протоколов передачи данных, чтение, передачу данных, осуществляют слежение за устройствами ввода-вывода и реагируют на команды с них и т. д.) . Прикладные программы используют системное ПО, но выполняют действия и функции не влияющие на систему, а имеющие прикладное значение (просмотр и обработка видео, математические вычисления, запись на внешние носители, игры...).

Объяснение:

незнаю проавельный это ответ или нет

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота