Алгоритм нахождения периметра
1) Вводим a и b
2) Решаем по формуле P=a+b
3) Выводим Р
4) Конец
1. Убрать ; после program
2. war заменить на var
3. Не нужны строки writeln('Введите число d'); readln(d); - это не ошибка, а просто мусор
4. Вместо p= должно быть p:=
5. Вместо z=sqrt a*b-5.1; должно быть z:=sqrt(a*b-5.1);
6. Вместо R= должно быть R:=
7. Вместо writeln('вывести число'); должен быть организован вывод R, например, writeln('R=',R);
8. Вместо readlns; должно быть readln, точка с запятой перед end необязательна.
Ну, для того, чтобы сравнить эти 2 значение. Нужно обратиться непосредственно к словарю.
Чем отличаются данные от программы?
<span><u>Данные</u> могут обрабатываться человеком, которому принадлежат сами данные.
</span><u>Программа </u>Управление компонентами вычислительной системы и формирование среды для функционирования прикладных программ берёт на себя системное программное обеспечение<span>, наиболее важной составляющей которого является </span>операционная система<span>. То есть все делает компьютер.)
</span><span>Общее.
</span>Скорее всего, что у данных есть 2 типа - двоичные и текстовые. Ну, а так как программа часть компьютера, то эти типы и ей принадлежат.)
Двоичные данные обрабатываются только специализированным программным обеспечением<span>, знающим их структуру, все остальные программы передают данные без изменений.
</span>Ну, и.
С точки зрения программиста, данные — это часть программы, совокупность значений определённых ячеек памяти, преобразование которых осуществляет код. С точки зрения компилятора, процессора, операционной системы, это совокупность ячеек памяти, обладающих определёнными свойствами (возможность чтения и записи ), невозможность исполнения).
Если, что-то не так, то заранее извини.)
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
F=93,75 Кбайт=93,75*1024*8 бит =768 000 бит
H=24 КГц=24 000 Гц
t = 768 000:24 000:8= 4 секунды
