4 года назад

Скласти алгоритм обміну значеннями змінних a и b, без використанням додаткової змінної.

Знания

Информатика

1 ответ:

PItStop4 года назад

0 0

begin

var a := 1;

var b := 2;

Println(a, b);//1 2

a := a + b;

b := a - b;

a := a - b;

Print(a, b)//2 1

end.

Читайте также

Паскаль. Создайте процедуру, рисующую квадрат заданной величины по центру окна. Отобразите в графическом окне 1000 точек со случ

dryakhlov2010 [4]

//Pascal ABC.NET 3.1 сборка 1256

uses
GraphABC;

Var
n:integer;

procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;

procedure points(n:integer);
Var
x,y,i:integer;
begin
i:=0;
while i<1000 do
begin
x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
setpixel(x,y,rgb(random(255),random(255),random(255)));
inc(i);
end;
end;

begin
randomize;
square(n);
points(n);
end.

0 0

4 года назад

Срочно нужно решить1.Написать программу деления 2-х чисел с проверкой деления на ноль.2.Написать программу,которая выведет возра

Чернов Сергей [7]

Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите все решить 14 балов информатика

Павел099

1) в 3 раза, так как чтобы закодировать 512 цветов нужно 9 знаков - 9 бит, а на 8 - 3 знака - 3 бит. Путём несложных вычисление 9/3 = 3

2) 128*128 = 16384 точки нужно закодировать. 4 кбайт - 32768 бит. 32768/16385 = 2 бита. А с помощью 2-х бит можно закодировать 4 цвета.

0 0

3 года назад

Расcчитайте объем видеопамяти необходимый для представления одноминутного фильма на экране монитора c пространственным разрешени

SkyFire

При палитре 256 цветов для хранения 1 пикселя необходимо
log(2)256=8 бит=1 байт
Для 1 кадра: 800*600*1 байт
Для фильма длительность 1 секунда: 800*600*16 байт
Для фильма длительностью 1 мин:
800*600*16*60 байт = 800*600*16*60/1024 Кбайт = 450 000 Кбайт ≈
440 Мбайт

0 0

4 года назад

В игре русское лото из мешка случайным образом выбираются бочонки,на каждом из которых написано число от 1 до 90.Напишите програ

dashutka4071993 [50]

Вероятность в первый раз вытащить из 10 бочонков цифру от 5 до 9 равна 5/10=1/2
После этого вероятность вытащить во второй раз цифру от 0 до 3 из оставшихся 9 бочонков равна 4/9.

Умножая вероятности (1/2*4/9=2/9)

Ответ: 2/9.

0 0

4 года назад