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

Таблица №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

ВАРИАНТ 21

Задание 1

Даны c, d.

Определить

program a1;

var c,d,m,n: real;

Begin

write('Введите c=');

readln (c);

write ('Введите d=');

readln (d);

m:=(sqr(c+d)-(sin(pi/6)*sin(pi/6)))/(c-(d*d*d));

n:=(c+d)/(m*(c-d))*0.75;

writeln('m=',m:0:3);

writeln('n=',n:0:3);

end.

Задание 2

Даны X₁, X₂, X₃.

Определить y1 = x₁ + x₂;

y2 = 2∙x₃;

y3= , если x₁ > x₂,

x₁ + x₃, если x₁ ≤ x₂

Z = ymax² + .

Задание 4

Даны массивы R1,..., R9; f1,..., f9; d1,..., d7.

program z1;

const N=9;

const M=7;

Var

w:real;

r,f: array [1..N] of integer;

d: array [1..M] of integer;

j,i:integer;

s: array [1..N] of real;

Begin

writeln('Введите элементы массива');

for i:=1 to N do

readln(r[i]);

for i:=1 to N do

readln(f[i]);

w:=1;

for j:=1 to M do

Begin

readln(d[j]);

w:=w*d[j];

end;

for i:=1 to N do

Begin

s[i]:=(r[i]/f[i])*w;

writeln(s[i]:6:2,' ');

end;

end.

Задание 4

program 4;

const N=9;

const M=7;

Var

w:real;

r,f: array [1..N] of integer;

d: array [1..M] of integer;

j,i:integer;

s: array [1..N] of real;

y,Ymax: integer;

Begin

writeln('Введите элементы массива');

for i:=1 to N do

readln(r[i]);

for i:=1 to N do

readln(f[i]);

w:=1;

for j:=1 to M do

Begin

readln(d[j]);

w:=w*d[j];

end;

for i:=1 to N do

Begin

s[i]:=(r[i]/f[i])*w;

Ymax:=1;

for Y:=2 to N do

if s[i] > s[Ymax] then

Ymax:=1;

writeln;

writeln('Максимальный элемент s[',Ymax,']=', s[Ymax]);

end;

end.

Задание 5

program r5;

Var

x,e,ch,zn,y:real;

i:integer;

Begin

writeln('Введите x');

readln(x);

writeln('Введите e');

readln(e);

ch:=x;

zn:=1;

y:=0;

i:=1;

repeat ch:=ch*(-sqrt(x));

zn:=zn*(i+1)*(i+2);

y:=y+ch/zn;

i:=i+2;

until (abs(y/i)<e)

or (i>50);

if i>50 then

writeln('авария при x') else

writeln('ответ при ',i div 2,' шагах равен',y:0:5);

end.

Задание 3

program f3;

var s:string[7];

n:integer;

Begin

writeln('Введите текст');

readln(s);

writeln(s);

n:=pos(';',s);

if n<>0 then write('Текст содержит символ;')

else write ('Текст не содержит символ;');

end.

Задание 7

Даны шифры десяти цехов, численности рабочих и инженерно-технических работников в

каждом. Вывести списки цехов, в которых соотношение рабочих и ИТР более 1,5 и менее

2, и списки, в которых это соотношение более 2.

program s7;

Var

cex: array [1..10] of string[4];

ch,itr: array [1..10] of real;

a:real;

i:byte;

f:text;

Begin

assign(f,'C:\Users\Student\Desktop\.txt.txt');

reset(f);

i:=0;

while not eof(f) do

Begin

inc(i);

readln(f,cex[i],ch[i],itr[i]);

end;

close(f);

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** численность ** итр **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

writeln('** ',cex[i],'** ',ch[i],' ** ',itr[i],' ** ');

for i:=1 to 32 do

write('*');

writeln;

writeln;

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

Begin

a:=ch[i]/itr[i];

if (a>1.5) and (a<2) then

writeln('** ',cex[i],'**',a:10:2,' **');

end;

writeln;

writeln;

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

Begin

a:=ch[i]/itr[i];

if (a>2) then

writeln('** ',cex[i],'**',a:10:2,' **');

end;

end.

2 способ при помощи оператора with:

program s7;

Type

zav= record

cex:string[4];

ch:real;

itr:real;

end;

Var

b: array [1..10] of zav;

a:real;

i:byte;

f:text;

Begin

assign(f,'C:\Users\Student\Desktop\.txt.txt');

reset(f);

i:=0;

while not eof(f) do

Begin

inc(i);

with b[i] do

readln(f,cex,ch,itr);

end;

close(f);

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** численность ** итр **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

with b[i] do

writeln('** ',cex,'** ',ch,' ** ',itr,' ** ');

for i:=1 to 32 do

write('*');

writeln;

writeln;

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

with b[i] do

Begin

a:=ch/itr;

if (a>1.5) and (a<2) then

writeln('** ',cex,'**',a:10:2,' **');

end;

writeln;

writeln;

for i:=1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i:=1 to 32 do

write('*');

writeln;

for i:=1 to 10 do

with b[i] do

Begin

a:=ch/itr;

if (a>2) then

writeln('** ',cex,'**',a:10:2,' **');

end;

end.

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