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

Лабораторная 41 Дано Протабулировать функции R wt3t3-4t26t-1 signt Ft -3.5t1.5, t0.5 Листинг program John1 uses crt var f,n,sign,ainteger r,t,wreal begin clrscr writelnЗадание N1 writeln writelnгTTT writeln , t , ,w , r N , writeln for a1 to 11 do begin ta-82 w3ttt-4tt6t-1 if t 0 then sign1 else sign-1 if t 0 then f2 else f0 if w 0 then begin r13f n1 end if w 0 then begin r2sign-ttt n2 end writeln ,t41, w83 ,r73 ,n end writelnL- readln end. Результат работы twrn-3.5-199.62540.8752-3.0-136.00025.00 02-2.5-87.87513.6252-2.0-53.0006.0002-1. 5-29.1251.3752-1.0-14.000-1.0002-0.5-5.3 75-1.87520-1.0002.00020.51.3751.00011.04 .01 Лабораторная 41 Дано Найти сумму ряда с точность до e Листинг program John2 uses crt var k,a,ninteger s,e,f,xreal begin clrscr writeВведите точность вычисления e readlne writeВведите переменную ряда x 1, x readlnx s0 k0 n1 repeat if k0 then fx else for a1 to k do begin nna if x 0 then f-exp2k1lnabsxn2k1 else fexp2k1lnabsxn2k1 ssf end kk1 until absf e writeln writelnсумма ряда s,s119, 10,количество итераций k,k readkey end. Результат работы Ввод Вывод e0.0001 s0.003075 x 0,x0.1 k3 Лабораторная 65 Дано Найти корень уравнения 1,1x3-2.1x27x8.20 на промежутке -10 с точностью до e методом дихотомии и методом касательных.

Листинг Program John3 uses crt var n,kinteger a,b,c,c1,c2,eps,x,x1real Function fzrealreal begin f1.1ZZZ-2.1ZZ7Z8.2 end Function f1yrealreal begin f13.3yy-4.2y7 end Function f2qrealreal begin f29.9q-4.2 end Begin clrscr a-1 b0 eps0.001 writelnНахождение корней уравнения 1.1x3-2.1x27x8.2 на промежутке -10 writeln writeln if fafb 0 then writeНа Промежутке от ,a42, до ,b42, функция не имеет корня if fa0 then xa if fb0 then xb else begin n0 writelnг writeln Метод дихотомии repeat begin nn1 cab2 if fc0 then xc if fafc 0 then bc if fcfb 0 then ac end until absb-a2 eps xab2 writeln Корень уравнения равен,x75, writeln Число интераций равно,n,9 writelnL- writeln writelnг writeln Метод касательных k0 if f1af2a 0 then bc1 else ac1 if fc10 then x1c1 repeat kk1 c2c1 c1c1-fc1f1c1 until absc2-c1 eps x1a-faf1a writeln Корень уравнения равен,c175, writeln Число итераций равно,k,11 writelnL- repeat until KeyPressed end end. Результат работы Метод дихотомии Метод касательных x-0.85425 x-0.85441 n11 n4 Лабораторная 155 Дано Задана матрица Bbij, сформировать матрицу Aaij, чтоб aij Вычислить сумму элементов нечетных строк матрицы.

Листинг program John4 uses crt var i,j,n,minteger sreal a,barray1 50,1 50 of real procedure vvod begin writeВведите длину строки n readlnn writeВведите длину столбца m readlnm writeln end procedure vyvod begin randomize writelnИсходный массив for i1 to n do begin for j1 to m do begin bi,jrandom100 writebi, j103 end writeln end end procedure vyvod2 begin writeln writelnМассив после преобразования for i1 to n do begin for j1 to m do begin ai,jbi,jbi,j2.3sqrbi,j2.8 writeai,j103 end writeln end end begin clrscr vvod vyvod vyvod2 writeln writelnСуммы нечетных строк for i1 to n do begin s0 for j1 to m do if oddi then ssai,j if oddi then write s103 writeln end readln end. Результат работы Ввод данных n3 m4 Исходный массив B 28 Сформированный массив A 0,009 0,017 0,005 0,010 0,009 0,011 0,013 0,016 0,032 0,007 0,008 0,015 Суммы нечетных строк 0,042 0,062 Лабораторная 155 Дано Задана матрица Bbij, сформировать матрицу Aaij, чтоб aij Вычислить сумму элементов нечетных строк матрицы.

Листинг Программа5 uses unit1,crt var a,bmas begin clrscr Input Vyvod1a,b Vyvod2a,b summaa,b readln end. Юнит1 unit unit1 interface uses crt type masarray 1 20,1 20 of real var i,j,n,minteger sreal procedure Input procedure Vyvod1var a,bmas procedure Vyvod2var a,bmas procedure Summavar a,bmas implementation procedure Input begin writeВведите длину строки n readlnn writeВведите длину столбца m readlnm writeln end procedure Vyvod1 begin randomize writelnИсходный массив for i1 to n do begin for j1 to m do begin bi,jrandom100 writebi,j103 end writeln end end procedure Vyvod2 begin writeln writelnМассив после преобразования for i1 to n do begin for j1 to m do begin ai,jbi,jbi,j2.3sqrbi,j2.8 writeai,j103 end writeln end end procedure Summa begin writeln writelnСуммы нечетных строк for i1 to n do begin s0 for j1 to m do if oddi then ssai,j if oddi then write s103 writeln end end end. Результат работы Ввод данных n3 m4 Исходный массив B 28 Сформированный массив A 0,009 0,017 0,005 0,010 0,009 0,011 0,013 0,016 0,032 0,007 0,008 0,015 Суммы нечетных строк 0,042 0,062 Лабораторная 6 Дано Список бытовая техника.

Колонки Название товара, год выпуска, гарантия, цена. Выбрать товары указанного производителя, выпущенные после 1998 года с гарантией больше 12 месяцев с ценной находящейся в заданных пределах.

Отсортировать список по алфавиту.

Листинг Список товаров Телевизор Sony 237 Магнитофон LG 247 Видеомагнитофон Panasonic 1999 18 179 Видеоплеер Samsung 164 Пылесос Philips 208 Музыкальныйцентр Samsung 178 Домашнийкинотеатр LG 1998 24 224 Фен Philips 103 Электрочайник TEFAL 2000 12 212 СВЧ-печь Samsung 169 Утюг TEFAL 119 Телевизор Panasonic 241 Магнитофон Sony 167 Видеомагнитофон LG 175 Видеоплеер Panasonic 182 Пылесос Sony 201 Музыкальныйцентр LG 186 Домашнийкинотеатр Panasonic 2000 24 234 Фен Samsung 108 Электрочайник Philips 1999 12 103 СВЧ-печь TEFAL 172 Утюг Philips 2000 12 115 Телевизор Samsung 2000 24 209 Телефон Panasonic 1999 12 102 Видеомагнитофон Sony 2000 18 181 Видеоплеер LG 2000 12 162 CD-плеер Samsung 1998 12 101 Музыкальныйцентр Panasonic 1999 18 196 Домашнийкинотеатр Sony 2000 24 245 Фен TEFAL 2000 12 101 Телефон Samsung 1999 12 123 CD-плеер Sony 2000 12 120 Электробритва Philips 1999 12 134 Программа6 uses crt type tovarrecord imastring19 izgstring10 godinteger garinteger cenainteger end var tovtext izgotstring z,i,o,np,vp,j,kinteger st,p,rarray 1 25 of tovar prarray 1 30 of integer temptovar pos1 byte begin assigntov,duniverlangsbp7worktemptov.txt assigntov,ctpworktemptov.txt resettov clrscr writeln30,Список электротоваров writelnНаименование товара,5,Производитель,7,Год,5,Гарантия, 4,Цена readln z1 repeat readlntov,stz.ima,stz.izg,stz.god,stz.ga r,stz.cena writelnstz.ima,6,stz.izg,7,stz. god, 7,stz.gar,7,stz.cena zz1 until eoftov for i1 to z do begin pos1pos ,sti.izg While pos1 0 do begin deletesti.izg,pos1,1 pos1pos ,sti.izg end end writelnКоличество товаров ,z readln writeВведите изготовителя readlnizgot writeВведите нижний предел цены readlnnp writeВведите верхний предел цены readlnvp writeln Отсортированный список writeln k0 for i1 to z do if sti.izgizgotandsti.cena npandsti.cena vpandsti.god 1999andsti.gar 18 then begin kk1 rksti end for j1 to k-1 do for ij1 to k do if ri.ima rj.ima then begin tempri rirj rjtemp end writelnКоличество найденных товаров ,k for i1 to k do writelnri.ima,6,ri.izg,7,ri.god, 7,ri.gar,7,ri.cena readln end. Результат работы Список товаров Телевизор Sony 1999 24 237 Магнитофон LG 2000 18 247 CD-плеер Sony 2000 12 120 Электробритва Philips 1999 12 134 Количество товаров34 Введите изготовителяSony Введите нижний предел цены100 Введите верхний предел цены250 Видеомагнитофон Sony 2000 18 181 Домашнийкинотеатр Sony 2000 24 245 Телевизор Sony 1999 24 237 Пылесос Sony 1999 18 201 Лабораторная 7 Дано На основе лабораторной 3 построить график, используя цветовое графическое меню с пунктами Ввод данных Расчет Построение Графические возможности Помощь Выход Листинг Программа7 uses crt type tovarrecord imastring19 izgstring10 godinteger garinteger cenainteger end var tovtext izgotstring z,i,o,np,vp,j,kinteger st,p,rarray 1 25 of tovar prarray 1 30 of integer temptovar pos1 byte begin assigntov,duniverlangsbp7worktemptov.txt assigntov,ctpworktemptov.txt resettov clrscr writeln30,Список электротоваров writelnНаименование товара,5,Производитель,7,Год,5,Гарантия, 4,Цена readln z1 repeat readlntov,stz.ima,stz.izg,stz.god,stz.ga r,stz.cena writelnstz.ima,6,stz.izg,7,stz. god, 7,stz.gar,7,stz.cena zz1 until eoftov for i1 to z do begin pos1pos ,sti.izg While pos1 0 do begin deletesti.izg,pos1,1 pos1pos ,sti.izg end end writelnКоличество товаров ,z readln writeВведите изготовителя readlnizgot writeВведите нижний предел цены readlnnp writeВведите верхний предел цены readlnvp writeln Отсортированный список writeln k0 for i1 to z do if sti.izgizgotandsti.cena npandsti.cena vpandsti.god 1999andsti.gar 18 then begin kk1 rksti end for j1 to k-1 do for ij1 to k do if ri.ima rj.ima then begin tempri rirj rjtemp end writelnКоличество найденных товаров ,k for i1 to k do writelnri.ima,6,ri.izg,7,ri.god, 7,ri.gar,7,ri.cena readln end. Юнит7 unit unit7 interface uses crt,graph var i,jinteger procedure menuvar ninteger implementation procedure menu var carray 1 6 of integer starray 1 6 of string keychar begin key0 cleardevice n1 setcolor9 rectangle10,10,630,470 rectangle15,15,625,465 setcolor2 rectangle205,145,390,185 rectangle205,185,390,235 rectangle205,235,390,290 rectangle205,290,390,340 rectangle205,340,390,390 rectangle205,390,390,425 setcolor14 settextstyle2,0,16 outtextxy170,40,Лабороторная N7 setcolor15 settextstyle6,0,2 outtextxy20,440,Программа сделана студентом группы 00-ПО2 Гольдиным Е. for i1 to 6 do ci3 st1Ввод данных st2Расчет st3График функции st4Заставка st5Помощь st6Выход settextstyle4,0,2 while key 13 do begin cn4 for i1 to 6 do begin setcolorci outtextxy140150-lengthsti5,100i50,sti end keyreadkey if key72andn 1 then begin sound250 delay50 nosound cn3 nn-1 end if key80andn 6 then begin sound250 delay50 nosound cn3 nn1 end end end end.