Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Составить пользовательскую процедуру или функцию для вычисления произведения https://www.cyberforum.ru/ pascalabc/ thread1267535.html
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2) 		Pascal ABC Уменьшить время работы программы по поиску совершенных чисел
нужно найти в диапазоне совершенные числа. я это сделал, но у меня возникла проблема. при проверке некоторые тесты не проходят, потому что превышено максимальное время работы. помогите, пожалуйста. только в рамках школьной программы var i,s,N,j,k,m:longint; begin readln(N); k:=0; for i:=1 to N do begin if i mod 2=0 then begin
Pascal ABC Описать рекурсивную функцию вещественного типа, находящую приближенное значение корня https://www.cyberforum.ru/ pascalabc/ thread1267431.html
помогите пожалуйста с задачей , очень нужно . Уже по разному пробовал в силу возможностей, не могу понять, не силен в этих формулах всех . Описать рекурсивную функцию RootK(X, K, N) вещественного типа, находящую приближенное значение корня K-й степени из числа X по формуле: Параметры функции: X (> 0) — вещественное число, K (> 1) и N (> 0) — целые. С по- мощью функции RootK найти... 		Pascal ABC Протабулировать функцию Помогите пожалуйста решить пожалуйста: Необходимо протабулировать функции, зависящие от двух переменных или от нескольких параметров. Результаты табулирования оформить в виде одной таблицы или совокупности таблиц. На интервале sqrt(c/b)-sqrt(x)=<t=<sqrt(c) с шагом Dt=sqrt(c)/20 определить такое значение t, при котором a>=0, где a=bt^2-c, b=|ln|1-x||, c=|x^2+cos(x)|, если известно, что... https://www.cyberforum.ru/ pascalabc/ thread1267394.html
Программа для почтовой и таможенной службы, которая пересчитывает вес М поступающих посылок и грузов Pascal ABC
В стране *** используется тридцативдуричная система счисления. Необходимо написать программу для почтовой и таможенной службы, которая пересчитывает вес М поступающих посылок и грузов из России в вес N системы измерения этой страны. Считать исходный вес целочисленным, максимальное значение М<=30000. Формат входных данных. В первой и единственной строке входного файла input.txt находится... 		Pascal ABC Описать рекурсивную функцию Palindrome(S) логического типа: переделать программу для работы с файлами https://www.cyberforum.ru/ pascalabc/ thread1267391.html
Доброго дня суток! помогите пожалуйста переделать программу, чтобы она работала с файлом. Не могу понять как переделать функцию для работы с файлом. Заранее благодарен. Код программы без файлов: {Описать рекурсивную функцию Palindrome(S) логического типа, возвращающую True, если строка S является палиндромом (то есть читается слева направо и справа налево), и False в противном случае....
Pascal ABC Определить принадлежность точки заштрихованной области, включая ее границы https://www.cyberforum.ru/ pascalabc/ thread1267239.html
...(x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. \программа и график во вложении\ Последовательно выполните следующее: а) приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу; б) укажите, как нужно доработать программу, чтобы не было... 		Pascal ABC Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее чисел, не меньших X
Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее арифметическое чисел, не меньших заданного x
Pascal ABC Найти среднее арифметическое чисел с промежутка [A, B], и количество неположительных чисел на местах кратных 3 Осуществить ввод и вывод исходного одномерного массива; выполнить необходимые действия и вывести результаты. Найти среднее арифметическое чисел, попадающих в промежуток , и подсчитать количество неположительных чисел, стоящих на местах, кратных трем. https://www.cyberforum.ru/ pascalabc/ thread1267000.html Pascal ABC Массивы: найти минимальное число и заменить его на полусумму второго и предпоследнего элементов Задан одномерный массив с произвольным именем из Н элементов. Вывести исходный массив и массив полученный в результате выполнения требований задачи: найти минимальное число и заменить его на полу сумму второго и пред последнего элементов https://www.cyberforum.ru/ pascalabc/ thread1266998.html
В массиве вычислить сумму квадратов чисел, не принадлежащих промежутку (A,B) и стоящих на местах, кратных 3 Pascal ABC
Осуществить вывод и ввод исходного одноместного массива; выполнить необходимые действия и вывести результаты: Вычислить сумму квадратов чисел, не принадлежащих промежутку (A,B) и стоящих на местах, кратных 3; подсчитать количество нулей во всём массиве. 		Pascal ABC Введите последовательность из N целых чисел. Найдите наибольшее число Введите последовательность из N целых чисел. Найдите наибольшее число. https://www.cyberforum.ru/ pascalabc/ thread1266928.html
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 427
03.10.2014, 05:01 0

Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER - Pascal ABC - Ответ 6675754

03.10.2014, 05:01. Показов 4678. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Ciklon как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9

var
  a,b,x:integer;
begin
  write('a,b= '); readln(a,b);
  if a>b then x:=a*b-3;
  if a=b then x:=2;
  if a<b then x:=a*a*a;
  writeln('x=',x);
end.
Ciklon, пойдет?

Добавлено через 1 минуту
Или по другому...
Pascal
1
2
3
4
5
6
7
8
9
10
11

var
  a,b,x:integer;
begin
  write('a,b= '); readln(a,b);
  if a>b then x:=a*b-3
  else
  if a=b then x:=2
  else
  x:=a*a*a;
  writeln('x=',x);
end.


Вернуться к обсуждению:
Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 03.10.2014, 05:01
Готовые ответы и решения:

Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER, используя оператор IF
Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER, используя оператор IF...

Используя оператор if, вычислить заданное выражение для данных типа Integer:
Используя оператор if, вычислить заданное выражение для данных типа Integer:

Используя оператор if, вычислить заданное выражение для данных типа Integer
Используя оператор if, вычислить заданное выражение для данных типа Integer:

Вычислить заданное выражение для типа integer
Используя оператор if, вычислить заданное выражение для типа integer B=2x-y+5 если

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

Используя оператор if, вычислить заданное выражение для данных типа Real
Помогите пожалуйста,если можно с устной пометкой) y=x^a\cdot \ln x+\frac{x^a\cdot e^{ax}}{\sin...

Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER
Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER, используя оператор...

Вычислить заданное целочисленное выражение для данных в формате INTEGER переменные a, b, а X в формате LONGINT
1. Написать на языке ассемблера процедуру, вычисляющее заданное значение по входным переменным;...

вычислить заданное выражение для данных a,b в формате integer
вычислить заданное выражение для данных a,b в формате integer, используя оператор if. Исходные...

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