Program massiv2;
type
mas = array [1 .. 100] of integer;
var
a: mas;
i, n, min, Max, b: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
end;
Max := a[1]; min := a[1];
for i := 1 to n do
begin
if a[i] > Max then
Max := a[i];
if a[i] < min then
min := a[i];
end;
b := Max - min;
writeln(b);
writeln;
readln;
end.
INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
t$ = MID$(s$, i, 1)
f$(j) = f$(j) + t$
IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
FOR j = 1 TO n
IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
P$ = f$(i)
f$(i) = f$(j)
f$(j) = P$
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT f$(i);
NEXT i<span>
</span>
Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
1)Координатные точки, кривые, прямые.
2) Вектор можно увеличивать сколько душе угодно и он не теряет качества
3)Многие программы, сайты и т.д. не могут прочитать этот формат; также очень сложен при создании
4)В нём больше кода: координаты, дуги, прямые и т.д.
5)На сайтах, на плакатах, на логотипах...
Надеюсь хоть как то помог...
<span>Налить полное ведро в котором умещается 9 литров, перелить из 9л в 5л, в 9-литровом ведре останется 4 литра. Опустошить 5-литровое ведро. перелить в него 4 литра из 9-литрового ведра. налить полное 9-литровое ведро, долить до полна 5-литровое ведро (в котором было 4 л). . получим в 9-литровом ведре - 8литров, в 5-литровом ведре 5 литров. остается опустошить 5-литровое ведро, и наполнить его из 9-литрового ведра.... в котором 8-5=3 литра останется! Так вот =)
</span>
