|
|
| Другие темы раздела | |
|
Turbo Pascal Вывести слово минимальной длины
https://www.cyberforum.ru/ turbo-pascal/ thread694983.html Разработать программу решения задачи, в которой вывести на экран порядковый номер слова минимальной длины, из строки символов на английском языке (слова разделены пробелами).Исходные данные строки вводятся с клавиатуры. |
Текст не записывается в файл Turbo Pascal ........ Assign (ff,'Schitannii massiv.txt'); Append (ff); If s1>0 then WriteLn (ff,'Найден повторяющийся максимальный элемент!') ELSE ...... Вот в этом фрагменте если ff убираю , то сообщение на экран выводится. А в файл оно не записывается! Почему? |
| Turbo Pascal С использованием assign разработать программу формировки текстового файла Разработать программу формировки текстового файла из n строк, в первой из них 1 символ '1', 2 - '2'.........n-ой - n символов 'n'.Кол-во строк вводим с клавиатуры. я тут начал вот как то так begin assign(h,txt.txt); reset(h); как то там дальше не пошло там что то while должен быть вроде и eof(h)... Заранее спасибо с меня всем +. https://www.cyberforum.ru/ turbo-pascal/ thread694938.html | Turbo Pascal Определить и вывести оценки 2 и 5, средний балл по каждому предмету ЗАДАЧА МОЯ: Дана матрица А оценки по трем дисциплинам. 1) Заполнить и распечатать матрицу. 2) Определить и вывести оценки 2 и 5, средний балл по каждому предмету (столбу). 3) Определить и вывести строки с MAХ и MIN суммарным баллом. 4) Определить столбец с МАХ средним баллом. это задачи надо ЕЩЕ представить виде схемы. если знаете как сделайте плиз если тяжело то сам... https://www.cyberforum.ru/ turbo-pascal/ thread694932.html |
|
Turbo Pascal Построить правильный шестиугольник со стороной а Работа в графическом режиме.Не могу разобраться помогите. Две задачи, 1)На построение фигуры Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально. |
Turbo Pascal Найти номера нечетных элементов одномерного массива, подсчитать количество нечетных элементов
https://www.cyberforum.ru/ turbo-pascal/ thread694921.html Задача вроде пустяковая, но как-то не сходится. if a mod 2=0 then write(i); for i:=1 to 5 do Begin If (min>mas) then Begin min:=mas; end; Вроде так должно быть? Но как это правильно оформить? У меня с этим беда =( |
| Turbo Pascal Использование дополнительных директив стандартных модулей Нужно по условию написать программу, которая использует процедуры и функции (уже написана), работает в оконной среде, использует звук и псевдографику. Задача Найдите натуральное число от 1 до 10000 с максимальной суммой делителей. программа уже написана uses crt; Function SumDel(I:Integer):Integer; Var J,S:Integer; Begin if i=1 then s:=1 https://www.cyberforum.ru/ turbo-pascal/ thread694920.html |
Найти ошибки в коде Turbo Pascal в этой задачи нужно использовать файловые процедуры uses crt; var c,m:real; begin clrscr; write('vvedit m'); readln(m); c:=5*m/430; writeln('c=',c); readln; |
| Turbo Pascal 11. Дана квадратная матрица порядка n(n=5). Если в матрице a элемент, расположенный на главной диагонали превышает сумму остальных элементов строки, т Помогите написать программу используя процедуры. Дана квадратная матрица порядка n(n=5). Если в матрице a элемент, расположенный на главной диагонали превышает сумму остальных элементов строки, то заменить все элементы на нулевые, иначе оставить без изменения. https://www.cyberforum.ru/ turbo-pascal/ thread694912.html | Turbo Pascal Работа с текстовыми файлами: Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей Помогите плиз решить задачку)))Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей.)))спасибо заранее https://www.cyberforum.ru/ turbo-pascal/ thread694904.html |
|
Turbo Pascal Отсортировать одномерный массив по возрастанию var a:array of integer; i,j,a,b:integer; begin for i:= 1 to 10 do begin a:= random(20); write(a,' '); if a > 0 then inc(a); end; |
Turbo Pascal Дана целочисленная квадратная матрица. Определить номера строк и столбцов всех седловых точек матрицы
https://www.cyberforum.ru/ turbo-pascal/ thread694881.html Дана целочисленная квадратная матрица. Определить номера строк и столбцов всех седловых точек матрицы. Примечание: Матрица А имеет седловую точку |
|
5 / 5 / 0
Регистрация: 23.10.2012
Сообщений: 21
|
|
| 11.11.2012, 22:03 [ТС] | 0 |
Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива - Turbo Pascal - Ответ 368472311.11.2012, 22:03. Показов 9784. Ответов 6
Метки (Все метки)
Ответ
В чем заключается ошибка в той программе, которую написала я? Просто при ее вводе у меня все получается..
Вернуться к обсуждению: Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива Turbo Pascal
0
|
|
| 11.11.2012, 22:03 | |
|
Готовые ответы и решения:
6
Прибавить к каждому элементу число 3 и посчитать сумму элементов матрицы, находящихся в нечетных столбцах |
| 11.11.2012, 22:03 | |
| 11.11.2012, 22:03 | |
|
Помогаю со студенческими работами здесь
0
|