Geum.ru

Информация о готовой работе

Бесплатная студенческая работ № 5602

Билет 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('Введите длину ребра (см) и нажмите <Enter> ->'); 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('Для завершения работы программы нажмите <Enter>.'); 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('Введите в одной строке два целых числа и нажмите <Enter>.'); ReadLn(a,b); If a<b then 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 c<>d; 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('Введите ответ и нажмите <Enter> ->'); ReadLn(c); d:=a-b; If c=d Then begin WriteLn('Правильно!'); WriteLn(a,'-',b,' будет ',d,'.'); end else If c<>d 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 n<>0 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 b<>0 then WriteLn('Число ',a,' является нечётным.') else WriteLn('Число ',a,' является чётным.'); ReadLn; Билет 18 Var a,b:integer; Begin WriteLn('Введите целое число с клавиатуры и нажмите <Enter>'); ReadLn(a); b:=a mod 3; if b<>0 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('Введите рост и вес через пробел и нажмите <Enter>.'); ReadLN(rostv,vesv); ves:=rostv-100; If ves=vesv then WriteLn('У вас оптимальный вес для вашего роста.') else If ves<vesv then begin 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('Введите фамилию и нажмите <Enter> ->'); 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<9 then 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('Нажмите <enter>'); 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: Почта RASIK:

Вы можете приобрести готовую работу

Альтернатива - заказ совершенно новой работы?

Вы можете запросить данные о готовой работе и получить ее в сокращенном виде для ознакомления. Если готовая работа не подходит, то закажите новую работуэто лучший вариант, так как при этом могут быть учтены самые различные особенности, применена более актуальная информация и аналитические данные