С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Сформировать одномерный массив и найти минимальный элемент https://www.cyberforum.ru/ pascal/ thread3087375.html
Сформировать одномерный массив, каждый элемент которого равен максимальному элементу соответствующего столбца произвольно заданной матрицы, размером m на n. В сформированном массиве найти минимальный элемент.
Текстовый редактор Pascal
Нужны исходники, текстового редактора, обучающие материалы, ссылки на видеокурс или статьи как создать.
Pascal Вывести дерево в графическом виде Суть в чем, программа полностью рабочая и все выводит. Такая просьба, мне нужно переделать вывод, чтобы графические выводило дерево со всеми значениями. program BinaryTree; type PNode = ^TNode; TNode = record Data: integer; Left: PNode; Right: PNode; https://www.cyberforum.ru/ pascal/ thread3087158.html Pascal Вывести таблицу значений функции и ее разложения в ряд Тейлора const e=0.00001; var x,x0,xk,h,a,s,y:real; n,i,k:integer; begin write('x0=');readln(x0); write('xk=');readln(xk); h:=0.1; x:=x0-h; n:=round((xk-x0)/h)+1; writeln('น x S(x) y(x)'); for i:=1 to n do https://www.cyberforum.ru/ pascal/ thread3086898.html
Метод деления пополам Pascal
var a,b,e,c,i,o,f :real; f:= ((1-x)/x)-3*cos(4*x); a:=1.100814; b:=-0.505; i:=0.00001; e:=1; begin while ((b-a)/2)>i do end;
Pascal Вычислить значение суммы 1. Дано натуральное n. Вычислить значение суммы Составить блок-схему https://www.cyberforum.ru/ pascal/ thread3086686.html
Pascal Получить и вывести новое вещественное число, в котором поменяны местами целая и дробная часть исходного числа Разработайте программу на языке ABC Pascal для решения следующей задачи. Дано вещественное (действительное) число R вида xxx.yyy (по три разряда в целой и дробной части числа). Получить и вывести новое вещественное число, в котором поменяны местами целая и дробная часть исходного числа. Форма вывода ответа: Исходное число: -527.954 Его целая часть: 527 Его дробная часть: 954... https://www.cyberforum.ru/ pascal/ thread3086272.html Pascal Описать тип с данными о мониторах: наименование, цена, количество. Отсортировать по наименованию. Сделать выборку по все
На паскале нужно написать. Тема: Использование типов пользовательских данных
Pascal Исправить программу вычисления элементов вектора Составить программу для вычисления элементов вектора Х по формуле: x_j\ =\ \cos ^2x_{j-1}+\sqrt{\left| \ln x_{j-2}\right|},\ \ j\ =\ 2,\,3,\,...,\,n program Project1; var x: array of real; { Переменная для хранения массива.} n: integer; { Переменная для хранения значения количества элементов в массиве.} https://www.cyberforum.ru/ pascal/ thread3085372.html Pascal Проверка делимости 3 чисел на 11 Добрый день. Помогите решить задачу Известен следующий признак делимости числа n на 11: для делимости на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11. Написать процедуры проверки признака делимости. Даны три натуральных числа. Проверить для каждого из них, делятся ли они на 11. Вот моя программа:... https://www.cyberforum.ru/ pascal/ thread3085278.html
Вычислить значения выражений Pascal
Вычислить значения выражений: program task3; var z,x,y:real; begin writeln('Введите число X'); readln(x); if (x <= -0.5) then y:=ln(abs(((exp(4*ln(x)))+2.3*(exp(3*ln(x))+1))/(sin(x)*sin(x)*sin(x)))) else if (x > -0.5) then y:=1+(x/sqrt(abs(x*(sin(x)/cos(x))))); writeln(y);
Pascal Вычислить сумму ряда https://www.cyberforum.ru/ pascal/ thread3082737.html
Вычислить сумму ряда
0 / 0 / 0
Регистрация: 05.05.2022
Сообщений: 12
09.03.2023, 18:29  [ТС] 0

Как выполнить 2 или больше действия после then - Pascal - Ответ 16796103

09.03.2023, 18:29. Показов 603. Ответов 3
Метки (Все метки)

Ответ

Спасибо большое, я не додумал сам хотя это так просто

Вернуться к обсуждению:
Как выполнить 2 или больше действия после then Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2023, 18:29
Готовые ответы и решения:

Как после then выполнить 2 действия(или больше)?
как выполнить 2 или больше действий после then? например: if X&gt;0 then Y:=Y+1 and Z:=Z-1

Выполнить задание на перевод чисел и действия с числами. 1) Выполнить перевод с точностью к третьему знаку после запятой
Выполнить задание на перевод чисел и действия с числами. 1) Выполнить перевод с точностью к...

Как выполнить функцию если значение в Label меньше или больше 100?
Как Сделать Выполнение Функции Если Значение в Label1 Меньше или больше нужного числа if...

Выполнить действия после закрытия сторонней программы
Здравствуйте, требуется помощь я запускаю программу procedure TForm1.Button1Click(Sender:...

Выполнить определённые действия через некоторое время после нажатия кнопки
Нужно чтобы через определенный интервал времени кнопка после того как ее нажал выполняла различные...

3
09.03.2023, 18:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2023, 18:29
Помогаю со студенческими работами здесь

В зависимости от знака операции (+ или -) выполнить действия над двумя матрицами
13.В зависимости от знака операции (+ или -) выполнить действия над двумя матрицами.

Выполнить определённые действия через некоторое время после двукратного нажатия кнопки
Нужно чтобы после того как вел время через который кнопка должна выполнить какое-то действие после...

Подскажите роутер вай-фай с радиусом действия 60 км или больше! Очень надо!
Подскажите роутер вай-фай с радиусом действия 60 км или больше! Очень надо!

Как правильно выполнить действия
1 Вычислить в обыкновенных и десятичных дробях. 1 1 116-17-- -96-- 5...

Как отследить когда завершатся все 254 или больше, потока и после этого вывести результат их работы на экран
при создании потока counter++, при завершении потока counter--, параметр counter меняет значение в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru