Лабораторная работа №5
Создание многоуровневого списка.
Многоуровневый список может иметь до 9 уровней. Нумерация или маркеры могут быть изменены на любом из уровней.
Выберите команду ФОРМАТ-СПИСОК.
Щелкните ОК.
Введите только текст. Нумерация будет проставляться автоматически.
В Конце набора каждого элемента списка нажимайте клавишу <ENTER>
В результате набранные элементы списка пронумеруются символами самого верхнего уровня. Чтобы выбрать уровень нумерации элемента, нужно:
Выбрать команду ФОРМАТ-СПИСОК.
Если точно такого же списка нет, нужно выделить похожий и нажать кнопку ИЗМЕНИТЬ.
Внести исправления в ФОРМАТЕ НОМЕРА, НУМЕРАЦИИ, НАЧАТЬ С (там, где это нужно). В конце нажать ОК. В результате должен получиться нужный список.
Создание простого нумерованного списка.
Потренируйтесь в создании списков, создав три разных списка, например, имена своих друзей.
1 шаг) Лена
2 шаг) Саша
3 шаг) Коля
4 шаг) Иван.
А теперь создайте свой иерархический список с любым текстом, например, такой: мир разделен на континенты
Европа
Азия
Африка
Австралия
Америка
Южная
Северная
Канада
США
Лабораторная работа №6
Microsoft Word
Создание и использование стилей
Сетевые информационные технологии
1. Локальные сети
• Технические средства
1. Файл-сервер
2. Рабочие станции
• Программное обеспечение
3. Сетевая ОС
2. Глобальные сети
4. Технические средства
5. Хост-компьютер
6. Терминал абонента
7. Линии связи
8. Модемы
9. Шлюзы
• Информационные услуги и ПО
10. Электронная почта
11. Телеконференция
12. WWW
13. Доски объявлений
Лабораторная работа поExcel
Лабораторная работа поAccess
Лабораторная работа поPascal
Задание 1
Даны a, b, k, m.
Определить
program a1;
var a,b,k,m,c,d: real;
begin
writeln ('Введите a,b,k и m');
readln (a,b,k,m);
c:=sqrt(sqr(a-b)/abs(k-m));
d:=sin(pi/6)*sqr(c)-((c*(a-b))/(a*b*k));
writeln('c=',c:0:3);
writeln('d=',d:0:3);
end.
Задание 2
Даны α, β, γ.
Определить
program a2;
var a,b,c,k,y1,y2:real;
begin
writeln ('Введите a,b,c');
readln (a,b,c);
k:=sqr(a)*sqr(b)-a*sqr(b-c);
if k<2 then
y1:=sqr(a)
else
y1:=(a+b)*k;
if k<2 then
y2:=(sqr(k))/(a*b*c)
else
y2:=sqr(a-b);
writeln ('y1=',y1:6:3, ' y2=',y2:6:3, ' k=',k:6:3);
end.
Задание 4
Даны x1, x2, …, x10; l1, l2, …, l10.
const N=10;
var x : array [1..N] of integer;
var z : array [1..N] of real;
var l : array [1..N] of integer;
s: real;
i,Imax: integer;
begin
i:=1;
s:=0;
while i<=N do
begin
write ('x[',i,']=');
read (x[i]);
write ('l[',i,']=');
read (l[i]);
s:=s+(x[i]-l[i]);
i:=i+1;
end;
for i:=1 to N do
z[i]:=s/sqrt(abs(x[i]-l[i]));
Imax:=1;
for i:=2 to N do
if z[i] > z[Imax] then
Imax:=1;
writeln;
writeln('Максимальный элемент z[',Imax,']=', z[Imax]);
end.
Задание 6
Дан массив В1, В2, …, В10.
Заменить Вmax на сумму пяти первых элементов массива В.
program s6;
var
B:array[1..10] of real;
n,i: integer;
s:real;
f:text;
begin
assign(f,'C:\а6\ertyujkl.txt');
reset(f);
for i:=1 to 10 do
begin
read(f,B[i]);
write(B[i]:0:2,' ');
end;
close(f);
n:=1;
if B[i]>B[N] then
n:=i;
writeln;
writeln('Bmax',B[N]:0:2,' ','n=',n);
s:=0;
for i :=1 to 5 do
begin
s:=s+B[i];
B[n]:=S;
writeln ('Новый массив B');
end;
for i:=1 to 10 do
write(B[i]:8:2,' ');
end.
Задание 3
Дано слово из пяти букв. Сколько раз встречаются идущие подряд буквы "НН"?
program f3;
var s: string;
k,i,a:integer;
begin
writeln ('Введите слово');
readln(s);
k:=0;
a:=length(s);
for i:=1 to (a-1) do
if 'нн'=s[i]+s[i+1] then
k:=k+1;
if k <>0 then
writeln('k=',k:1);
end.
Задание 7
Даны массивы
N1, …, N7 – наименования операций по ремонту автомашин;
ST1, …, ST7 – стоимость каждой из операций.
Вывести список операций, стоимость которых составляет от S1 до S2 руб. Какая
операция имеет максимальную стоимость?
program s7;
var
N:array [1..7] of string[4];
St:array [1..7] of real;
S1,s2,smax: real;
i,a: byte;
f:text;
begin
write ('Введите S1 ');
read (s1);
write ('Введите S2 ');
read (s2);
begin
assign(f,'C:\Users\Student\Desktop\05.txt');
reset (f);
i:=0;
while not eof(f) do
begin
inc(i);
readln(f,N[i],St[i]);
end;
close(f);
for a:=1 to 40 do
write('*');
writeln;
writeln('** Наименование услуги ** Стоимость услуги **');
for a:=1 to 40 do
Write ('*');
writeln;
for i:=1 to 7 do
begin
writeln('** ',N[i]:2,' **',St[i]:4,' **');
for a:=1 to 40 do
write('*');
writeln;
end;
writeln('**услуги, которые удовлетворяют условию** Стоимость услуги **');
for a:=1 to 60 do
Write ('*');
writeln;
end;
For i:=1 to 7 do
begin
If (St[i]>s1) and (St[i]<S2) then
writeln('** ',N[i]:2,' **',St[i]:4,' **');
end;
smax:=St[1];
for i:=2 to 7 do
if st[i] > smax then
smax:=st[i];
write('Smax=',Smax)
end.
Второй способ
program s7;
type
ser=record
N:string[4];
St:real;
end;
var
t: array[1..7] of ser;
i,a: byte;
S1,s2,smax: real;
f:text;
begin
write ('Введите S1 ');
read (s1);
write ('Введите S2 ');
read (s2);
begin
assign(f,'C:\Users\Student\Desktop\05.txt');
reset (f);
i:=0;
while not eof(f) do
begin
inc(i);
with t[i] do
readln(f,N,St);
end;
close(f);
for a:=1 to 40 do
write('*');
writeln;
writeln('** Наименование услуги ** Стоимость услуги **');
for a:=1 to 40 do
Write ('*');
writeln;
for i:=1 to 7 do
with t[i] do
begin
writeln('** ',N:2,' **',St:4,' **');
for a:=1 to 40 do
write('*');
writeln;
end;
writeln('**услуги, которые удовлетворяют условию** Стоимость услуги **');
for a:=1 to 60 do
Write ('*');
writeln;
end;
For i:=1 to 7 do
with t[i] do
begin
If (St>s1) and (St<S2) then
writeln('** ',N:2,' **',St:4,' **');
end;
smax:=t[1].St;
for i:=2 to 7 do
with t[i] do
if st > smax then
smax:=St;
write('Smax=',Smax)
end.
Задание 8
В матрице С [5 x 4] найти строку, в которой разность среднего арифметического и
первого элемента больше заданной величины "а". Умножить элементы этой строки на
соответствующие элементы всех строк.
program zadanie8;
var C: array[1..5,1..4] of integer;
s: array[1..5] of real;
a: real;
f: text;
i,k, j: integer;
begin
assign (f, 'C:\Users\Student\Desktop\07.txt');
reset(f);
writeln (' Исходная матрица');
writeln;
for i:=1 to 5 do
begin
writeln;
for j:=1 to 4 do
begin
read (f, c[i,j]);
write (c[i,j]:5);
end;
end;
writeln;
write ('Введите a ');
read (a);
for i:=1 to 5 do
begin
S[i]:=0;
for j:=1 to 4 do
S[i]:=S[i]+c[i,j];
S[i]:=S[i]/4;
end;
for i:= 1 to 5 do
begin
if (S[i]-C[i,1])>a then
begin
for k:= 1 to 5 do
if k<> i then
for j:=1 to 4 do
C[i,j]:=C[i,j]*C[k,j];
end;
end;
writeln;
writeln (' Новая матрица');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 4 do
write(c[i,j]:5);
end;
end.
Задание 5
program r5;
var
x,ch,zn,y:real;
i: integer;
begin
writeln('Введите x');
readln(x);
ch:=x;
y:=0;
i:=4;
zn:=6;
while i<29 do
begin
Ch:=ch*sqr(x)*(i-1);
zn:=zn*i*(i-1);
y:=y+ch/zn;
i:=i+2;
end;
writeln('y=',y:0:10);
end.
Задание 9
Дан список английских слов А1, …, А15 и их русский перевод R1, …, R15. Заданы
три английских слова AN1, AN2, AN3. Программа должна находить их русский перевод.
program pr_9;
type
Mass=array[1..3] of String;
var A,R:array[1..15] of String;
I,J:Integer;
w:mass;
x:text;
f:text;
procedure Find(var ww:mass);
var I,q,J:integer;
begin
for J:=1 to 3 do
begin
for I:=1 to 15 do
if A[I]=ww[J] then q:=i;
writeln(r[q]);
end;
end;
procedure p1 (xx,ff:text);
var i:integer ;
begin
assign (x,'C:\Users\709\Desktop\x.txt');
reset(x);
for i:= 1 to 15 do
readln(x, A[i]);
writeln;
close(x);
assign (f,'C:\Users\709\Desktop\f.txt');
reset(f);
for i:=1 to 15 do
readln(f, R[i]);
write;
close(f);
for i:= 1 to 15 do
writeln( A[i ],' ', R[i]);
end;
procedure p2(var w:mass ) ;
var j:integer;
begin
writeln('Введите 3 слова на английском:');
For J:=1 to 3 do
begin
Write(J,' Слово на английсом: '); Readln(w[J]);
end;
end;
begin
p1(x,f);
p2(w);
Find(w) ;
end.