![]()
|
|||||||
begin. fori:=1 ton do. fori:=1 ton do. fori:=1 to10 do. forj:=1 to10 do. if(a=0) then. ifb=0 thenСтр 1 из 7Следующая ⇒
2. Сконструируйте программу заполнения одномерного массива В(n) так, чтобы каждый элемент с четным индексом был равен половине своего номера, а каждый элемент с нечетным индексом - 0.
programmassive; constn=10; vara:array[1..n] ofreal; i:integer;
begin fori:=1 ton do ifodd(i) thena[i]:=0 elsea[i]:=i/2;
writeln('elementy massiva'); fori:=1 ton do write(a[i]:8:3); readln; end.
programmassive; typemass=array[1..10] ofreal; vara,b:mass; max1,max2:real; pr:real; j:integer;
proceduremaximum(m:mass; varz:real); vari:integer; begin z:=m[1]; fori:=1 to10 do ifm[i]>z thenz:=m[i]; end;
begin randomize; forj:=1 to10 do begin a[j]:=10 - random(30); b[j]:=2 - random (10); end;
maximum(a,max1); maximum(b,max2);
pr:=max1*max2; writeln('Iskomoe proizvedenie - ',pr:8:3); readln; end.
4. Сконструируйте программу для нахождения корней квадратного уравнения ax2+bx+c=0, где a,b,c вводятся с клавиатуры (предусмотреть все возможные ошибки).
programuravn; vara,b,c:real; d:real; x1,x2:real;
begin writeln('vvedite a,b,c'); readln (a,b,c); if(a=0) then begin ifb=0 then ifc=0 thenwriteln ('uravnenie imeet beskonechnoe mnojestvo reshenij') elsewriteln ('net reshenij'); end
else begin d:=sqr(b)-4*a*c; ifd<0 thenwriteln ('net reshenij') else begin x1:=((-b)-sqrt(d))/(2*a); x2:=((-b)+sqrt(d))/(2*a); writeln ('x1=',x1:8:2); writeln ('x2=',x2:8:2); end; end; readln; end.
program rasstojanie;
{$APPTYPE CONSOLE}
uses SysUtils;
var x1,y1,x2,y2:real; rasst:real;
begin writeln('vvedite koordinaty 1 tochki'); readln(x1,y1); writeln('vvedite koordinaty 2 tochki'); readln(x2,y2); rasst:=sqrt (sqr(x2-x1)+sqr(y2-y1)); writeln('rasstojanie = ',rasst:8:2); readln; end.
6. Сконструируйте программу позволяющую заменить в заданном массиве М(15) нулевые элементы квадратами их индексов.
programzamena; vara:array[1..15] ofreal; i: integer;
|
|||||||
|