Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Вычислить значение выражения написать программу на паскале! помогите, пожалуйста, зайчатки! a=\lg \left(\sqrt{e^{x-y}}+x\|y\|+z \right) ,\ \ b=\frac{x}{\sin (x)}-\frac{x^3}{\sin ^3(x)}+\frac{x^5}{\sin ^5(x)},\\\\\\x=1.542;\ \ y=-3.261;\ \ z=80.005. https://www.cyberforum.ru/ pascal/ thread1282062.html	Вычислить значение выражения по формуле Pascal Ребятаааа!!! помогите, пожалуйста! нужно написать программу с заданными значениями на паскале)) U=\begin{cases} 3sin(x+1)-3cos(\left\| y-1\right\|) & \text{ , } x \le -8 \\ ln(\left\|x+1 \right\|)-1 & \text{ , } -8 \lt x \lt -7,\;x\neq -1 \\ \frac{6x^2-2xy+8}{4-y^2} & \text{ , } x \ge -7,\; \left\|y \right\| \neq 2 \end{cases}
Pascal Построить множество, элементы которого — цифры от 0 до 9, которые встречаются в последовательности https://www.cyberforum.ru/ pascal/ thread1281971.html Дано непустую последовательность символов. Надо построить и напечатать множество, елементами которого есть цифры от 0 до 9, которые встречаются в последовательности.	Pascal Нужно написать программу, которая по введенному значению аргумента вычисляет значение функции https://www.cyberforum.ru/ pascal/ thread1281910.html
По введенному значению аргумента вычислить значение функции, заданной в виде графика Pascal	Pascal Выяснить, верно ли, что хотя бы один символ входит в последовательность более одного раза Даны символы s1,..., s50. Выяснить, верно ли, что хотя бы один символ входит в s1 ,...,s50 более одного раза и при этом так, что между любыми двумя его вхождениями встречается буква а или b https://www.cyberforum.ru/ pascal/ thread1281798.html
Pascal Нельзя преобразовать тип array [1..100] of real к real https://www.cyberforum.ru/ pascal/ thread1281743.html Помогите в чем здесь ошибка. Выводить ошибку: Program4.pas(10) : Нельзя преобразовать тип array of real к real Program ad; const N=100; VAR k1,k2,k3,k4,y,x:array of real; h:real; i,k,a,b:integer;	Pascal Преобразовать каждый из массивов, заменив элементы с наибольшим значением нулем Дан файл F, компонентами которого являются целочисленные массивы. Требуется преобразовать каждый из массивов, заменив элементы с наибольшим значением нулем. Преобразованные массивы должны быть записаны в тот же самый файл F. Разрешается использовать вспомогательный массив h.
Pascal Найти сумму ряда https://www.cyberforum.ru/ pascal/ thread1281671.html 1+0,1/23+ 0,1/33+ 0,1/43+ …	Pascal Ввести число n. Определить, входит ли в состав числа цифры 0 и 1 https://www.cyberforum.ru/ pascal/ thread1281597.html Ввести число n. Определить, входит ли в состав числа цифры 0 и 1.
Pascal Поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы uses crt; const n = 4; m = 5; var matrix: array of integer; max, min, i, j, k: integer; begin clrscr; randomize;	Pascal Составить программу табулирования функции, заданной рекуррентной формулой https://www.cyberforum.ru/ pascal/ thread1281271.html Составить программу табулирования функции, заданной рекуррентной формулой f(0)=2, f(1)=5, f(2k)=(k-1)f(k)-k, f(2k+1)=kf(k+1);

Killstrike

0 / 0 / 0

Регистрация: 12.09.2014

Сообщений: 23

Блок-схема к программе - Pascal - Ответ 6755035

22.10.2014, 21:03. Показов 609. Ответов 1

Метки (Все метки)

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

Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда скриншотом, а еще лучше файлом. Помогите. Прошу, вот программа

Pascal

procedure Swap(var X1,X2 : integer);
var tmp : integer;
begin tmp := X1; X1 := X2; X2 := tmp end;
var A,B,C : integer;
begin
WriteLn('Input A B C');
ReadLn(A,B,C);
if A>B then Swap(A, B);
if B>C then Swap(B, C);
if A>B then Swap(A, B);
if (A+B+C)=2 then C:=A
else
if (A+B+C)>20 then begin
A := sqr(A); B := sqr(B); C := sqr(C);
end
else C:= 34;
writeLn(A,' ',B,' ',C);
end.

Вернуться к обсуждению:
Блок-схема к программе Pascal

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.10.2014, 21:03

Готовые ответы и решения:

Блок- схема по программе
помогите нарисовать блок схему по программе program vstavka_propuska; uses crt; var...

Блок-схема к программе
помогите пожалуйста написать блок-схему к программе: var MyArr:array of real; ...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

	22.10.2014, 21:03

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.10.2014, 21:03

Помогаю со студенческими работами здесь

Необходима блок-схема к программе
Помогите, пожалуйста, сделать блок-схему. Задача: дан одномерный массив L, элементы которого...

Блок схема к готовой программе
Привет! помогите построить блок схему к следующей программе. Задача: Текстовый файл содержит...

Блок-схема к готовой программе
uses crt; var sq1,sq2: real; function Exist (a,b,c: real): boolean; begin Exist:=((b+c-a)>0)...

Нужна блок-схема к программе
Дан двумерный массив 5на5.Вычислить произведение отрицательных элементов.Определить индецсы...

Наверх