Зарплата сотрудников

Создание простых таблиц, заполнение готовых форм

Таблица №3. Данные об общей сумме заработной платы

Таблица №4. Данные о расходе топлива

Лабораторная работа №5

I. Создание многоуровневого списка.

Многоуровневый список может иметь до 9 уровней. Нумерация или маркеры могут быть изменены на любом из уровней.

A. Выберите команду ФОРМАТ-СПИСОК.

B. Щелкните ОК.

C. Введите только текст. Нумерация будет проставляться автоматически.

D. В Конце набора каждого элемента списка нажимайте клавишу <ENTER>

В результате набранные элементы списка пронумеруются символами самого верхнего уровня. Чтобы выбрать уровень нумерации элемента, нужно:

1 Выбрать команду ФОРМАТ-СПИСОК.

2 Если точно такого же списка нет, нужно выделить похожий и нажать кнопку ИЗМЕНИТЬ.

3 Внести исправления в ФОРМАТЕ НОМЕРА, НУМЕРАЦИИ, НАЧАТЬ С (там, где это нужно). В конце нажать ОК. В результате должен получиться нужный список.

II. Создание простого нумерованного списка.

Потренируйтесь в создании списков, создав три разных списка, например, имена своих друзей.

1 шаг) Лена

2 шаг) Саша

3 шаг) Коля

4 шаг) Иван.

III. А теперь создайте свой иерархический список с любым текстом, например, такой: мир разделен на континенты

A. Европа

B. Азия

C. Африка

D. Австралия

E. Америка

1. Южная

2. Северная

a) Канада

b) США

Лабораторная работа №6

Microsoft Word

Создание и использование стилей

I. Сетевые информационные технологии

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.

Оглавление

Отчет по лабораторным работам по информатике. 0

Лабораторная работа №3. 1

Лабораторная работа №4. 3

1.Преобразование введенного текста в таблицу. 3

2. Создание простых таблиц, заполнение готовых форм.. 4

Лабораторная работа №5. 6

I. Создание многоуровневого списка. 6

Лабораторная работа №6. 8

II. Сетевые информационные технологии. 8

Лабораторная работа по Excel 9

Лабораторная работа по Access. 10

Лабораторная работа по Pascal 10

A. Задание 1. 10

B. Задание 2.. 11

Поиск по сайту: