PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Напишите програму https://www.cyberforum.ru/ pascalabc-net/ thread2500553.html Напишите программу, которая вычисляет область и диагонат квадрата с стороной,А''	Вычисление области и периметра прямоугольника PascalABC.NET По стороны сочетания протокола написать программу, которая вычисляет область и периметр прямоугольника
PascalABC.NET Где ошибка? const N=40; var a: array of real; i, pol, otr: byte; begin pol:=0; otr:=0; for i:=1 to N do begin a := random(100) - 50; write(a:4); if a < 0 then https://www.cyberforum.ru/ pascalabc-net/ thread2500388.html	PascalABC.NET Нужна программа для перевода из шестнадцатеричной системы счисления в восьмеричную систему счисления или десятичную https://www.cyberforum.ru/ pascalabc-net/ thread2500209.html Исходный файл содержит числа в шестнадцатеричной системе счисления, отделенные друг от друга запятыми. Составить программу, которая для каждого такого числа из заданного диапазона после знака равенства указывает его значение в восьмеричной системе счисления, десятичной системе счисления или в дополнительном коде по выбору пользователя, например: 00101111 = 33353, 0111 = 73, 10000 = 512, и...
PascalABC.NET Кодировка Помогите, пожалуйста решить проблему ! Слетела кодировка после компиляции программы. Вот код: program polib; const n=7; var s,s1:string; a:array of char; r,c:char; i,j,k:byte;	PascalABC.NET Калькулятор Значит, я не могу завершить калькулятор из-за одной ошибки (отделил двумя точками с каждой стороны). Не поможете? program lalala; uses Crt; LABEL m,p; Var A,b,d,f :integer; C,i:string; begin m: https://www.cyberforum.ru/ pascalabc-net/ thread2500038.html
PascalABC.NET Заменить значение каждого элемента массива Y новым значением, определяемым по правилу https://www.cyberforum.ru/ pascalabc-net/ thread2500021.html При заданных X1, X2, …, Xn и Y1, Y2, …, Yn заменить значение каждого элемента массива Y новым значением, определяемым по правилу :Yi=Xi-Yi при Xi>=Yi или Yi=Yi-Xi при Xi<Yi и подсчитать число случаев равенства Xi и Yi.	Программа с двумерными массивами PascalABC.NET Помогите пожалуйста дописать программу, чтобы выводила ответ по следующей задаче : Известно количество денег у каждого из N учеников, а также стоимость 4 комплексных обедов в школьной столовой. Напечатать сколько каких обедов будет куплено и сколько учеников останутся голодными, если каждый ученик выбирает наиболее дорогой обед, который он может купить. Программа: program obedy; const
PascalABC.NET Даны 4 числа. Верно ли, что среди них последнее число не самое маленькое Даны 4 числа. Верно ли, что среди них последнее число не самое маленькое https://www.cyberforum.ru/ pascalabc-net/ thread2499870.html	PascalABC.NET Как написать видеоредактор или графический редактор? Как написать видеоредактор или графический редактор на PascalABC.NET? https://www.cyberforum.ru/ pascalabc-net/ thread2499690.html
Цикл работает не так как я хочу. Исключение IndexOutOfRangeException PascalABC.NET Программа должна после каждого считывания строки записывать ее в ячейку массива и прибавлять к переменной отвечающей за количество записываний единицу. А потом рандомно в диапазоне равном количеству записей вывести в строке строку массива. В файле 5 строк, то есть считать программа должна пять раз и индекс массива должен быть 5. Но у меня вылазит IndexOutOfRangeException. Непонятно в чем...	PascalABC.NET Написать программу которая посчитает данное выражение ∛8+\|x-y\|²+1/x²+ y²+2 (весь числитель под кубическим корнем) \|X-Y\|- модуль дальше отнимаем это первой части e^\|x-y\|*(tg²z+1)^1 значениe x y z можно взять любое https://www.cyberforum.ru/ pascalabc-net/ thread2499454.html

JuriiMW

5077 / 2649 / 2349

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

Сообщений: 10,024

17.09.2019, 04:27

Составить простую программу на Паскале - PascalABC.NET - Ответ 13833175

17.09.2019, 04:27. Показов 450. Ответов 1

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

Ответ

Pascal

begin
  var три := ReadArrInteger(3);
  if три.Count(x->x>0) > 1 then
    три.Select(x->odd(x)?x-1:x).Print
  else
    три.Sum.Print
end.

Вернуться к обсуждению:
Составить простую программу на Паскале PascalABC.NET

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.09.2019, 04:27

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

не могу составить простую программу на паскале
Найти количество различных цифр в одномерном массиве. например массив 1 2 3 4 5 1 2 3 количество...

Составить простую программу с процедурой
Составить простую программу с процедурой которая будет вычислять площадь квадрата

Составить простую программу на процедуру
Составить любую простую программу на процедуру максимум строчек 5-6

составить программу на паскале
С помощью оператора if определить, находится ли точка на плоскости в замкнутой области. Если...

	17.09.2019, 04:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.09.2019, 04:27

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

составить программу на паскале
Напишите программу на языке Паскаль для вычисления суммы четных чисел натурального ряда от 1 до n.

составить программу на паскале
разработать, ввести в ЭВМ и отладить программу для рассчета суммы вклада в банке, если известы...

составить программу на паскале и в кумире
1составить программу,которая в заданном слове заменяет все буквы, кроме первой и последней, на...

П о могите составить программу в Паскале!
Надо написать программу в Паскале, которая определяет вид треугольника -если равносторонний то...

составить программу на паскале и кумире
определить: 10 членов ряда; абсолютную разность между табличной функцией и суммой ряда. Для...

Составить простую программу!
Составить программу, которая по заданному числу (1-12) выводит название соответствующего месяца.

Наверх