Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
<span> Она представляет собой два листа гибкого поляризованного </span>материала, между которыми находится слой жидкокристаллического раствора. Прикосновение к экрану во время работы может сместить жидкость, она придет в движение.
Природа жидких кристаллов такова, что они находятся в переходном состоянии между твердым и жидким. У молекул вещества в таком виде сохранена кристаллическая структура, но в тоже время они обладают текучестью.
<span>Жидкие кристаллы, применяемые в матрицах, прошли </span>долгий<span> путь совершенства. В ноутбуках применяют активную матрицу - вершину эволюции жидкокристаллической материи. Ее производят по технологии TFT (Thin Film Transistor – англ. тонкопленочный транзистор). В портативных компьютерах используют именно такой вид матрицы.</span>
Все матрицы современных ноутбуков разделяются на три группы. Отличаются они расположением кристаллов друг относительно друга. Это влияет на прохождение света и обуславливает основные характеристик базовой части ноутбука.
Первой изобрели технологию, называнную TN (Twisted Nematic – англ. скрученные нематические). Кристаллы такой матрицы организованы по типу скручивающейся спирали. Эта технология не подходит для точной передачи цвета и в первозданном виде не используется. Контрастность и время отклика тоже далеки от идеала. Вертикальные углы обзора TN-матриц настолько несовершенные, что даже минимальное отклонение ведет к полному изменению цвета пикселя.
Следом появилась усовершенствованная матричная технология - TN+Film. TN-матрицу покрыли специальной пленкой, которая делает угол обзора шире. По горизонтали угол обзора обычной TN матрицы - только 90 градусов, тогда как улучшенный вариант - 140 градусов. Но по вертикали ситуация почти не изменилась.
<span>Возникла необходимость создать более совершенную технологию. Ее предложила компания Hitachi. Технология ISP (In-Plane Switching – англ. </span>переключение<span> на плоскости), или SuperTFT, позволяет создавать матрицы с углом обзора 170 градусов, как по вертикали, так и по горизонтали. Их особенность в том, что кристаллы располагаются параллельно друг другу. Яркость и контрастность мониторов у ноутбуков с такой матрицей доходит до 300:1.<u /></span><span>
</span>
Вводы и выводы бывают нескольких "видов". Есть простой, к примеру, и с переводом строки. Они различаются тем, как мы будем читать. read(тут должна быть переменная, которую вы считываете). Тут считывается что-то, и затем можно дальше продолжать работать. А readln(тут должна быть переменная, которую вы считываете) уже после считывания переходит на следующую строку. Можно так же подключить файл. Это происходит посредством команд. assign(название текстовой переменной, затем через запятую тут должно быть название файла или путь к нему в кавычках). Затем надо сделать reset(название переменной, с которй связан был ввод); Это простые примеры. Теперь вывод. Тут в принципе, то же самое. write(переменная или текст в кавычках) просто выводит после места, где мы на вводе\выводе остановились, пишет то, что нужно. А есть writeln(). он делает то же самое, затем переходит на следующую строку. Обьясним в примерах. Различие write и writeln
Есть два куска программы.
a:=10;
b:=20;
write(a);
write(b);
И второй.
a:=10;
b:=20;
writeln(a);
writeln(b);
Они различаются лишь четырьмя буквами, но вывод первой будет
1020
А второй
10
20
Что бы, кстати, при первом способе цифры не слипались, можно воспользоваться текстом. Изменим строчку
write(a); на строчку write(a,' '); и тогда вывод будет таким
10 20
Файловый вывод подключается так же. Однако есть различие. Там надо использовать вместо reset - rewrite и все. Ну и естественно, не путаем две переменные ввода и вывода. Вот простые примеры
N=int(input())
if n<7:
print('ребёнок')
elif n<18:
print('ученица')
elif n<50:
print('работающися')
else:
print('пенсионерка')
Держи программу. Вывод сделай сам. Верного ответа я не вижу...
const m = 7;
var
X: array [1..m, 1..m] of integer;
A, i, j: integer;
begin
randomize;
A := 100;
for i := 1 to m do
begin
for j := 1 to m do
begin
X[i, j] := random(20);
write(X[i, j]:6);
end;
writeln;
end;
write('======================');
writeln('======================');
for i := 1 to m do
for j := 1 to m do
if i mod 2 <> 0 then
X[j, i] := A;
for i := 1 to m do
begin
for j := 1 to m do
begin
write(X[i, j]:6);
end;
writeln;
end;
end.