Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Даны допустимые строки Даны допустимые строки S,S1 и символ С. После каждого вхождения символа С в строку S вставить строку S1. https://www.cyberforum.ru/ pascal/ thread163420.html	Pascal Поиск максимального элемента в масиве не работает... Доброго времени суток, пожалуйста посмотрите, я уже весь мозг разорвал себе, над пустяковым кодом!!! Программа работает, только поиск по массиву осуществляется с переменным успехом. К примеру, вывожу массив, смотрю значения в массиве, потом ищу максимальный элемент в нем и вывожу его значение и номер где оно находится, делую пару итераций, а поиск уже выдает не те значения.:( Код: program...
Pascal Дан массив из N целых чисел.Изменить его таким образом чтоб его значения шли в обратном порядке. https://www.cyberforum.ru/ pascal/ thread163347.html Дан массив из N целых чисел.Изменить его таким образом чтоб его значения шли в обратном порядке.	Pascal Составить блок схему Найдите и выведите все двузначные числа, сумма квадратов цифр которых делится без остатка на 17 https://www.cyberforum.ru/ pascal/ thread163264.html
Не получается создать блок схему Pascal Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3, 5 и 7	Pascal Табулирование функции. https://www.cyberforum.ru/ pascal/ thread163189.html Народ помогите с задачей!!!! sin(x) y={ cos(X) чему равен y если X= промежутку 1 до 4 или промежутку -2 до 3 с шагом 0,1
Pascal как составить блок схему введите с клавиатуры два числа N и M. если оба числа больше 100 то замените каждое из них меньшим и выводите результат. если первое число положительное, а второе отрицательное то уменьшите их в два раза и выведите результаты, иначе найдите и выводите среднее арифметическое этих чисел https://www.cyberforum.ru/ pascal/ thread163178.html	Pascal Блок-схема Pascal Откликнитесь пожалуйста кто-нибудь,правильно ли я составила блок-схему! Составьте алгоритм по правилу «Если идет дождь, то взять зонт, если снег одеть куртку, в противном случае шляпу.
Pascal Интересные упражнения Если будет время, может быть кто-нибудь глянет? вроде интересные задачи..да чёт я запуталась.. Составьте программу вывода в верхней части экрана движущегося корабля с постоянной скоростью. Ее значение каждый раз задается генератором случайных чисел. В нижней части экрана расположена пушка. При нажатии клавиши Enter происходит выстрел торпедой с постоянной, заранее заданной, скоростью клавишами... https://www.cyberforum.ru/ pascal/ thread163168.html	*Pascal Заполнение массива размерностью NN** Всем доброго времени суток!Вообщем.. Задача: Заполнить массив размерностью N*N 0 и 1 в шахматном порядке Написал так.. For i:=1 to n do For j:= 1 to n do IF (i mod 2 => 0) and (j mod 2=> 0) then m:=0 IF (i mod 2 = 0) and (j mod 2= 0) then m:=1 Внимание вопрос https://www.cyberforum.ru/ pascal/ thread163150.html
Составить программу занесения в динамическую память вещественного массива Pascal Составить программу занесения в динамическую память вещественного массива из 10000 чисел хранящихся в файле на магнитном диске, а также поиска в нём значения и номера первого максимального элемента.	Pascal Указать позицию первого экстремального элемента Дан массив вещественных чисел.Указать позицию первого экстремального элемента (т.е. максимального или минимального) https://www.cyberforum.ru/ pascal/ thread163120.html

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

04.09.2010, 20:44

Вычислить значения - Pascal - Ответ 940142

04.09.2010, 20:44. Показов 1222. Ответов 1

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

Сообщение было отмечено как решение

Решение

Кокос,Выше окна сообщения есть кнопка Редактор формул, не сможете, у вас есть Ворд, наберите там в редакторе, приложите к теме файл.

Добавлено через 2 часа 45 минут
2.

Pascal

uses crt;
function Min(a,b:real):real;
begin
if a<b then Min:=a else Min:=b;
end;
function Max(a,b:real):real;
begin
if a>b then Max:=a else Max:=b;
end;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите 4 числа:');
readln(a,b,c,d);
write('Значение выражения min(a,b,max(min(c,d),a))=');
write(Min(a,Min(b,Max(Min(c,d),a))):0:2);
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.09.2010, 20:44

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

Вычислить обратные значения тех чисел, значения которых не равны нулю, остальные оставить без изменения
даны 3 числа xyz. Вычислить обратные значения тех из них значения которых не равны нулю остальные...

Вычислить Значения ф-и
y=2sin(x)cos(x) на отрезке с шагом дельта x=0.2 Напечатать все значение y>1 и опредилить...

Вычислить значения функции
Вычислить значения функции (a+b+c)/i если а изменяется от 0 до 1 с шагом 0,1 в изменяется от 1до3 с...

Вычислить значения выражений
Товарищи, что делать, ничего не понятно я вообще не понимаю как сделать это, вот совершенно, что...

	04.09.2010, 20:44

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.09.2010, 20:44

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

Вычислить значения функции
Помогите, пожалуйста, решить! Вычислить значения функции d={t}^{2}*sint при t, изменяющемся от 1...

вычислить значения функции
Помогите разобраться с задачей. Вычислить значения функции f(x) в интервале изменения аргумента ...

Вычислить значения функции
Не могу понять как в паскале это делать, а завтра сдавать уже. Помогите с решением пожалуйста, а я...

Вычислить значения функции
нужна 3я задача

Наверх