Pascal abc. написать программу, чтобы построить график функции y=x2 на интервале [-3,3]

287

312

Посмотреть ответы 3

Ответы на вопрос:

friskdrimur

Информатика

4,6(84 оценок)

//pascal abc.net v3.1 сборка 1219 uses graphabc; var x1,y1,x2,y2,i: integer; begin maximizewindow; line(0,300,windowwidth,300); line(300,0,300,windowheight); y2: =300; x2: =300; setpencolor(clblue); for i: =0 downto -3 do begin x1: =x2; y1: =y2; x2: =i*5+300; y2: =(-sqr(x2-300)+300); line(x1,y1,x2,y2); end; y2: =300; x2: =300; for i: =0 to 3 do begin x1: =x2; y1: =y2; x2: =i*5+300; y2: =(-sqr(x2-300)+300); line(x1,y1,x2,y2); end; end.

Malayalam

Информатика

4,5(97 оценок)

//pascal abc.net v3.1 сборка 1219 uses graphabc; const c = 300; var i: integer; x, y: real; begin line(0, c, windowwidth, c); line(c, 0, c, windowheight); for i : = -3 * c to 3 * c do begin x : = i / c; y : = x * x; putpixel(round(25 * x) + c, c - round(25 * y), clblueviolet); end; end.

anasasiyakoval

Информатика

4,6(2 оценок)

2) const handsfree = true; var a: array[1..100] of real; i, n, mini: integer; begin {ввод массива} if handsfree then n : = random(27+27) -27 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln(); {минимум и максимум} mini : = 1; for i : = 1 to n do if a[mini] > a[i] then mini : = i; writeln('min = ', a[mini]); writeln('mini = ', mini); end. 1)const handsfree = false; var a: array[1..100] of real; i, n: integer; sum, product, harmonic: real; begin {ввод массива} if handsfree then n : = random(20) + 5 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет суммы и произведения и агригатов} sum : = 0; for i : = 1 to n do if abs(a[i]) < = 5 then sum : = sum + a[i]; writeln('sum = ', sum); end.