Const n=3;
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin for j:=1 to n do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
begin k:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=k; end;
writeln('Измененный массив');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
71 82 65
87 98 79
50 74 84
Измененный массив
50 74 84
87 98 79
71 82 65
Информационный объем аудиофайла I=t*n*i*k, где t- время звучания (с.), n- частота дискретизации (Гц), i- глубина кодирования звука (бит), k- количество каналов записи.
I=10*48000*16*2= 15360000 бит = 1875 Кбайт
Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.
У тебя:
<span>readln; <- к тому же не указал что надо писать.
</span><span>if t then <- что это такое? Ошибка.
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
Должно быть:
</span><span>program Pr1;
const
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name, t: string;
Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln(t);
t := t.ToLower;
if t = 'да' then
begin
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
end
else
writeln('Спасибо за использование!');
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
end.</span>
Е-0, П-1, Н-2, Ч-3, Ь-4. Сначала находим двоичные коды чисел(переводим эти числа из десятичной системы счисления в двоичную. Там, где после перевода остается только одна цифра, впереди приписываем ноль). Таким образом, получим:
Е-00, П-01, Н-10, Ч-11, Ь-100.
Закодируем слово ПЕЧЕНЬЕ в двоичном коде: 01 00 11 00 10 100 00(2). Переведем это число в восьмеричную систему счисления любым известным нам способом, получим 23120(8).
Приложение.......................................................