Шпаргалки по ВМП

Министерство образования РФ Мурманский филиал Петровского колледжа Студентки IV курса 423 группы Тимониной Зои. г. Мурманск 4. Даны две квадратные матрицы. Вывести на экран ту из них, которая имеет минимальный след т. е. сумма элементов главной диагонали минимальная. Определить в этой матрице сумму элементов 2-ой строки.Вывести на экран результат.Си include conio.h include stdlib.h include math.h include stdio.h int i, j,s1,s2,st, a33, b33 void vivmatr randomize fori0i 3i forj0j 3j aijrandom10 printfd , aij printfn printfn fori0i 3i forj0j 3j bijrandom10 printfd , bij printfn printfn void schet vivmatr fori0i 3i forj0j 3j ifij s1s1aij printfns1d ,s1 printfn fori0i 3i forj0j 3j ifij s2s2bij printfns2d ,s2 printfn void fun fori0i 3i forj0j 3j ifs1 s2 printfd ,aij printfn fori0i 3i forj0j 3j ifs1 s2 printfd ,bij printfn void main clrscr schet fun ifs1 s2 forj0j 3j ststa1j else forj0j 3j ststb1j printfstd ,st 17,18. Написать программу, в которой квадратные матрицы перемножаются.

В программе должны быть использованы 1 функция, для генерации исходных массивов и вывода их на экран 2функция, перемножающая матрицы и выводящая результат на экран. .Паскаль Program primer uses crt var m1array1 3,1 3 of integer m2array1 3,1 3 of integer m3array1 3,1 3 of integer i,jinteger procedure regen begin randomize for i1 to 3 do begin for j1 to 3 do begin m1i, jrandom10 writem1i,j, end writeln end writeln randomize for i1 to 3 do begin for j1 to 3 do begin m2i,jrandom10 writem2i,j, end writeln end end procedure umnoh begin for i1 to 3 do begin for j1 to 3 do begin m3i,jm1i,jm2i,j writem3i,j, end writeln endend begin clrscr regen writeln umnoh end. 30. Паскаль program cossin uses crt var zreal k,n,xinteger procedure vv begin writelnvved x,n readx,n end procedure schet begin z0 for k1 to n do zzcoskx end begin clrscr vv schet writelnz ,z end. 8. Размер матрицы заранее неизвестен. Заполнить ее , используя формулу для вычисления каждого элемента Aij3ij и вывести ее на экран.Си include conio.h include iostream.h void funint m, int n, int a forint i0i mi forint j0j nj aij3ij void main clrscr int pint m1 cout vvedite kol strok cin m1 int n1 cout n vvedite kol stoib cin n1 int i,j pnew intm1 fori0i m1i pinew intn1 funm1,n1,p fori0i m1i cout n forj0j n1j cout t pij fori0i m1i delete pi delete p 7. Размер матрицы заранее неизвестен. Заполнить ее случайным образом и вывести на экран.Си include conio.h include stdlib.h include iostream.h void funint m, int n, int a randomize forint i0i mi forint j0j nj aijrandom10 void main clrscr int pint m1 cout vvedite kol strok cin m1 int n1 cout n vvedite kol stoib cin n1 int i,j pnew intm1 fori0i m1i pinew intn1 funm1,n1,p fori0i m1i cout n forj0j n1j cout t pij fori0i m1i delete pi delete p 13.С использованием пользовательской функции сформировать одномерный массив их 10 элементов следующего вида 3,5,7,9 Найти сумму элементов массива.Си include conio.h include stdio.h include math.h float a10 int i void massvoid a03 printfa03n fori1i 10i aiai-12 printfadfn,i,ai void main clrscr float r,i r0 mass fori0i 10i rrai printfrfn,r 14. С использованием пользовательской функции сформировать одномерный массив, размерностью 10 элементов следующего вида 3,9,27 Найти произведение элементов массива. .Паскаль uses crt var iinteger rreal aarray1 10 of real procedure mass begin a13writelna03 for i1 to 10 do begin aiai-13 writelna,i ai02 endend begin clrscr r1 mass for i1 to 10 do begin rrai end writelnr,r end. 12. Составить программу, в которой вычисляется Xn с использованием пользовательской функции. X,n вводяся с клавиатуры, вещественные. Результат вывести на экран.Си include stdio.h include conio.h include math.h float x,n,p float stepenvoid float pp pppowx,n return pp void main clrscr printfved x scanff,x printfved n scanff,n pstepen printfpfn,p 21. Идет К-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту. .Паскаль uses crt var s,ch,minreal begin clrscr writevved kol sec reads mins60 chmin60 writelnkol polnih chasov,ch02, i minut,min02 end. 22. Идет N-ый день года. Определить сколько полных недель и месяцев прошло к этому моменту. .Паскаль uses crt var dd,nn,mmreal begin clrscr writevved kol dnei readdd nndd7 mmdd30 writelnkol polnih nedel,nn02, i mesacev,mm02 end. 29. Паскаль uses crt var d,m,xinteger s,zreal procedure Vvod begin writeVvedite x readlnx writeVvedite m readlnm end procedure Raschet begin s0 for d1 to m do sssindx zs end begin clrscr Vvod Raschet writelnz,z02 readln end. 11. Составит программу, в которой с клавиатуры вводятся 3 вещественных числа одинарной точности и находится с использованием пользовательской функции их среднее значение, результат вывести на экран.Си include stdio.h include conio.h float s0 void memo float a,b,c printf vvedite a scanff,a printf vvedite b scanff,b printf vvedite c scanff,c sabc3 void main clrscr memo printfSrednee znachenief,s 31. Создать массив размерностью 3х3, вводом с клавиатуры.

Вывести на экран элементы массива в форме таблицы. .Паскаль uses crt var i,jinteger marray1 3,1 3of integer procedure vvod begin for i1 to 3 do begin for j1 to 3 do begin writevved chislo readmi,j end end end procedure massiv begin for i1 to 3 do begin for j1 to 3 do writemi,j, writeln end end begin clrscr vvod massiv end. 33. Дан двумерный массив размерностью 2х2, созданный случайным образом.

Найти произведение элементов массива, вывести на экран результат вычислений и массив в форме таблицы. .Паскаль uses crt var i,j,pinteger marray1 2,1 2of integer procedure vvod begin randomize for i1 to 2 do begin for j1 to 2 do begin mi,jrandom10 writemi,j, end writeln end end procedure proizved begin p1 for i1 to 2 do for j1 to 2 do begin ppmi,j end end begin clrscr vvod proizved writelnproizvedenie,p end. 32. Создать массив размерностью 4х4 случайным образом.

Вывести на экран элементы массива в форме таблицы. .Паскаль uses crt var i,jinteger aarray1 4,1 4of integer procedure rand begin randomize for i1 to 4 do begin for j1 to 4 do begin ai,jrandom10 writeai,j, end writeln end end begin clrscr rand readln end. 10. Составит программу, в которой вычисляется объем шара, причем значение П задается через макро с точностью 6 знаков после запятой.

R- вводится с клавиатуры.Си include stdio.h include conio.h define pi 3.141592 float vint r void main clrscr printfvvedite r scanfd,r v4.03.0 pirrr printfvfn,v 9. Составить программу, в которой вычисляется А4 , А- вводится с клавиатуры.

Для вычисления А4 используется макро.Си include conio.h include stdio.h include math.h float a,s void main clrscr printfvvedite a scanff,a spowa,4 printfnsf,s 24. Создайте структуру с именем Planeta.

Поля структуры номер планеты по удалению от Солнца целое, название планеты символьное, период обращения вокруг Солнца вещественное.

Создайте 3 переменных типа Planeta.

Отсортируйте данные по степени увеличения периода обращения вокруг Солнца. .Паскаль uses crt type zaprecord ninteger nazstring10 periudreal end var zarray1 3 of zap rreal i,m,jinteger sstring xarray1 3 of real Begin clrscr for i1 to 3 do begin writeVvedite nomer p readlnzi.n writeVvedite nazvanie p readlnzi.naz writeVvedite periud readlnzi.periud end for j1 to 2 do for i2 to 3 do if zi-1.periud zi.periud then begin rzi-1.periud zi-1.periudzi.periud zi.periudr szi-1.naz zi-1.nazzi.naz zi.nazs mzi-1.n zi-1.nzi.n zi.nm end for i1 to 3 do begin writezi.n, writezi.naz, writezi.periud02, writeln end readkey end. 20. Написать программу, в которой создается структура, в которой полями являются 4 переменных целого типа. Также создаются 3 переменных типа указанной структуры.

Найти для каждой из переменных-структур среднее арифметическое, математическое ожидание.

Исходные данные и результаты вывести на экран. .Паскаль uses crt type zaprecord pol1integer pol2integer pol3integer pol4integer end var zarray1 3 of zap iinteger xarray1 3 of real Begin clrscr for i1 to 3 do begin writeVvedite chislo readlnzi.pol1 writeVvedite chislo readlnzi.pol2 writeVvedite chislo readlnzi.pol3 writeVvedite chislo readlnzi.pol4 end for i1 to 3 do xizi.pol1zi.pol2zi.pol3zi.pol44 for i1 to 3 do writex,xi02, readkey end. 19. Написать программу, в которой создается структура, содержащая поля имя. Фамилия, год рождения.

Создаются две переменных типа созданной структуры. Находится разница в годах для этих переменных.

Значения полей структуры и разницы выводятся на экран. .Паскаль uses crt type arewrecord imastring10 famstring20 godinteger end var i,cinteger aarray1 2 of arew begin clrscr for i1 to 2 do begin writelni, writeVvedite ima readlnai.ima writeVvedite familiu readlnai.fam writeVvedite god readlnai.god writelnai.ima ai.fam ai.god end if a1.god a2.god then ca1.god-a2.god else ca2.god-a1.god writeln writelnraznica ,c, let end. 16 include stdio.h include conio.h int z void zamint x, int y int z zx xxy yz-y void main clrscr int a,b,c,d printfvvedite a,b,c,d scanfd d d d,a,b,c,d zama,b printfd ,a printfd ,b zamc,d printfnd ,c printfd ,d 15. Написать программу, в которой через макро определяется размерность одномерного массива из 20 элементов.

Элементы массива вычисляются по формуле Ai3i12, являются вешественными числами.

Вывести на экран все элементы массива в столбик в виде целого числа, занимающего 8 позиций, для вывода элемента массива использовать указатель на массив. .Паскаль uses crt const a20 var iinteger rarray1 20 of real begin clrscr for i1 to a do begin ri3i12 writelnr,i ri80 end end. 26. Создать запись время с полями часы, минуты, секунды.

Составить и протестировать функцию в рамках задачи, которая вычисляет время D, прошедшее от времени t1 до времени t2. .Паскаль uses crt type vremjarecord chasinteger minutinteger secinteger end var i,c,m,sinteger aarray1 2 of vremja begin clrscr for i1 to 2 do begin writelni, writeVvedite chas readlnai.chas writeVvedite minuti readlnai.minut writeVvedite secundi readlnai.sec writelnai.chas ai.minut ai.sec end if a1.chas a2.chas then ca1.chas-a2.chas else ca2.chas-a1.chas writeln if a1.minut a2.minut then ma1.minut-a2.minut else ma2.minut-a1.minut writeln if a1.sec a2.sec then sa1.sec-a2.sec else sa2.sec-a1.sec writeln writelnraznica ,c, chasov ,m, minut ,s, secund readkey end. 23. Создайте структуру Tovar, хранящую информацию о товарах на складе.

Поля структуры код товара целое, наименование товара символьное, цена вещественное.

Создайте 3 переменных типа Tovar, описывающие сходные товары например, канцелярские принадлежности.

Отсортируйте данные по возрастанию цены и информацию, после сортировки, выведите на экран.Паскаль uses crt type tovarrecord kodinteger nazstring10 cenareal end var zarray1 3 of tovar rinteger i,jintegersreal mstring xarray1 3 of real Begin clrscr for i1 to 3 do begin writelni, writeVvedite kod tovara readlnzi.kod writeVvedite nazvanie tovara readlnzi.naz writeVvedite cenu tovara readlnzi.cena writeln end for j1 to 2 do for i2 to 3 do if zi-1.cena zi.cena then begin rzi-1.kod zi-1.kodzi.kod zi.kodr mzi-1.naz zi-1.nazzi.naz zi.nazm szi-1.cena zi-1.cenazi.cena zi.cenas end for i1 to 3 do begin writezi.kod, writezi.naz, writezi.cena02, writeln end readkey end. 2. Создайте структуру с именем Planeta.

Поля структуры номер планеты по удалению от Солнца целое, название планеты символьное, период обращения вокруг Солнца вещественное.

Создайте 3 переменных типа Planeta.

Отсортируйте данные по степени увеличения периода обращения вокруг Солнца.Си include conio.h include stdio.h include stdlib.h include math.h include iostream.h int i,j, n float r char m10 struct int n char naz10 float periud Planeta3 void main void clrscr fori0i 3i printfVvedite nomer planetu cin Planetai.n printfVvedite naimenovanie p cin Planetai.naz printfVvedite udalenie p cin Planetai.periud forj0j 2j fori1i 3i if Planetai-1.periud Planetai.periud rPlanetai-1.periud Planetai-1.periudPlanetai.periud Planetai.periudr nPlanetai-1.n Planetai-1.nPlanetai.n Planetai.nn mPlanetai-1.naz Planetai-1.nazPlanetai.naz Planetai.nazm fori0i 3i printfd ,Planetai.n printfs ,Planetai.naz printf3.3f ,Planetai.periud printfn 16. Написать программу, в которой используется функция ZAMint X, int Y, которая свой первый параметр заменяет на сумму аргументов, а второй на разность аргументов.

Предварительно в программе определяется 4 целых числа, значения которых и передаются в функцию. .Паскаль program ukaz uses crt var a,b,c,dinteger function zamxinteger yintegerinteger var zinteger type yinteger xinteger var a,cx b,dy begin zx xxy yz-y end begin clrscr writelnvvedite a,b,c,d readlna,b,c,d zama,b writelna writelnb zamc,d writelnc writelnd end. 27. Вычислить Y , 0 X 1, где A00,9992 A3-0,3212 A50,1463 A7 -0,0390. .Паскаль program lnx uses Crt var x, u, S, l, z Real k, I, m Integer A array1 10 of Real procedure pop begin repeat writelnvvedie 0 x 1 readlnx if x 0 and x 1 then until x 0 and x 1 end begin clrscr pop u x S 0 A1 0.9992 A3 -0.3212 A5 0.1463 A7-0.0390 z 1 for k 0 to 3 do begin m 2k 1 for I 1 to m do z uz S S Amz end l S writeln lnx ,l06 readkey end. 28. ВычислитьLog2X, 1 X sqrt2, где A12,8854 A30,9615 A50,5990. .Паскаль program logx uses Crt var x, u, S, l, z Real k, I, m Integer A array1 10 of Real procedure pop begin repeat writelnvvedite 1 x sqrt2 readlnx if x 1 and x sqrt2 then until x 1 and x sqrt2 end begin clrscr pop u x - 1 x 1 ux S 0 A1 2.8854 A3 0.9615 A5 0.5990 z 1 for k 0 to 2 do begin m 2k 1 for I 1 to m do z uz S S Amz end l S writeln log2x ,l06 readkey end. 1. Создайте структуру Tovar, хранящую информацию о товарах на складе.

Поля структуры код товара целое, наименование товара символьное, цена вещественное.

Создайте 3 переменных типа Tovar, описывающие сходные товары например, канцелярские принадлежности. Отсортируйте данные по возрастанию цены и информацию, после сортировки, выведите на экран.Си include conio.h include stdio.h include stdlib.h include math.h include iostream.h int i,j float r struct int kod char naim10 float chena A3 void main void clrscr fori0i 3i printfVvedite kod cin Ai.kod printfVvedite naimenovanie cin Ai.naim printfVvedite chenu cin Ai.chena forj0j 2j fori1i 3i if Ai-1.chena Ai.chena rAi-1.chena Ai-1.chenaAi.chena Ai.chenar fori0i 3i printfn3.3f ,Ai.chena 25. Создать запись с полями число, месяц, год для описания записи дата. Составить и протестировать функцию в рамках задачи, которая вычисляет интервал в днях между двумя датами.

Год принимает значения от 1900 до 2000 года. .Паскаль uses crt type datarecord cinteger minteger ginteger end var a,bdata d,t,r,olongint function hinteger begin if a.g 1900 and a.g 2000 and b.g 1900 and b.g 2000 then begin dabsa.g-b.g365 tabsa.m-b.m30 rabsa.c-b.c end odtr writelnd ,d writelnt ,t writelnr ,r writelno , o end begin clrscr writeVv c readlna.c writeVv m readlna.m writeVv g readlna.g writeVv c readlnb.c writeVv m readlnb.m writeVv g readlnb.g readkey h end.