Сайт хорош в плане програмирования, но к сожалению не в плане визуализации. Пожалуйста обновите стилистику вашего сайта.

Помогите пожалуйста описать процедуру DeleteNum(L,N), удаляющую из списка L элемент с номером N. Процедура также освобождает память, занимаемую удаленным элементом. Зарание спасибо

Решите пожалуйста задачу
1 Составить программу подсчёта числа элементов, равных максимальному элементу в последовательности вещественных чисел.
2 В последовательности неотрицательных чисел определить являются ли ее минимальный элемент некоторой степенью индекса этого элемента.

А почему на мои сообщения не отвечают?

Здравствуйте, Борис!
Решите пожалуйста задачу
1 Заполните файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными

Решить плиз задачу на паскале !
Дан двумерный массив содержащий 4 строки и 4 столбца.Элементами массива являются вещественные числа.Упорядочить в массиве по возрастанию элементы пятого столбца.Полученный массив вывести на экран

Здравствуйте! Кто нибудь помогите! Вот задание: Для каждого слова заданного в предложении показать долю согласных, определить слово в котором согласных больше.Надо на Char. Заранее благодарен

Здравствуйте! Помогите пожалуйста с экзаменом
Задача 3 «Автомобиль преступников».
Брауну, Джонсу и Смиту предъявлено обвинение в соучастии в ограблении банка. Похитители скрылись на поджидавшем их автомобиле. На следствии Браун показал, что преступники скрылись на синем «Бьюике»; Джонс сказал, что это был чёрный «Крайслер»; Смит утверждал, что это был «Форд Мустанг», но ни с коем случае не синий. Стало известно, что, желая запутать следствие, каждый из них указал правильно либо марку автомобиля, либо её цвет. Какой марки и какого цвета был автомобиль?

Составить программу на Pascal, содержащую:
-объект ДВУМЕРНЫЙ МАССИВ со следующими методами работы с ним:
1. Создание(параметры - количество строк и столбцов)
2. Вывод на экран
3. Вывод в числовой файл(параметры - имя рабочего файла)
-объект ОБРАБОТКА МАССИВА как потомок предыдущего со следующими методами обработки:
1. Определить, сколько пар соседних одинаковых элементов в двумерном массиве(элементы являэтся соседними, если их индексы различаются на единицу, как по столбцам, так и по строкам).
2. Заменить все элементы столбцов, в которых есть ровно 1 четный элемент, значением этого элемента.
Первый метод применить к массиву А, второй к массиву В. Вывести оба массива на экран и в файл.
Результаты работы программы вывести на экран.
Реализовать объекты программы в виде отдельного модуля.

Спасибо, вы лучшие!

Здравствуйте! Я учусь с Павлов одном классе, и нам надо написать программы, я в turbo packale ничего не понимаю, задачи Павла темболее! решите пожалуйста!
спасибо

Решите,пожалуйста,задачи:
1.a*a-b=c*c ,где a,b и c вводятся с клавиатуры и это числа от 1 до 20.
2.найти количество различных чисел числа.

решите пожалуйста задачи:

1Дано натуральное число:
а)сколько раз первая цифра встречается в данном числе;
б)верно ли, что данное число начинается на А, а заканчивается на В (А и В вводятся с клавиатуры).

2Найти все четырёхзначные числа, в которых ровно две одинаковых цифры.
3Найти количество различных цифр данного натурального числа.
4Найти количество нечётных делителей натурального числа, больших К (К вводить с клавиатуры).
5Найти все натуральные числа x, y и z из интервала от 1 до 20, для которых выполняется равенство: x * y2 = z2.

Здравствуйте, Борис!

Спасибо Вам за ответы.
Вот некоторые вопросики по ним.
В вопросе про определение положения символа в строке.
Дело в том, что я хотел подробней описать, а получилось, что только запутал все.
Выделенная константа Space_needed:Integer=4 на самом деле является неизвестной величиной.
Это в данном примере она равна 4, а ведь не факт, что и в других случаях она останется такой же.
А вот за уточнение с перебором СПАСИБО, наставили на путь истинный.
Предполагаю, что решение тогда будет иметь вид:

Begin
for i := 1 to length(St) do
if (St[i] = '' '') then Space_pos := i { в принципе, позиция любого символа }
end...

или

Space_count := 0;
For i := 1 to length(St) do begin
if (St[i] = '' '') then inc(Space_count);
if (Space_count > 0) then Space_pos := i { в Space_pos останется последнее значение }
end...

Прав ли я или все-таки необходима помощь?

*****************

А вот со вторым примером (про отключение контроля ввода/вывода) есть вопрос к строке № 8.

{ 1 } VAR
{ 2 } Code, Num: Integer; {к примеру, у Вас байты, но Code должен иметь тип Integer}
{ 3 } BEGIN
{ 4 } Write(''''Input of integer: '''');
{ 5 } repeat
{ 6 } {$I-} ReadLn(Num); {$I+}
{ 7 } Code := IOResult;
{ 8 } if Num > 255 then Code := 0; {к примеру}
{ 9 } if Code <> 0 then WriteLn(''''Error. Try again'''');
{ 10 } until Code = 0;
{ 11 } ...
{ 12 } END.

Если "правильный ввод = 0. Все остальные ошибки не 0", то получается, что число больше 255 (это в моем случае с byte) уже изначально является ошибочным, почему же тогда при неверном числе (Num) параметр count ставится в положение 0?
Может здесь просто описка?
И строку стоит записать в таком виде:
{ 8 } if ((Num > 0) and (Num < 255)) then Code := 0; { учесть "простую тупизну" - ввод
отрицательного числа }


==================================
С уважением, Евгений.

Здравствуйте, помогите, пожалуйста, написать программу для нахождения произведения n (n<=10)матриц размерности k*k (k<=10).Матрицы, n ,k вводятся с клавиатуры. Заранее спасибо!