Постановка задач - Pascal ABC - Ответ 9314611

@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.

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

Вернуться к обсуждению:
Постановка задач Pascal ABC

Следующий ответ

Другие темы раздела
Pascal ABC Вычислить сумму ряда https://www.cyberforum.ru/ pascalabc/ thread1770791.html Ребят, помогите, пожалуйста! Очень срочно нужно (паскаль абц, делфи) Вычислить сумму ряда S=\sum_{i=1}^\infty \frac{2+x}{(i^2)!} с точностью последнего члена ряда ε. При расчёте использовать цикл Repeat.	Pascal ABC Вычислить произведение максимального элемента первого массива на минимальный элемент второго массива помогите никак не могу сделать... нахожу максимальный и минимальные значения дальше в ступор вхожу что делать помогите чайнику.... Даны два массива целых чисел. Вычислить произведение максимального элемента первого массива на минимальный элемент второго массива. Удалить максимальный элемент из первого массива и добавить его во второй массив после минимального. uses crt; var ar: array of...
Pascal ABC Переписать наибольшие положительные элементы каждого столбца матрицы в одномерный массив https://www.cyberforum.ru/ pascalabc/ thread1770695.html Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O	Pascal ABC Переписать подряд в новый массив индексы всех положительных элементов исходного Переписать подряд в массив ZBR индексы всех положительных элементов массива BR(N) https://www.cyberforum.ru/ pascalabc/ thread1770690.html
Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе Pascal ABC Помогите пожалуйста!( если можно с обьяснениями, можно и без сам разберу).... :-\| буду брагодарен Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе счисления (от 2-х до 10-ти). Рекомендуемый вид экрана во время работы программы приведен ниже. Введите целое число —> 67 Введите основание системы счисления —> 2 100011	Pascal ABC Амплитудо-частотные характеристики. Для вынужденных колебаний вводят, так называемые, амплитудо-частотные (зависимость амплитуды колебаний от частоты вынуждающей силы) характеристики. Графически эти зависимости при различных значениях приведены на рисунке.Написать программу в Паскаль АВС ,где будет это показано. https://www.cyberforum.ru/ pascalabc/ thread1770530.html
Pascal ABC Создать базу данных "Туристическая фирма" https://www.cyberforum.ru/ pascalabc/ thread1770495.html Помогите создать базу данных туристической фирмы с критериями: Пассажир: ФИО Паспорт Загран паспорт Дата рождения Путевка: Страна Город Отель	Компьютерная модель колебательной системы: построение амплитудно-частотной характеристики Pascal ABC Помогите пожалуйсто написать программу в Паскаль ABC."Построение амплитудно-частотной характеристики."
Pascal ABC Программа для создания изображения https://www.cyberforum.ru/ pascalabc/ thread1770289.html Написать программу которая создает данное изображение	Pascal ABC Файл: Какая страна в среднем показала наилучший результат? Условие задачи: В судейском журнале участников летней олимпиады имеется список с результатами спортсменов-пловцов. Одна запись этого списка содержит: Ф.И.О. спортсмена, какую страну он представляет, стартовый номер, три результата в секундах для трех заплывов. СУБД должна выдавать следующие сведения: - Определить, участвовал ли спортсмен Х в соревнованиях; - Ф.И.О. спортсмена, занявшего... https://www.cyberforum.ru/ pascalabc/ thread1770282.html
Pascal ABC Поиск и вывод на экран записей о всех студентах факультета ФВТ Здравствуйте ,помогите пожалуйста с программой. Задание:Поиск и вывод на экран записей о всех студентах факультета ФВТ Программа: uses crt; type sp=record Nom:integer;	Pascal ABC Строка: Вставить во введенную строку на место каждого символа, кратного n, заданный символ https://www.cyberforum.ru/ pascalabc/ thread1770193.html Вставить во введенную строку на место каждого символа, кратного n, за-данный символ, при этом строка вместе с n-м символом сдвигается вправо.

@slagar32 0 / 0 / 0 Регистрация: 26.06.2016 Сообщений: 1
		0
	Постановка задач - Pascal ABC - Ответ 9314611 26.06.2016, 07:28. Показов 2275. Ответов 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:=pa[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. Нужно всё это подготовить до завтра, прошу, помогите с этим. Вернуться к обсуждению: Постановка задач Pascal ABC Следующий ответ* 0

	26.06.2016, 07:28