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

Контрольная

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

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

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

закрыть
Категория: Контрольная работа
Язык контрольной: Русский
Дата добавления:   
 
Скачать
Архив Zip, 22 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной работы

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

Лабораторная № 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 - 2016
Рейтинг@Mail.ru