Шпаргалка по предмету "Программирование, программное обеспечение, СУБД"

Узнать цену работы по вашей теме


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

Билет 1 Var h, l, w, s: real; Begin
WriteLn('Вычисление поверхности площади параллелепипеда. '); WriteLn('Введите исходные данные: '); Write('Длинна(см)->'); ReadLn(l); Write('Ширина(см)->'); ReadLn(w); Write('Высота(см)->'); ReadLn(h); s: =(l*w+l*h+w*h)*2; Writeln('Площадь поверхности: ', s: 4: 2, ' кв. см'); ReadLn; Билет 2 Var reb, ob: real; Begin WriteLn('Вычисление объёма куба. '); Write('Введите длину ребра (см) и нажмите ->'); 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('Радиус основания цилиндра->'); ReadLn(r); Write('Высота цилиндра->'); ReadLn(h); v: =(p*(r*r))*h; WriteLn('Объём цилиндра: ', v: 4: 3, ' куб. см');

WriteLn('Для завершения работы программы нажмите . '); ReadLn; Билет 4 Var ct, ck, cena: real; t, k: integer; Begin WriteLn('Вычисление стоимости покупки. '); WriteLn('Введите исходные данные. '); Write('Цена 1 тетради->'); ReadLn(ct); Write('Количество тетрадей->'); ReadLn(t); Write('Цена 1 карандаша->'); ReadLn(ck); Write('Количество карандашей->'); ReadLn(k); cena: =(ct*t)+(ck*k); WriteLn('Стоимость покупки: ', cena: 4: 2, ' руб. '); readln; Билет 5 Var ct, co, stoim: real; k: integer; Begin WriteLn('Вычисление стоимости покупки. '); WriteLn('Введите исходные данные: '); Write('Цена тетради->'); Readln(ct); Write('Цена обложки->'); Readln(co); Write('Количество комплектов->'); Readln(k); stoim: =(ct*k)+(co*k); WriteLn('Стоимость покупки: ', stoim: 4: 2, ' руб. '); Readln; Билет 6 Var cena, ves, stoim: real; Begin WriteLn('Вычисление стоимости покупки. '); WriteLn('Введите исходные данные. '); Write('Цен одного килограмма яблок (руб. )->'); ReadLn(cena); Write('Вес яблок (кг)->'); ReadLn(ves); stoim: =cena*ves; WriteLn('Стоимость покупки ', stoim: 4: 2, ' рублей. '); ReadLn; Билет 7 Var s, l, h: real; Begin WriteLn('Вычисление площади треугольника. '); WriteLn('Введите исходные данные: '); Write('Основание (см)->'); ReadLn(l); Write('Высота (см)->'); ReadLn(h); s: =1/2*l*h; WriteLn('Площадь треугольника ', s: 4: 2, ' кв. см. '); ReadLn; Билет 8 Var a, b: integer; Begin

WriteLn('Введите в одной строке два целых числа и нажмите . '); ReadLn(a, b); If a WriteLn(a, ' меньше ', b) else If a>b then WriteLn(b, ' меньше ', a) else If a=b then WriteLn('Оба числа равны ', a); readln; Билет 9 Var 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 cd; WriteLn('Вы ошиблись ', a, 'x', b, ' будет ', d, '. '); readLn; end. readln; end. Билет 10 Var a, b, c, d, i: integer; Begin Randomize; ClrScr; i: =0; Repeat a: =random(100); b: =random(100); WriteLn(' '); WriteLn('Сколько будет ', a, '-', b, '. '); Write('Введите ответ и нажмите ->'); ReadLn(c); d: =a-b; If c=d Then begin WriteLn('Правильно! '); WriteLn(a, '-', b, ' будет ', d, '. '); end else If cd then begin i: =i+1; WriteLn('Вы ошиблись. '); WriteLn(a, '-', b, ' будет ', d); End; Until i=5; readln; Билет 11 Var a: integer; Begin Write('Введите номер месяца (число от 1 до 12) ->'); 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; Билет 12 Var a: integer; Begin WriteLn('Введите номер дня недели (число от 1 до 7). '); Write('->'); ReadLn(a); Case a of 1...5: WriteLn('Рабочий день. '); 6: WriteLn('Суббота. '); 7: WriteLn('Воскресенье. '); else WriteLn('Ошибка ввода данных. '); end; ReadLn; Билет 13 Const v=2. 2; mo=1. 0; mu=1. 2; s=1. 4; Var kod: integer; dlit, cena: real; Begin cena: =0; WriteLn('Вычисление стоимости разговора по телефону. '); WriteLn('Введите исходные данные. '); Write('Введите код города ->'); ReadLn(Kod); Write('Длительность разговора (целых минут) ->'); 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; Билет 14 Var s, k, o: integer; Begin Write('Введите количество рублей ->'); 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, ' рубль. '); 2...4: WriteLn(' ', k, ' рубля. '); 5...9: WriteLn(' ', k, ' рублей. '); 0: WriteLn(' ', k, ' рублей. '); end; ReadLn; Билет 15 Var s, k, o: integer; Begin Write('Введите количество копеек ->'); 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, ' копейка. '); 2...4: WriteLn(' ', k, ' копейки. '); 5...9: WriteLn(' ', k, ' копеек. '); 0: WriteLn(' ', k, ' копеек. '); end; ReadLn; Билет 16 Var den, mes, god, n: integer; last: boolean; Begin

WriteLn('Введите цифрами сегоднюю дату (число месяц год) ->. '); 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 n0 then last: =true; end; end; if last then begin Writeln('Последний день месяца! '); den: =1; if mes=12 then Begin mes: =1; god: =god+1; Writeln('Снаступающим Новым годом! '); end else mes: =mes+1; end else den: =den+1; Writeln('Завтра ', den, '. ', mes, '. ', god); readln; Билет 17 Var a, b: integer; Begin Write('Введите целое число->'); ReadLn(a); b: =a mod 2; If b0 then WriteLn('Число ', a, ' является нечётным. ') else WriteLn('Число ', a, ' является чётным. '); ReadLn; Билет 18 Var a, b: integer; Begin
WriteLn('Введите целое число с клавиатуры и нажмите '); ReadLn(a); b: =a mod 3; if b0 then WriteLn('Число ', a, ' не делиться на 3 равные части. ') else WriteLn('Число ', a, ' делиться на 3 равные части. '); readLn; Билет 19 Var Cena, stoim, cenav: real; dlit, den: integer; Begin

WriteLn(' Вычисление стоимости разговора по телефону. '); WriteLn(' Введите исходные данные: '); Write('Введите цену одной минуты->'); ReadLn(cenav);
Write('Длительность разговора (целое количество минут)->'); ReadLn(dlit); Write('День недели (1-Понедельник...7-Воскресенье)->'); ReadLn(den); Case den of 1...5: begin cena: =cenav; stoim: =cena*dlit; WriteLn('Стоимость разговора->', stoim: 4: 2); end; 6, 7: begin cena: =(cenav/100)*20; stoim: =cena*dlit; WriteLn('Предоставляется скидка 20%'); WriteLn('Стоимость разговора->', stoim: 4: 2); end; end; ReadLn; Билет 20 Var ves, vesv, rostv, a: integer; Begin
WriteLN('Введите рост и вес через пробел и нажмите . '); ReadLN(rostv, vesv); ves: =rostv-100; If ves=vesv then WriteLn('У вас оптимальный вес для вашего роста. ') else If ves a: =vesv-ves; WriteLn('Вам необхолимо похудеть на ', a, ' килограмм. '); end else If Ves>vesv then begin a: =ves-vesv;

WriteLn('Вам необхолимо поправиться на ', a, ' килограмм. '); end; ReadLn; Билет 21 Var f: string; i: integer; Begin i: =0; Write('Введите фамилию и нажмите ->'); ReadLn(f); Repeat i: =i+1; WriteLn(' '); WriteLn(i, ' - ', f); until i=10; readLn; Билет 22 Var 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; Билет 24 Var n, summ, i: integer; Begin Writeln('Вычисление суммы положительных чисел'); Write('Введите количество сумированных чисел ->'); Readln(n); summ: =0; for i: =1 to n do Summ: =summ+i; Write('Сумма первых ' , n, ' целых положительных чисел'); Writeln(' равна ', summ); readln; Билет 26 Var 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; Билет 27 Const 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]>max then max: =a[i]; End; Writeln('Максимальное - ', max); Readln; Билет 28 Var a: integer; Begin Writeln('Введите целое цисло'); Readln(a); If a Writeln('Число ', a, '-простое') Else Writeln('Число ', a, '-не простое'); Readln; Билет 29 Var i, k, c: integer; Begin Randomize; k: =random(10); Writeln(k); for i: =1 to 5 do Begin Writeln('Какое'); Readln(c); If k=c then Writeln('Правильно'); Writeln('Нажмите '); Readln; If k=c then halt Else Writeln('Неа '); End; Readln; Билет 30 Билет 31 Var a: string; i: integer; Begin Writeln('Введите слово'); Readln(a); clrscr; For i: =1 to length(a) do Begin Write(a[i]); Delay(3000); End; Readln; Билет 32 Var a: char; Begin Writeln('„“п § ўҐа襨п а Ў®вл Їа®Ја ¬¬л  ¦¬ЁвҐ в®зЄг'); Repeat Writeln('‚ўҐ¤ЁвҐ бЁ¬ў®“'); Readln(a); Writeln('‘Ё¬ў®“: ', a, ' Љ®¤ : ', ord(a)); Until a='. '; Билет 33 Var s, i, a: integer; b: array[0...127] of char; Begin s: =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; Билет 34 Var 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


Не сдавайте скачаную работу преподавателю!
С помощью нашего сервиса Вы можете собрать свою коллекцию шпаргалок по нужному предмету, и распечатать готовые ответы в удобном для вырезания виде. Для этого начните собирать ответы, добавляя в "Мои шпаргалки".

Доработать Узнать цену работы по вашей теме
Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Делаем шпаргалки правильно:
! Шпаргалки для экзаменов Какие бывают шпаргалки, как их лучше подготовить и что писать.
! Делаем правильную шпаргалку Что представляет собой удобная и практичная шпаргалка, как ее сделать.
! Как воспользоваться шпаргалкой В какой момент лучше достать шпаргалку, как ей воспользоваться и что необходимо учесть.

Читайте также:
Сдаем экзамены Что представляет собой экзамен, как он проходит.
Экзамен в виде тестирования Каким образом проходит тестирование, в чем заключается его суть.
Готовимся к экзаменам Как правильно настроиться, когда следует прекратить подготовку и чем заниматься в последние часы.
Боремся с волнением Как преодолеть волнение, как внушить себе уверенность.
Отвечаем на экзамене Как лучше отвечать и каким идти к преподавателю.
Не готов к экзамену Что делать если не успел как следует подготовиться.
Пересдача экзамена На какое время назначается пересдача, каким образом она проходит.
Микронаушники Что такое микронаушник или "Профессор .. ллопух ...".

Виды дипломных работ:
выпускная работа бакалавра Требование к выпускной работе бакалавра. Как правило сдается на 4 курсе института.
магистерская диссертация Требования к магистерским диссертациям. Как правило сдается на 5,6 курсе обучения.