1) С какой команды начинается написание программы на языке Turbo Pascal? 2) В результате вычисление получается целое число в районе 100000. Какой тип данных будете использовать для переменной?
3) Какую операцию будете использовать при целочисленном делении?
4) Запишите функцию для псевдослучайных чисел [0: Х]
5) Запишите выражение в виде логических функций и переменных. «Не А умножается на А И B».
6) Выберите операторы присваивания, которые на ваш взгляд записаны, верно.
а) x:= 4,3+b*123; b) x:=0; с) x:= true; d) x:=y- sin(P/4)+8.1;
7) Какой результат мы увидим на экране, при работе процедур: Write, Writeln, Read, Readln.
a) i:=5; Write (I,I,I);
b) program primer;
var a,b,c,sum:integer;
begin
a:=1; b:=2; c:=55;
Write(a:3); Write(b:3); Write(c:3); Writeln;
Sum:=a+b+c;
Writeln (‘A=’,a);
Writeln (‘B=’,b);
Writeln (‘C=’,c);
Writeln (‘Сумма A+B+C равна ’, sum);
end.
8) Исправьте ошибки: var x,y: real;
begin
x :=0;
y:=1/x;
end.
1. Указание адреса страницы.
2. Передвижение по гиперссылкам.
3. Обращение к поисковой системе (поисковому серверу).
Указание адреса страницы
Это самый быстрый поиска, но его можно использовать только в том случае, если точно известен адрес документа или сайта, где расположен документ.
Не стоит забывать возможность поиска по открытой в окне браузера web-странице (Правка-Найти на этой странице…).
Передвижение по гиперссылкам
Это наименее удобный так как с его можно искать документы, только близкие по смыслу текущему документу.
Обращение к поисковой системе
Пользуясь гипертекстовыми ссылками, можно бесконечно долго путешествовать в информационном пространстве Сети, переходя от одной web-страницы к другой, но если учесть, что в мире созданы многие миллионы web-страниц, то найти на них нужную информацию таким вряд ли удастся.
procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index
2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.
Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5
Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.