Контрольная: Лабораторные работы на Pascal - текст контрольной. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Контрольная

Лабораторные работы на Pascal

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Контрольная работа
Язык контрольной: Русский
Дата добавления:   
 
Скачать
Архив Zip, 22 kb, скачать бесплатно
Обойти Антиплагиат
Повысьте уникальность файла до 80-100% здесь.
Промокод referatbank - cкидка 20%!
Заказать
Узнать стоимость написания уникальной работы

Узнайте стоимость написания уникальной работы

Лабораторная № 1 (№ 41) Дано Протабулировать функции R = w(t)=3t 3 -4t 2 +6t-1 sign(t)= F(t)= -3.5 t 1.5, t=0.5 Листинг program John1; uses crt; var f,n,sign,a:integer; r,t,w:real; begin clrscr; writeln(' Задание N1'); writeln; writeln(' г ==========T==========T==========T==========¬ '); writeln('¦ ',' t ',' ¦ ','w ',' ¦ ','','r ',' ¦ ',' N ',' ¦ '); writeln('¦ ====== ====+==========+==========+==========¦ '); for a:=1 to 11 do begin t:=(a-8)/2; w:=3*t*t*t-4*t*t+6*t-1; if t>=0 then sign:=1 else sign:=-1; if t<0 then f:=2 else f:=0; if w>=0 then begin r:=1+3*f; n:=1; end; if w<0 then begin r:=2*sign-t*t*t; n:=2 end; writeln('¦ ',t:4:1,' ','¦ ',w:8:3,' ','¦ ',r:7:3,' ','¦ ',' ',n,' ',' ¦ '); end; writeln('L==========¦ ==========¦ ==========¦ ==========-'); readln ; end . Результат работы t w r n -3.5 -199.625 40.875 2 -3.0 -136.000 25.000 2 -2.5 -87.875 13.625 2 -2.0 -53.000 6.000 2 -1.5 -29.125 1.375 2 -1.0 -14.000 -1.000 2 -0.5 -5.375 -1.875 2 0 -1.000 2.000 2 0.5 1.375 1.000 1 1.0 4.000 1.000 1 1.5 9.125 1.000 1 Лабораторная № 2 (№ 41) Дано Найти сумму ряда с точность до e Листинг program John2; uses crt; var k,a,n:integer; s,e,f,x:real; begin clrscr; write('Введите точность вычисления e='); readln(e); write('Введите переменную ряда |x|<1, |x|='); readln(x); s:=0; k:=0; n:=1; repeat if k=0 then f:=x else for a:=1 to k do begin n:=n*a; if x<0 then f:=-exp((2*k+1)*ln(abs(x)))/n*(2*k+1) else f:=exp((2*k+1)*ln(abs(x)))/n*(2*k+1); s:=s+f; end; k:=k+1; until abs(f)0 then write('На Промежутке от ',a:4:2,' до ',b:4:2,' функци я не имеет корня !'); if f(a)=0 then x:=a; if f(b)=0 then x:=b else begin n:=0; writeln(' г =================================¬ '); writeln('¦ Метод дихотомии ¦ '); repeat begin n:=n+1; c:=(a+b)/2; if f(c)=0 then x:=c; if f(a)*f(c)<0 then b:=c; if f(c)*f(b)<0 then a:=c; end; until abs((b-a)*2)0 then b:=c1 else a:=c1; if f(c1)=0 then x1:=c1 ; repeat k:=k+1; c2:=c1; c1:=c1-f(c1)/f1(c1); until abs(c2-c1)0 do begin delete(st[i].izg,pos1,1); pos1:=pos(' ',st[i].izg); end; end; writeln('Количество товаров ',z); readln; write('Вв едите изготовителя :'); readln(izgot); write('Введите нижний предел цены :'); readln(np); write('Введите верхний предел цены :'); readln(vp); writeln(' Отсортированный список :'); writeln; k:=0; for i:=1 to z do if (st[i].izg=izgot)an d(st[i].cena>np)and(st[i].cena=1999)and(st[i].gar>=18) then begin k:=k+1; r[k]:=st[i]; end; for j:=1 to k-1 do for i:=j+1 to k do if r[i].ima0 do begin delete(st[i].izg,pos1,1); pos1:=pos(' ',st[i].izg); end; end; writeln('Количество товаров ',z); readln; write('Введите изготовителя :'); readln(izgot); write('Введите ни жний предел цены :'); readln(np); write('Введите верхний предел цены :'); readln(vp); writeln(' Отсортированный список :'); writeln; k:=0; for i:=1 to z do if (st[i].izg=izgot)and(st[i].cena>np)and(st[i].cena=1999)and( st[i].gar>=18) then begin k:=k+1; r[k]:=st[i]; end; for j:=1 to k-1 do for i:=j+1 to k do if r[i].ima#13 do begin c[n]:=4; for i:=1 to 6 do begin setcolor(c[i]); outtextxy(140+(150-length(st[i])*5),100+i*50,st[i]); end; key:=readkey; if (key=#72)and(n<>1) then begin sound(250); delay(50); nosound; c[n]:=3; n:=n-1; end; if (key=#80)and(n<>6) then begin sound(250); delay(50); nosound; c[n]:=3; n:=n+1; end; end; end; end.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
В России конца света не боятся - его ждут.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, контрольная по программированию "Лабораторные работы на Pascal", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2017
Рейтинг@Mail.ru