Постановка задач

@slagar32 · Регистрация: 26.06.2016

Author24 — интернет-сервис помощи студентам

Нужно написать постановки задач, как на этих образцах:

Кликните здесь для просмотра всего текста

https://pp.vk.me/c625222/v6252... g4XWGc.jpg
https://pp.vk.me/c625222/v6252... Fgjk-I.jpg

Сами задачи, которые надо написать так:

Первая (а, б) -Составить алгоритм решения задачи и написать программу на языке паскаль.
https://pp.vk.me/c626817/v6268... 4tEFDM.jpg

Кликните здесь для просмотра всего текста

Program zadacha1;
var p,a,n,b,c,x:real;
begin
cls;
a:=2;
n:=3;
b:=1;
c:=2.34;
write ('x = ');
read (x);
p:=5*(power(a,n*x))/(b+c)-power(abs(cos(2*x)),3)-arctan(x/2);
writeln('p = ',p:2:5);
end.

Кликните здесь для просмотра всего текста

Program zadacha1;
var q,a,b,y,z,x:real;
begin
cls;
a:=2;
b:=1;
y:=3.1;
z:=5.4;
write ('x = ');
read (x);
q:=(x+3*y+z)/exp(a*z+b);
writeln ('q = ',q:2:5);
end.

Вторая - Составить алгоритм решения задачи и написать программу на языке паскаль.
https://pp.vk.me/c626817/v6268... SerTVA.jpg

Кликните здесь для просмотра всего текста

Program zadacha2;
var d,k,x,z,b:real;
begin
cls;
Writeln ('Введите x');
read (x);
b:=2.7;
z:=(x*(1+cos(x)))/(1+sin(2*x));
if z>5 then k:=1+x;
if (2<z) and (z<=5) then k:=power(sqrt(sqr(x)),3);
if (-1<=z) and (z<2) then k:=sqr(x);
if (z<=-1) then k:=power(x,b);
d:=k-exp(x)*(cos(x)/sin(x));
writeln ('d = ',d:2:5);
end.

Третья - в массиве X(N) найти среднее арифметическое положительных элементов массива, произведение и количество отрицательных элементов.

Кликните здесь для просмотра всего текста

Program zadacha3;
var a:array[1..100]of integer;
n,i:integer;
c,p,k:real;
begin
cls;
writeln ('Ââåäèòå ðàçìåð ìàññèâà');
readln(n);
c:=0;
p:=1;
k:=0;
for i:=1 to n do begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ',a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then c:=c+a[i];
c:=c/i;
end;
writeln ('c = ',c:2:5);
for i:=1 to n do begin
if a[i]<0 then p:=p*a[i];
if a[i]<0 then k:=k+1;
end;
if p=1 then p:=0;
writeln ('p = ',p);
writeln ('k = ',k);
end.

Насчёт четвёртой я сомневаюсь, так как брал решение задачи как раз с этого форума.

В символьной строке подсчитать количество цифр, предшествующих первому символу "!"

Кликните здесь для просмотра всего текста

Program zadacha4;
var
s : string;
i, j, k : byte;
begin
j := 0;
k := 0;
write('строка: ');
readln(s);
for i := 1 to length(s) do
if s[i] = '!' then
begin
j := i;
break
end;
if j = 0 then writeln('в строке нет символа "!"') else
begin
for i := 1 to j do
if s[i] in ['0'..'9'] then inc(k);
writeln('количество цифр в строке до символа "!" = ', k)
end;
end.

Нужно всё это подготовить до завтра, прошу, помогите с этим.

@Puporev · 26.06.2016, 07:40

Вот Вы накидали всего, свалили в кучу все задания. все на картинках и думаете это все кто-то будет разгребать?
Прочитайте правила форума и создайте темы в соответствии с их требованиями. Эта тема закрыта.

@slagar32 0 / 0 / 0 Регистрация: 26.06.2016 Сообщений: 1
		1
	Постановка задач 26.06.2016, 07:28. Показов 2274. Ответов 1 Метки нет (Все метки) Нужно написать постановки задач, как на этих образцах: Кликните здесь для просмотра всего текста https://pp.vk.me/c625222/v6252... g4XWGc.jpg https://pp.vk.me/c625222/v6252... Fgjk-I.jpg Сами задачи, которые надо написать так: Первая (а, б) -Составить алгоритм решения задачи и написать программу на языке паскаль. https://pp.vk.me/c626817/v6268... 4tEFDM.jpg Кликните здесь для просмотра всего текста Program zadacha1; var p,a,n,b,c,x:real; begin cls; a:=2; n:=3; b:=1; c:=2.34; write ('x = '); read (x); p:=5(power(a,nx))/(b+c)-power(abs(cos(2x)),3)-arctan(x/2); writeln('p = ',p:2:5); end. Кликните здесь для просмотра всего текста Program zadacha1; var q,a,b,y,z,x:real; begin cls; a:=2; b:=1; y:=3.1; z:=5.4; write ('x = '); read (x); q:=(x+3y+z)/exp(az+b); writeln ('q = ',q:2:5); end. Вторая - Составить алгоритм решения задачи и написать программу на языке паскаль. https://pp.vk.me/c626817/v6268... SerTVA.jpg Кликните здесь для просмотра всего текста Program zadacha2; var d,k,x,z,b:real; begin cls; Writeln ('Введите x'); read (x); b:=2.7; z:=(x(1+cos(x)))/(1+sin(2x)); if z>5 then k:=1+x; if (2<z) and (z<=5) then k:=power(sqrt(sqr(x)),3); if (-1<=z) and (z<2) then k:=sqr(x); if (z<=-1) then k:=power(x,b); d:=k-exp(x)(cos(x)/sin(x)); writeln ('d = ',d:2:5); end. Третья - в массиве X(N) найти среднее арифметическое положительных элементов массива, произведение и количество отрицательных элементов. Кликните здесь для просмотра всего текста Program zadacha3; var a:array[1..100]of integer; n,i:integer; c,p,k:real; begin cls; writeln ('Ââåäèòå ðàçìåð ìàññèâà'); readln(n); c:=0; p:=1; k:=0; for i:=1 to n do begin a[i]:=random(100)-50; writeln ('a[',i,'] = ',a[i]); end; for i:=1 to n do begin if a[i]>0 then c:=c+a[i]; c:=c/i; end; writeln ('c = ',c:2:5); for i:=1 to n do begin if a[i]<0 then p:=p*a[i]; if a[i]<0 then k:=k+1; end; if p=1 then p:=0; writeln ('p = ',p); writeln ('k = ',k); end. Насчёт четвёртой я сомневаюсь, так как брал решение задачи как раз с этого форума. В символьной строке подсчитать количество цифр, предшествующих первому символу "!" Кликните здесь для просмотра всего текста Program zadacha4; var s : string; i, j, k : byte; begin j := 0; k := 0; write('строка: '); readln(s); for i := 1 to length(s) do if s[i] = '!' then begin j := i; break end; if j = 0 then writeln('в строке нет символа "!"') else begin for i := 1 to j do if s[i] in ['0'..'9'] then inc(k); writeln('количество цифр в строке до символа "!" = ', k) end; end. Нужно всё это подготовить до завтра, прошу, помогите с этим. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2016, 07:40	2
	Вот Вы накидали всего, свалили в кучу все задания. все на картинках и думаете это все кто-то будет разгребать? Прочитайте правила форума и создайте темы в соответствии с их требованиями. Эта тема закрыта. 0