1. Электронный словарь - база данных "слово-слово", где одно слово является значением, переводом или определением другого.
2. Электронный словарь способен переводить лишь отдельные слова, а с-ма может разпознавать стойкие выражения, синтаксис и пунктуацию, что дает более верные результаты.
3. Текст для распознавания - это изображение (в виде пикселей), которые нужно составить с типографическим знаком, принимая во внимание кодировку и прочие особенности отдельных языков.
4. Поскольку текст находится в виде изображения, а не символов, и требует ручного перенабора или распознавания с помощью ПО.
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
1.
var
Hero:string;
begin
writeln('Введите имя вашего любимого киногероя: ');
readln(Hero);
writeln('Ваш любимый киногерой: ', Hero, '!');
end.
2.
k:=3; m:=k+1; → m:=3+1; // m = 4;
k:=m*m+5; → k:= 4*4+5; //k = 21;
k:= k-10; → k:= 21-10; // k = 11;
Нам надо было найти значение, хранящееся в переменной m: m = 4.
//Pascal ABC.NET v3.0 сборка 1111
Const
n=5;
Var
ar:array[1..n] of integer;
i,k:integer;
begin;
randomize;
k:=0;
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if not odd(ar[i]) then inc(k);
end;
writeln;
write('Res=',k);
end.
