Вопрос № 110786: Уважаемые эксперты! Помогите пожалуйста с решением задачек по программированию на Pascal. Если можно, то напишите пояснения
ко всем операциям в алгоритмах, и, самое главное, использовать нужно только стандартные алгоритмы (линейные операции, <br...Вопрос № 110805: Доброе время суток! Уважаемы эксперты, помогите решить две задачи:
№1Дан массив, надо найти длину самой длинной возрастающей подпоследовательности (for ex. дан массив 1,2,3, 21, 8, 5, 6, 7, 9, 3, 5, 1 - тогда самая длинная возрастающая подпослед...Вопрос № 110812: Уважаемые эксперты, не могли бы вы предоставить програму для построения графика функции (например sqrt(1+sqr(x)) ) на интервале от a до b....Вопрос № 110814: Здравствуйте товарищи!
Помогите в следующем вопросе:
Как можно из внешнего файла с данными, вычислить средний балл группы, если проставлен по каждому общий балл?
...
Вопрос № 110.786
Уважаемые эксперты! Помогите пожалуйста с решением задачек по программированию на Pascal. Если можно, то напишите пояснения
ко всем операциям в алгоритмах, и, самое главное, использовать нужно только стандартные алгоритмы (линейные операции,
ветвление, цикл, массивы (должны задаваться с клавиатуры, а не Randomize)), а процедуры и функции нельзя использовать.
Заранее благодарю!
1. Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали.
2. Дана матрица вещественного типа D(n,m), n и m <= 20. В заданной матрице вычеркнуть все строки, содержащие более трех
отрицательных элементов. Вывести на печать исходную матрицу-результат или соответствующее сообщение, если таких строк
не окажется или все строки будут удовлетворять условию.
3. Дан одномерный целочисленный массив В(n) и натуральное число n. Для каждого из элементов массива В выяснить,
сколько раз оно (т.е. число n) входит в эту последовательность. Результат представить в виде: "a1 встречается k1 раз".
При печати не должно быть повторяющихся строк.
Отправлен: 24.11.2007, 14:42
Вопрос задал: Mamontenok (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: lyalya
Здравствуйте, Mamontenok!
1.
program s;
type mas=array[1..100,1..100] of real;
var i,j,k,n:integer; a:mas;
begin
k:=0;
writeln('n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do begin
writeln('a[',i,j,']=');
readln(a[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
if (j>i) and (a[i,j]=0) then
k:=k+1;
end;
for i:=1 to n do begin
for j:=1 to n do
write(' ',a[i,j]:4);
writeln;
end;
writeln('k=',k);
readln;
end.
Ответ отправила: lyalya (статус: 2-ой класс)
Ответ отправлен: 24.11.2007, 15:00 Оценка за ответ: 5 Комментарий оценки: Спасибо! Оч быстро и, кажется, правильно! Остаютя ещё две задачки:-)
Отвечает: Vassea
Здравствуйте, Mamontenok!
Программа в приложении
Сначала идет ввод матрицы
Далее мы используем цикл repeat
Переменная Y -- номер строки, которую мы рассматриваем, мы увеличиваем это значение только в случае если в строке с этим номером число отрицательных элементов <=3
В переменной k мы храним число оставшихся (невычеркнутых строк)
Для каждой строки мы перебираем все элементы и если видим отрицательный, то увеличиваем переменную l
После просмотра всех элементов строки мы смотрим на значение l
Если оно больше трех то мы: i) уменьшаем число k (оставшиеся строки)
ii) не увеличиваем номер строки
iii) все оставшиеся строки сдвигаем вверх
Приложение:
Ответ отправил: Vassea (статус: 9-ый класс)
Ответ отправлен: 24.11.2007, 19:23 Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Очень признателен, надеюсь, что получу неплохую оценку по инфе, ещё раз спс!!!
Вопрос № 110.805
Доброе время суток! Уважаемы эксперты, помогите решить две задачи:
№1Дан массив, надо найти длину самой длинной возрастающей подпоследовательности (for ex. дан массив 1,2,3, 21, 8, 5, 6, 7, 9, 3, 5, 1 - тогда самая длинная возрастающая подпоследовательность 1,2,3,5, 6, 7, 9. Её длина равна 7 {т.е. подпоследовательсность - числа, идущие не только подряд, но порядок в котором они были введены сохраняется!})
По возможности, надо использовать функцию.
№2 Дан массив, надо найти длину самого длинного возрастающего отрезка (for ex. дан массив 1,2,3, 21, 8, 5, 6, 7, 9, 3, 5, 1 - тогда самые длинные возрастающие отрезки 1,2,3,21 и 5,6,7,9 Длина каждого - 4 {т.е. отрезок - числа, идущие только подряд и порядок в котором они были введены сохраняется!})
По возможности, надо использовать функцию.
Оч.прошу - помогите! :)
Отправлен: 24.11.2007, 18:33
Вопрос задал: Peeny (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 15)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Peeny!
Смотрите приложение.
Программа решает обе задачи!
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Уважаемые эксперты, не могли бы вы предоставить програму для построения графика функции (например sqrt(1+sqr(x)) ) на интервале от a до b.
Отправлен: 24.11.2007, 19:08
Вопрос задал: Silencio (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Denisss
Здравствуйте, Silencio!
В приложении находится модифицированный код моего ответа на вопрос №87955.
Модификация коснулась только функции funcY.
Как я уже писал в прошлый раз, из данного примера можно сделать отрисовку графика любой функции. Для нужно только вставить ее в функцию funcY(X).
Прим.:
Без файла egavga.bgi программа работать не будет. Файл находится в папке BGI, его нужно оттуда скопировать в папку проекта, либо прописать путь к файлу в переменной окружения %PATH%.
Удачи!
Приложение:
--------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 25.11.2007, 12:52
Вопрос № 110.814
Здравствуйте товарищи!
Помогите в следующем вопросе:
Как можно из внешнего файла с данными, вычислить средний балл группы, если проставлен по каждому общий балл?
Отвечает: Boriss
Здравствуйте, Denis Ivanov!
Самый простой, без изысков, вариант такой, как в приложении. Там же пример моего файла со сведениями. А прикрепленный - все исходники
Идея в том, что удалять все до пробела
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW:Программирование на Паскале ---- Ответ отправлен: 29.11.2007, 12:27
