Билет 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
Программы на Turbo Pascal 7.0 к экзамену
107
0
6 минут
Понравилась работу? Лайкни ее и оставь свой комментарий!
Для автора это очень важно, это стимулирует его на новое творчество!