| Задать вопрос |
|
Условие: найти сумму элементов одномерного числового массива, стоящих на четных местах
i,sum:integer;
mas:array of integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
mas:=random(99);...
cades
|
10.10.2017 07:21
|
4 |
1,207 |
|
|
Как решить вот это Уравнения ?
https://www.cyberforum.ru/attachment.php?attachmentid=871278&stc=1&d=1507564016
Tigr1999
|
09.10.2017 19:23
|
2 |
668 |
|
|
№329
Даны натуральные числа n,m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m.
taoariya
|
09.10.2017 18:00
|
1 |
3,007 |
|
|
Дан текст, есть ли в этом тексте цифры и сколько цифр в этом тексте.
Валера Кушнарев
|
09.10.2017 10:02
|
1 |
2,183 |
|
|
Дано предложение, слова разделены одним пробелом или запятой и пробелом первые буквы слов в этом предложении на заглавные.
Валера Кушнарев
|
09.10.2017 09:57
|
2 |
1,687 |
|
|
unit ProcFunc;
uses Containers;
function ReadInteger:integer;
var
r: integer;
begin
Read(r);
Result := r;
Соколиный глаз
|
08.10.2017 19:45
|
0 |
489 |
|
|
Составить программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов.Определить номер наибольшего из значений
\Large...
Lolik___
|
08.10.2017 17:36
|
3 |
2,865 |
|
|
unit ProcFunc;
procedure Write(a: array of integer; d: char); // Как сделать чтобы можно было передать массив любого размера сюда?
var
i: integer;
begin
for i :=0 to Length(a) - 2 do
...
Соколиный глаз
|
08.10.2017 17:33
|
4 |
3,630 |
|
|
Помогите решить задачу:
Школа юных программистов решила разработать собственную социальную сеть, которая должна автоматически подбирать для каждого пользователя потенциальных друзей. При регистрации...
AORTD
|
08.10.2017 17:17
|
1 |
1,699 |
|
|
Напишите программу, которая моделирует работу процессора. Процессор имеет 4 регистра, они обозначаются R0, R1, R2 и R3. Все команды состоят из трех десятичных цифр: код операции, номер первого...
Андрей23119
|
08.10.2017 14:51
|
1 |
6,693 |
|
|
Дан вектор A в котором есть хотя бы один отрицательный элемент. Сформировать вектор B из отрицательных элементов вектора.
Commander_rus
|
08.10.2017 14:45
|
2 |
1,191 |
|
|
uses ABCObjects, GraphABC;
const
StarR = 5;
N = 4;
procedure CreateFractal(x, y, x1, y1, x2, y2: real; iterations: integer);
var
mx1, my1: real;
mx2, my2: real;
mx3, my3: real;
Соколиный глаз
|
08.10.2017 11:55
|
7 |
1,169 |
|
|
Как вывести длину каждой заданной мною точки? В данном случае 5
program O;
const n=5;
var A: array of record
x, y: real
end;
L1:real;
i, j: integer;
begin
Kont
|
08.10.2017 10:15
|
3 |
1,102 |
|
|
Массив: При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn получить массив T1, T2, ... Tn, где Ti = Max(Xi,Yi)
Приветствую.
Задача состоит такая:
При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn получить массив T1, T2, ... Tn, Элементы которого получают значения по правилу Ti = Max(Xi,Yi), и...
Chilus
|
07.10.2017 21:41
|
3 |
6,430 |
|
|
Почему не работает нормально?
uses ABCObjects, GraphABC, Events, PointRect;
const
Size = 100;
var
A: RoundSquareABC;
Dx, Dy: integer;
Move: boolean;
Size2: integer;
Соколиный глаз
|
07.10.2017 19:39
|
0 |
3,787 |
|
|
Изначальный код:
uses ABCObjects, GraphABC;
const
Verts = 6;
C1 = clRed;
C2 = clCyan;
procedure FractalCreate(x, y, s: real; n: integer; a: byte);
begin
if s > 3 then
Соколиный глаз
|
07.10.2017 18:09
|
0 |
828 |
|
|
Здравствуйте,препод дал такое задание без каких либо объяснений,что с этим делать и как преобразовать в паскале?заранее спасибо!
Вид функции : \ln \frac{(x+1)}{(x-1)}
Разложение в ряд : 2
Пределы...
madaraice
|
07.10.2017 16:13
|
2 |
1,994 |
|
|
program Lab1;
var
z, a, b, l0, r0, r: real;
function f(x: real): real;
begin
f := exp(ln(x * x - 3 * x + 2) / 3);
end;
procedure sven;
var h, f0, f1, f2, x,y:real;
begin
Alina17
|
07.10.2017 14:09
|
2 |
1,530 |
|
|
Объясните пожалуйста
Задание:
Дан вещественный вектор А(n). Подсчитать количество таких i, что А не меньше всех
предыдущих элементов вектора (А , А,..., А).
Вопрос:
Что от меня тут хотят?...
KoloboKkk
|
06.10.2017 12:33
|
4 |
2,380 |
|
|
На заданном интервале найти наибольшее значение функции y=3*x*x+x-4,если x изменяется с шагом 0,5. Аргументы и значения функции привести в табличном виде.
Gleggera
|
06.10.2017 08:23
|
1 |
2,513 |
|
|
Что тут не так?
Нужно определить количество букв в слове после n-го пробела
----------------------------------------------------------------
function Slovo(st : string; n : integer) : integer;...
troshe4ka
|
05.10.2017 21:44
|
0 |
1,762 |
|
|
Найти наименьший номер члена последовательности, для которого выполняется условие |ai-ai-1|<E. Вывести на экран номер этого элемента и все элементы ai, где I = 1,2,…,n.
ai = arctg ai-1+1, a1 = 0.
KviKi_KilleR
|
05.10.2017 18:48
|
1 |
4,819 |
|
|
Необходимо написать программу, которая по матрице М определяет, какими свойствами обладает отношение R(рефлексивность, антирефлексивность, симметричность, антисимметричность, транзитивность)...
KramerI
|
05.10.2017 14:20
|
0 |
943 |
|
|
Здравствуйте. У меня есть задание, похожее (если не идентичное) на задание из этой темы:
https://www.cyberforum.ru/pascalabc/thread1266464.html
И, разбирая код Puporev'а, у меня возник вопрос. Как...
beginner_1
|
04.10.2017 16:44
|
1 |
1,466 |
|
|
Написать и отладить программу нахождения критического пути для заданной модели-решетки:
Secret_Volga
|
04.10.2017 12:38
|
1 |
1,939 |
|
|
Помогите написать программу этой задачи через функцию и процедуру, пожалуйста.
Файл с текстом может быть любой.
li_boggi
|
03.10.2017 22:58
|
2 |
1,065 |
|
|
При компиляции пишет: "Встречено 'case', а ожидался идентификатор." В чем может быть ошибка?
Const marka: array of...
Programbrey
|
03.10.2017 20:13
|
5 |
8,166 |
|
|
Определить максимальный поток природного газа, который можно пропустить через участок магистрального газопровода, если структура участка магистрального газопровода и пропускные способности дуг сети...
Secret_Volga
|
03.10.2017 19:35
|
0 |
1,021 |
|
|
Номер 4.
Функция:Arctg(x).
Ряд:x-x^3/3+x^5/5-x^7/7!+... .
Ограничение:-1<X<1.
Примечание."^"-возведение в степень, "!"-факториал.
fergus1207
|
03.10.2017 11:27
|
11 |
1,741 |
|
|
Дан массив. Расстояние между элементами равно а. Вводятся номера элементов и их нужно соединить с таким элементом, чтобы сумма длин расстояний была минимальна. Например вводятся след. номера: 1, 2 и...
Trypik
|
02.10.2017 12:55
|
0 |
1,401 |
|
|
Помогите решить пример под, при условиях №14
С геометрией всё очень плохо.
Vuset
|
01.10.2017 16:53
|
1 |
2,146 |
|
|
Написать программу которая определяет количество дней в месяце
Pascal
Noname1331
|
01.10.2017 12:48
|
1 |
1,480 |
|
|
Вычислить произведение чисел, больше заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, неравных заданному Х.
При помощи массива.
Ind1G0
|
01.10.2017 12:45
|
1 |
1,741 |
|
|
Есть задача по информатике
«Гуляющий кубик»
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Ограничение по времени тестирования: 2 секунды на один тест.
Гарри Поттеру на день...
laric11
|
01.10.2017 05:05
|
0 |
1,446 |
|
|
Женщина шла на базар продавать яйца. Ее случайно сбил с ног всадник, в результате чего все яйца разбились. Всадник предложил оплатить убытки и спросил, сколько у нее было яиц. Женщина сказала, что...
3L33TKA
|
01.10.2017 01:09
|
2 |
2,644 |
|
|
Всем привет. Как нарисовать такую машину на PascalABС, GraphABC? Помогите пожалуста
misha02
|
30.09.2017 19:36
|
2 |
19,135 |
|
|
x^2 + sin(N/x)^x/cos(x)
с x в квадрате все понятно, я не знаю как будет выглядеть sin(N/x)в степени x/cos(x).
DimiK12
|
30.09.2017 19:11
|
2 |
3,239 |
|
|
Во входном файле задано число n (2<=n<=40). выведите в выходной файл все разбиения числа n на слагаемые по одному в строке. Слагаемые следует выводить в возрастающем порядке. Разбиение отличающиеся...
Secret_Volga
|
29.09.2017 12:58
|
5 |
3,128 |
|
|
Program M1;
Var A : Array Of Integer;
i,j,q, p, x: Integer;
Begin
For i:=1 to 10 do
Begin
Write('Введите A ');
Readln(A);
q:=0;
End;
Паск
|
28.09.2017 13:21
|
5 |
1,742 |
|
|
Решить номер 2
http://rgho.st/8ZXRNCcHn
Noname1331
|
27.09.2017 17:15
|
3 |
3,470 |
|
|
1. Cоставить программу удаления максимального элемента массива
Буду Благодарен!
Apocalypset
|
27.09.2017 09:32
|
1 |
1,350 |
|
|
Создать программу, которая в веденном предложении расположит слова в порядке убывания их длины (то есть, от самого длинного слова до самого короткого).
gedello
|
27.09.2017 08:33
|
1 |
2,590 |
|
|
Нужно найти максимум двумерного массива и поставить его на 1-е место, если их несколько - посчитать.
Separate
|
27.09.2017 08:31
|
1 |
2,481 |
|
|
Всем привет! Нуждаюсь в помощи. Вот сама задача:
В массиве x(3,8) с числами в диапазоне 0..100 выделить цветом все числа, где в одном из разрядов встречается цифра 7. В какой строке их больше?
...
Programbrey
|
26.09.2017 20:43
|
1 |
1,230 |
|
|
Вот такое Найти сумму 11 членов ряда, в котором А_𝑛=√𝑛−63+√𝑛+45 (первый корень 3 степени , а второй 5 степени)
Илья3125
|
26.09.2017 19:14
|
4 |
1,399 |
|
|
Бинарный поиск
Первый нечетный
Помогите сделать) Отчёт ещё нужен в world
Noname1331
|
26.09.2017 17:13
|
1 |
1,218 |
|
|
Дан текст.Напечатать те слова последовательности ,которые симметричны и отличны от последнего слова
Sosiso4ka1214
|
26.09.2017 17:01
|
1 |
966 |
|
|
Нужно решить лабу. Это потно для меня так как я 2 курс, и вообще пока не понимаю в Паскале. Вот она Ссылка удалена модератором Нужно решить, и с отчётом ещё. Буду нереально благодарен если поможете.
Noname1331
|
26.09.2017 11:53
|
1 |
568 |
|
|
Здравствуйте! Нужен ваш совет.
Написал на лабах прогу, но не понимаю, почему она не выполняет условие if (x>-10) and (x<>-8.8) and (x<-7.9) then writeln ('x=',x,' функция не определена'). При...
GMax
|
26.09.2017 09:01
|
10 |
2,559 |
|
|
Помогите пожалуйста разобраться, :gscratch:
Не могу уже второй день нормально дописать программу с таким условием:
Записать в массив IDN типа STRING все идентификаторы переменных, которые...
li_boggi
|
26.09.2017 03:27
|
5 |
1,483 |
| Задать вопрос |
