Программы на Turbo Pascal 7.0 к экзамену

Билет 1Var h,l,w,s real Begin WriteLn Вычисление поверхности площади параллелепипеда.WriteLn Введитеисходные данные Write Длинна см - gt ReadLn l Write Ширина см - gt ReadLn w Write Высота см - gt ReadLn h s l w l h w h 2 Writeln Площадь поверхности ,s 4 2, кв.см ReadLn Билет 2Var reb,ob real Begin WriteLn Вычисление объ макуба. Write Введитедлину ребра см и нажмите lt Enter gt - gt ReadLn reb ob reb reb reb WriteLn Обьем куба ,ob 4 3, куб.см ReadLn Билет 3 Const p 3.14 Var r,h,v real Begin WriteLn Вычисление объ ма цилиндра.

WriteLn Введитеисходные данные Write Радиусоснования цилиндра- gt ReadLn r Write Высотацилиндра- gt ReadLn h v p r r h WriteLn Объ м цилиндра ,v 4 3, куб.см WriteLn Для завершения работыпрограммы нажмите lt Enter gt . ReadLn Билет 4Var ct,ck,cena real t,k integer Begin WriteLn Вычисление стоимости покупки. WriteLn Введитеисходные данные.Write Цена 1тетради- gt ReadLn ct Write Количествотетрадей- gt ReadLn t Write Цена 1карандаша- gt ReadLn ck Write Количествокарандашей- gt ReadLn k cena ct t ck k WriteLn Стоимость покупки ,cena 4 2, руб. readln Билет 5Var ct,co,stoim real k integer Begin WriteLn Вычисление стоимостипокупки.

WriteLn Введитеисходные данные Write Ценатетради- gt Readln ct Write Цена обложки- gt Readln co Write Количество комплектов- gt Readln k stoim ct k co k WriteLn Стоимость покупки ,stoim 4 2, руб. Readln Билет 6Var cena,ves,stoim real Begin WriteLn Вычисление стоимости покупки.WriteLn Введитеисходные данные.

Write Цен одногокилограмма яблок руб gt ReadLn cena Write Вес яблок кг - gt ReadLn ves stoim cena ves WriteLn Стоимость покупки ,stoim 4 2, рублей. ReadLn Билет 7Var s,l,h real Begin WriteLn Вычисление площади треугольника.WriteLn Введитеисходные данные Write Основание см - gt ReadLn l Write Высота см - gt ReadLn h s 1 2 l h WriteLn Площадь треугольника ,s 4 2, кв.см. ReadLn Билет 8Var a,b integer Begin WriteLn Введите в одной строке два целых числа и нажмите lt Enter gt . ReadLn a,b If a lt b then WriteLn a, меньше ,b else If a gt b then WriteLn b, меньше ,a else If a b then WriteLn Оба числа равны ,a readln Билет 9Var d,a,c,b integer Begin randomize ClrScr Repeat a random 10 b random 10 WriteLn WriteLn Сколько будет ,a, x ,b ReadLn c d a b If c d then begin WriteLn Правильно WriteLn a, x ,b, будет ,d end Until c lt gt d WriteLn Вы ошиблись ,a, x ,b, будет ,d readLn end. readln end.Билет 10Var a,b,c,d,i integer Begin Randomize ClrScr i 0 Repeat a random 100 b random 100 WriteLn WriteLn Сколько будет ,a ,b Write Введитеответ и нажмите lt Enter gt - gt ReadLn c d a-b If c d Then begin WriteLn Правильно! WriteLn a ,b, будет ,d end else If c lt gt d then begin i i 1 WriteLn Вы ошиблись. WriteLn a ,b, будет ,d End Until i 5 readln Билет 11Var a integer Begin Write Введитеномер месяца число от 1 до 12 - gt ReadLn a case a of 1 WriteLn Зима. 2 WriteLN Зима. 3 WriteLN Весна. 4 WriteLN Весна. 5 WriteLN Весна. 6 WriteLN Лето. 7 WriteLN Лето. 8 WriteLN Лето. 9 WriteLN Осень. 10 WriteLN Осень. 11 WriteLN Осень. 12 WriteLN Зима. else writeLn Ошибка ввода данных.

END readLn Билет 12Var a integer Begin WriteLn Введитеномер дня недели число от 1 до 7 . Write - gt ReadLn a Case a of 5 WriteLn Рабочий день. 6 WriteLn Суббота. 7 WriteLn Воскресенье. else WriteLn Ошибка ввода данных. end ReadLn Билет 13Const v 2.2 mo 1.0 mu 1.2 s 1.4 Var kod integer dlit,cena real Begin cena 0 WriteLn Вычисление стоимости разговора по телефону.

WriteLn Введитеисходные данные.

Write Введитекод города - gt ReadLn Kod Write Длительность разговора целых минут - gt ReadLn Dlit Case kod of 423 begin cena dlit v WriteLn WriteLn Город Код Стоимость WriteLn разговора WriteLn WriteLn Владивосток 423 ,cena 4 2, WriteLn end 095 WriteLn end readLn Билет 14Var s,k,o integer Begin Write Введитеколичество рублей - gt ReadLn k o k mod 10 s k mod 100 if s 11 then WriteLn ,k, рублей. else if s 12 then WriteLn ,k, рублей. else if s 13 then WriteLn ,k, рублей. else if s 14 then WriteLn ,k, рублей. else Case o of 1 WriteLn ,k, рубль. 4 WriteLn ,k, рубля. 9 WriteLn ,k, рублей. 0 WriteLn ,k, рублей. end ReadLn Билет 15Var s,k,o integer Begin Write Введитеколичество копеек - gt ReadLn k o k mod 10 s k mod 100 if s 11 then WriteLn ,k, копеек. else if s 12 then WriteLn ,k, копеек. else if s 13 then WriteLn ,k, копеек. else if s 14 then WriteLn ,k, копеек. else Case o of 1 WriteLn ,k, копейка. 4 WriteLn ,k, копейки. 9 WriteLn ,k, копеек. 0 WriteLn ,k, копеек. end ReadLn Билет 16Var den,mes,god,n integer last boolean Begin WriteLn Введите цифрамисегоднюю дату число месяц год - gt . ReadLn den,mes,god last false case mes of 1,3,5,7,8,10,12 if den 31 then last true 4,6,9,11 if den 30 then last true 2 if den 28 then begin n god mod 4 if n lt gt 0 then last true end end if last then begin Writeln Последний день месяца! den 1 ifmes 12 then Begin mes 1 god god 1 Writeln Снаступающим Новым годом! endelsemes mes 1 endelseden den 1 Writeln Завтра ,den ,mes ,god readln Билет 17Var a,b integer Begin Write Введите целоечисло- gt ReadLn a b a mod 2 If b lt gt 0 then WriteLn Число ,a, является неч тным. else WriteLn Число ,a, являетсяч тным. ReadLn Билет 18Var a,b integer Begin WriteLn Введите целое число с клавиатуры и нажмите lt Enter gt ReadLn a b a mod 3 if b lt gt 0 then WriteLn Число ,a, не делиться на 3 равные части. else WriteLn Число ,a, делиться на 3 равные части. readLn Билет 19Var Cena,stoim,cenav real dlit,den integer Begin WriteLn Вычисление стоимости разговора потелефону.

WriteLn Введите исходные данные Write Введитецену одной минуты- gt ReadLn cenav Write Длительность разговора целое количество минут - gt ReadLn dlit Write Деньнедели 1-Понедельник 7-Воскресенье - gt ReadLn den Case den of 1 5 begin cena cenav stoim cena dlit WriteLn Стоимостьразговора- gt ,stoim 4 2 end 6,7 begin cena cenav 100 20 stoim cena dlit WriteLn Предоставляется скидка20 WriteLn Стоимость разговора- gt ,stoim 4 2 end end ReadLn Билет 20Var ves,vesv,rostv,a integer Begin WriteLN Введите рост и вес через пробел и нажмите lt Enter gt . ReadLN rostv,vesv ves rostv-100 If ves vesv then WriteLn У васоптимальный вес для вашего роста. else If ves lt vesv then begin a vesv-ves WriteLn Вамнеобхолимо похудеть на ,a, килограмм. end else If Ves gt vesv then begin a ves-vesv WriteLn Вамнеобхолимо поправиться на ,a, килограмм. end ReadLn Билет 21Var f string i integer Begin i 0 Write Введите фамилию и нажмите lt Enter gt - gt ReadLn f Repeat i i 1 WriteLn WriteLn i, - ,f until i 10 readLn Билет 22Var i,k real Begin i 0 WriteLn ж а в . Repeat i i 1 k i i WriteLn WriteLn ,i 2 0, ,k 4 0, until i 10 WriteLn readLn Билет 24Var n,summ,i integer Begin Writeln Вычисление суммы положительных чисел Write Введитеколичество сумированных чисел - gt Readln n summ 0 for i 1 to n do Summ summ i Write Суммапервых ,n, целых положительных чисел Writeln равна ,summ readln Билет 26Var i,n,s integer Begin Writeln Введите кол-во Readln n For i 1 to n do If i mod 2 1 then s s i Writeln s Readln Билет 27Const n 3 Var i,max integer a array 1 n of integer Begin max 0 For i 1 to n do Begin Writeln Введите число Readln a i If a i gt max then max a i End Writeln Максимальное - ,max Readln Билет 28Var a integer Begin Writeln Введите целое цисло Readln a If a lt 9 then Writeln Число ,a, -простое Else Writeln Число ,a, -не простое Readln Билет 29Var i,k,c integer BeginRandomize k random 10 Writeln k for i 1 to 5 do Begin Writeln Какое Readln c If k c then Writeln Правильно Writeln Нажмите lt enter gt Readln If k c then halt Else Writeln Неа End Readln Билет 30Билет 31Var a string i integer BeginWriteln Введите слово Readln a clrscr For i 1 to length a do Begin Write a i Delay 3000 End Readln Билет 32Var a char Begin Writeln п аи па вл а а л в в з г Repeat Writeln в б Readln a Writeln ,a, ,ord a Until a . Билет 33Var s,i,a integer b array 0 127 of char Begins 1 For i 0 to 127 do b i chr i For i 0 to 127 do Begin Write b i If i 8 s then Begin Writeln s s 1 End End Readln Билет 33 2 Var ch,j,i,a integer b array 1 16,1 8 of char Begin ch 0 For i 1 to 16 do For j 1 to 8 do Begin ch ch 1 b i,j chr ch End For i 1 to 16 do For j 1 to 8 do Begin Write b i,j If j 8 then Writeln End Readln Билет 34Var st string i,len byte Begin Writeln Введите Readln st len length st For i 1 to len do case st i of а п st i chr ord st i -32 р я st i chr ord st i -80 End Write st readln Автор RASIK Сайт RASIK www.rasik.by.ru Почта RASIK rasik nptus.ru.