Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Разработать программу вычисления функцииСтр 1 из 3Следующая ⇒
Билет 1. 1.Составить программу определения катета прямоугольного треугольника по известным значениям гипотенузы и второго катета В.. Program bil11; var a,b,c:Real; begin writeLn('wwedite znachenia b,c'); readln(b,c); a:=sqrt(c*c-b*b); writeln('a=',a); end. Разработать программу вычисления функции Program bil12; var x,y:Real; begin writeln('wwedite znachenia x'); readln(x); if x>0 then y:=5*cos(x)+8*x*x else y:=2*sin(x); writeln('y=',y); end. Билет 2. Составить программу вычисления объема полого цилиндра с внешним радиусом R и внутренним r. Высота цилиндра H. Program bil21; var v,n,r,h,p:Real; begin writeLn('wwedite znachenia r,n,h'); readln(r,n,h); p:=3.14; v:=p*n*n*h-p*r*r*h; writeln('v=',v:10:5); end. Ввести с клавиатуры 3 числа, найти среди них наименьшее. Предусмотреть выводы данных на дисплей. program bil22; var k,l,m:real; begin writeln('wwedite znachenia k,l,m'); readln(k,l,m); if (k=l)and(k=m)and(l=m) then writeln('m=l=k=',m:10:3) else begin if(k<=l)and(k<=m) then writeln('min k=',k:10:3) else begin if(l<=k)and(l<=m) then writeln('min l=',l:10:3) else writeln('min m=',m:10:3) end end end. Билет 3 1.Составить программу для определения расстояния пройденного физическим телом за время t. Тело движется с постоянным ускорением А и имеет начальную скорость V. Program bil11; var a,t,v,v0:Real; begin writeLn('wwedite znachenia a,t,v0'); readln(a,t,v0); v:=v0+a*t*t/2; writeln('v=',v:10:3); end. Ввести с клавиатуры 4 числа. Найти среди них числа, больше полусуммы введенных чисел. Предусмотреть выводы данных на дисплей. program bil31; var a:array [1..4] of real; i,j:integer; st:Real; begin for i:=1 to 4 do begin write('wwedite a[',i:2,']='); readln(a[i]); end; st:=0; for i:=1 to 4 do st:=st+a[i]; st:=st/2; j:=0; for i:=1 to 4 do if a[i]>st then begin writeln('chisla > st',a[i]:10:3); j:=j+1; end; if j=0 then writeln('no cisel'); end. Билет 4. 1.Составить программу для определения площади поверхности цилиндра с радиусом основания R и высотой H. Program bil21; var s,r,h,p:Real; begin writeLn('wwedite znachenia r,h'); readln(r,h); p:=3.14; s:=2*p*r*r+1*p*r*h; writeln('s=',s:10:2); end. Ввести с клавиатуры 7 чисел. Вывести на дисплей четные и нечетные числа, указать число четных и нечетных чисел. program bil41; var i,j:integer; a:array [1..7] of real; st:Real; begin for i:=1 to 7 do begin write('wwedite a[',i:2,']='); readln(a[i]); end; writeln('chetnie chisla'); j:=0; for i:=1 to 7 do begin st:=a[i]/2; if frac(st)=0 then begin writeln(a[i]:10:3); j:=j+1; end; end; writeln('chetnix chisel',j:2); writeln('nechetnie chisla'); j:=0; for i:=1 to 7 do begin st:=a[i]/2; if frac(st)<>0 then begin writeln(a[i]:10:3); j:=j+1; end; end; writeln('nechetnix chisel',j:2); end. Билет 5 1.Составить программу для определения расстояния на плоскости между двумя точками М1(х1, у1) и М2(х2, у2).
program bil51; var x1,x2,y1,y2,s:real; begin writeln('wwedite x1,x2,y1,y2'); readln(x1,x2,y1,y2); s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); writeln('dlinna s=',s:10:5); end. Ввести с клавиатуры 8 чисел. Найти их среднее значение. Найти числа большие среднего значения и меньшие среднего значения, подсчитать количество тех и других. Предусмотреть выводы данных на дисплей. program bil52; var i,j:integer; a:array [1..8] of real; st:Real; begin for i:=1 to 8 do begin write('wwedite a[',i:2,']='); readln(a[i]); end; st:=0; for i:=1 to 8 do st:=st+a[1]; st:=st/2; j:=0; writeln('chisla > st'); for i:=1 to 8 do begin if a[i]>st then begin writeln(a[i]:10:3); j:=j+1; end; end; writeln('kol-vo chisel > st=',j); j:=0; writeln('chisla < st'); for i:=1 to 8 do begin if a[i]<st then begin writeln(a[i]:10:3); j:=j+1; end; end; writeln('kol-vo chisel < st=',j); end. Билет 6. Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей. program bil62; var i,j:integer; a:array [1..4] of real; min,max:Real; begin for i:=1 to 4 do begin write('wwedite a[',i:2,']='); readln(a[i]); end; min:=a[1]; for i:=1 to 4 do if min>=a[i] then min:=a[i]; writeln('min=',min:10:3); max:=a[1]; for i:=1 to 4 do if max<=a[i] then max:=a[i]; writeln('max=',max:10:3); end. Билет 7. Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей. program bil72; var i,j:integer; a:array [1..3] of real; min,max:Real; begin for i:=1 to 3 do begin write('wwedite a[',i:2,']='); readln(a[i]); end; min:=a[1]; max:=a[1]; for i:=2 to 3 do begin if min>=a[i] then min:=a[i]; if max<=a[i] then max:=a[i]; end; j:=0; for i:=1 to 3 do if (a[i]>min)and(a[i]<max) then begin writeln('srednie ',a[i]:10:3); j:=j+1 end; if j=0 then writeln('srednego net'); end. Билет 8. 2.Разработать программу вычисления корней квадратного уравнения ax2+bx+c=0. program bil82; var a,b,c,d,x1,x2:real; begin writeln('wwedite a,b,c'); readln(a,b,c); d:=b*b-4*a*c; if d>=0 then begin x1:=(-b+sqrt(d))/2*a; x2:=(-b-sqrt(d))/2*a; writeln('x1=',x1:10:3,'x2=',x2:10:3); end else writeLn('resheniy net'); end. Билет 9-10 Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей. program bil92; var i,j,k:integer; a:array [1..3,1..2] of real; max:Real; begin for i:=1 to 3 do for j:=1 to 2 do begin write('wwedite a[',i:2,',',j:2,']='); readln(a[i,j]); end; max:=a[i,1]+a[i,2]; k:=i; for i:=1 to 3 do begin if a[i,1]+a[i,2]>max then begin max:=a[i,1]+a[i,2]; k:=i; end; end; writeln('max summa=',max:10:3,' nomer par ',k); end. Билет 11. Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.
program bil112; var i,j:integer; a:array [1..3,1..2] of real; min:Real; begin for i:=1 to 3 do for j:=1 to 2 do begin write('wwedite a[',i:2,',',j:2,']='); readln(a[i,j]); end; min:=a[i,1]*a[i,2]; j:=i for i:=1 to 3 do if a[i,1]*a[i,2]<min then begin j:=i; min:=a[i,1]*a[i,2]; end; writeln('min proizvedenie=',min:10:3,' nomer par ',j); end. Билет 12 Билет 13 Билет 14. Билет 15 Билет 16. Билет 17. Билет 18. Билет 19. 1.Разработать программу вычисления корней квадратного уравнения ax2+bx+c=0. program bil82; var a,b,c,d,x1,x2:real; begin writeln('wwedite a,b,c'); readln(a,b,c); d:=b*b-4*a*c; if d>=0 then begin x1:=(-b+sqrt(d))/2*a; x2:=(-b-sqrt(d))/2*a; writeln('x1=',x1:10:3,'x2=',x2:10:3); end else writeLn('resheniy net'); end. 2. Вычислить функцию у = Sin 3х (-3p< х <3 p). Предусмотреть вывод данных в виде таблиц. program bil192; var n,y,x:real; begin writeln('wwedite x,n'); readln(x,n); if (x>-3n)and(x<3n) then begin y:=sin(3*x); writeln('y=',y:10:5); end else writeln('ne udovletvoryaet usloviu'); end. Билет 20. Билет 21-22. Билет 23. 1. Вычислить функцию у = 2х2 - 8Sinх (-2< х >3). Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений. program bil122; var a,b,h,x,y,max,min:real; begin writeln('wwedite a,b,h'); readln(a,b,h); x:=a+h; min:=2*x*x-8*sin(x); max:=2*x*x-8*sin(x); repeat y:=2*x*x-8*sin(x); writeln('x=',x:5:3,' y=',y:10:5); x:=x+h; if min>y then min:=y; if max<y then max:=y; until x>=b; writeln('max=',max:10:5,' min=',min:10:5); end. С клавиатуры задается последовательность чисел. Найти сумму чисел, предшествующих первому отрицательному в задаваемой последовательности. Вывести сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Найти число таких чисел. Program bil232; label 1; var i,j:integer; sum:real; a:array [1..20] of real; begin for i:=1 to 20 do begin write('wwedite element posledovatelnost a[',i:2,']='); readln(a[i]); end; j:=0; sum:=0; for i:=1 to 20 do begin if a[i]>0 then begin sum:=sum+a[i]; if (a[i]>1)and(a[i]<5) then begin writeln('chislo ',a[i]:5:3,' v intervale ot 1 do 5'); j:=j+1; end; end else goto 1 end; 1: writeln('summa do 1 menshe 0',sum:10:5); writeln('chislo chisel v itervale ot 1 do 5 = ',j:2); end. Билет 24 1.Вычислить функцию у = Sin 3х (-3p< х <3 p). Предусмотреть вывод данных в виде таблиц. program bil192; var n,y,x:real; begin writeln('wwedite x,n'); readln(x,n); if (x>-3n)and(x<3n) then begin y:=sin(3*x); writeln('y=',y:10:5); end else writeln('ne udovletvoryaet usloviu'); end. 2. Дано положительное число e, и последовательность а1, а2, а3..., образованная по следующему закону: Найти первый член последовательности, для которого выполняется условие: abs(an-an-1)<e. Вывести на экран an и n. program bil242; label 1; var i:integer; e,j:real; a: array [1..100] of real; begin for i:=1 to 100 do a[i]:=1-(1/(1+i)); write('wwedite e='); readln(e); j:=0; for i:=1 to 100 do if abs(a[i]-j)<e then begin writeln('vipolnyaet uslovie a[',i:2,']=',a[i]:5:3); writeln('nomer = ',i); goto 1; end else j:=a[i]; 1: end. Билет 25. 1.Вычислить функцию у = Cos2x (-p< х < p). Предусмотреть вывод данных в виде таблиц. program bil142; var n,y,x:real; begin writeln('wwedite x,n'); readln(x,n); if (x>-n)and(x<n) then begin y:=cos(2*x); writeln('y=',y:10:5); end else writeln('ne udovletvoryaet usloviu'); end. 2. Начав тренировки, спортсмен в первый день пробежал х км. Каждый следующий день он увеличивал норму на 10 % от предыдущего дня. Через сколько дней спортсмен будет пробегать больше у км.? program bil252; var x,y: real; i:integer; begin writeln('wwedite rezultat 1 dnya'); readln(x); writeln('wwedute chislo y'); readln(y); i:=1; repeat begin x:=x+0.1*x; i:=i+1; end; until x>y; writeln('cherez ',i:2,' dnya'); end. Билет 26 1. Вычислить функцию у = 2х2 - 6Sinх (-2< х >3). Найти ее минимум и максимум. Вывести таблицу функции. program bil122; var a,b,h,x,y,max,min:real; begin writeln('wwedite a,b,h'); readln(a,b,h); x:=a+h; min:=2*x*x-6*sin(x); max:=2*x*x-6*sin(x); repeat y:=2*x*x-6*sin(x); writeln('x=',x:5:3,' y=',y:10:5); x:=x+h; if min>y then min:=y; if max<y then max:=y; until x>=b; writeln('max=',max:10:5,' min=',min:10:5); end. 2. Составить таблицу степеней числа 3: 3n, n=1, 2, 3...i Прекращать печатать таблицу, когда 3n превысит заданное число D. Вычисления проводить не используя операцию возведения в степень.
program bil262; var n:integer; x,x1,d:real; begin write('chislo stepen kotorogo ishem '); readln(x); write('chislo sravneniya '); readln(d); x1:=x; n:=0; repeat begin x:=x*x1; n:=n+1; writeln('n=',n:2,' x=',x:6:2); end until x>d; end. Билет 27. 1. Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки. program bil62; var i,j,k:integer; a:array [1..4,1..3] of real; b:array [1..4] of real; begin for i:=1 to 4 do for j:=1 to 3 do begin write('wwedite a[',i:2,',',j:2,']='); readln(a[i,j]); end; writeln('syariy massiv'); for j:=1 to 3 do begin write(a[1,j]:5:3,' '); write(a[2,j]:5:3,' '); write(a[3,j]:5:3,' '); write(a[4,j]:5:3,' '); writeln; end; writeln('noviy massiv'); for i:=1 to 4 do begin b[i]:=a[i,1]+a[i,2]+a[i,3]; write(b[i]:5:3,' '); end; end. 2. В очередном году урожайность ячменя составила 20ц с гектара. В среднем каждые два года урожайность увеличивается на 5%. Определить через сколько лет урожайность превысит Nц с га. program bil272; var x,n: real; i:integer; begin writeln('uroshay 1 goda'); readln(x); writeln('neobxodimiy uroshay'); readln(n); i:=1; repeat begin x:=x+0.05*x; i:=i+2; end; until x>n; writeln('cherez ',i:2,' god'); end. Билет 28 1. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива. program bil72; var i,j:integer; a:array [1..4,1..4] of real; begin for i:=1 to 4 do for j:=1 to 4 do begin write('wwedite a[',i:2,',',j:2,']='); readln(a[i,j]); end; writeln('syariy massiv'); for j:=1 to 4 do begin write(a[1,j]:5:3,' '); write(a[2,j]:5:3,' '); write(a[3,j]:5:3,' '); write(a[4,j]:5:3,' '); writeln; end; writeln('zadat stolbez'); readln(i); for j:=1 to 4 do begin writeln(a[i,j]:5:3,' '); end; writeln; writeln('zadat stroku'); readln(j); for i:=1 to 4 do begin write(a[i,j]:5:3,' '); end; writeln; end. 2. Среди последовательности чисел 1, 1+1/2, 1+1/2+1/3,... найти первое, большее заданного числа а. Вывести на экран само число и его номер. program bil282; label 1; var x,a:real; i,j:integer; Begin write('wwedite x='); readln(x); write('wwedite ogranichenie a='); readln(a); j:=1; for i:=2 to 100 do Begin x:=x+(1/i); j:=j+1; if x>a then goto 1; end; 1: writeln('chislo x>a =',x:10:5); writeln('nomer chisla ',j); End. Билет 29. 1. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива. program bil182; var i,j:integer; a:array [1..5,1..5] of real; begin for i:=1 to 5 do for j:=1 to 5 do begin write('wwedite a[',i:2,',',j:2,']='); readln(a[i,j]); end; writeln('syariy massiv'); for j:=1 to 5 do begin write(a[1,j]:5:3,' '); write(a[2,j]:5:3,' '); write(a[3,j]:5:3,' '); write(a[4,j]:5:3,' '); write(a[5,j]:5:3,' '); writeln; end; writeln('zadat stolbez'); readln(i); for j:=1 to 5 do begin writeln(a[i,j]:5:3,' '); end; writeln; writeln('zadat stroku');
readln(j); for i:=1 to 5 do begin write(a[i,j]:5:3,' '); end; writeln; end. Билет 30. 1. Вычислить функцию у = Sin 3х (-p< х < p). Предусмотреть вывод данных в виде таблиц. program bil132; var n,y,x:real; begin writeln('wwedite x,n'); readln(x,n); if (x>-n)and(x<n) then begin y:=sin(3*x); writeln('y=',y:10:5); end else writeln('ne udovletvoryaet usloviu'); end. Билет 1. 1.Составить программу определения катета прямоугольного треугольника по известным значениям гипотенузы и второго катета В.. Program bil11; var a,b,c:Real; begin writeLn('wwedite znachenia b,c'); readln(b,c); a:=sqrt(c*c-b*b); writeln('a=',a); end. Разработать программу вычисления функции Program bil12; var x,y:Real; begin writeln('wwedite znachenia x'); readln(x); if x>0 then y:=5*cos(x)+8*x*x else y:=2*sin(x); writeln('y=',y); end. Билет 2.
|
||||||||
Последнее изменение этой страницы: 2016-08-16; просмотров: 1449; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.17.79.60 (0.228 с.) |