Билет 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