|
|
| Другие темы раздела | |
|
Turbo Pascal Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива
https://www.cyberforum.ru/ turbo-pascal/ thread694993.html Program qq; Var i,k:integer; a:array of integer; begin for i:=1 to 10 do read(a); read(k) for i:=1 to 10 do a:=a+k; for i:=1 to 10 do write (a); |
Вывести слово минимальной длины Turbo Pascal Разработать программу решения задачи, в которой вывести на экран порядковый номер слова минимальной длины, из строки символов на английском языке (слова разделены пробелами).Исходные данные строки вводятся с клавиатуры. |
|
Turbo Pascal Текст не записывается в файл
https://www.cyberforum.ru/ turbo-pascal/ thread694967.html ........ 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) Определить столбец с МАХ средним баллом. это задачи надо ЕЩЕ представить виде схемы. если знаете как сделайте плиз если тяжело то сам... |
Turbo Pascal Построить правильный шестиугольник со стороной а Работа в графическом режиме.Не могу разобраться помогите. Две задачи, 1)На построение фигуры Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально. https://www.cyberforum.ru/ turbo-pascal/ thread694930.html |
|
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 |
|
Turbo Pascal Найти ошибки в коде
https://www.cyberforum.ru/ turbo-pascal/ thread694917.html в этой задачи нужно использовать файловые процедуры 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яд идущих нулей.)))спасибо заранее |
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; https://www.cyberforum.ru/ turbo-pascal/ thread694882.html |
|
0 / 0 / 0
Регистрация: 26.09.2012
Сообщений: 8
|
|
| 0 | |
Найти сумму компонент, расположенных между максимальной и минимальной компонентами - Turbo Pascal - Ответ 368457011.11.2012, 21:34. Показов 738. Ответов 2
Метки (Все метки)
Дан файл вещественных чисел. Найти сумму компонент, расположенных между максимальной и минимальной компонентами. Записать в новый файл суммируемые компоненты. Вернуться к обсуждению: Найти сумму компонент, расположенных между максимальной и минимальной компонентами Turbo Pascal
0
|
|
| 11.11.2012, 21:34 | |
|
Готовые ответы и решения:
2
Найти сумму компонент, расположенных между максимальной и минимальной компонентами
Типизированные файлы. Найти сумму компонент, стоящих между минимальной и максимальной. Найти сумму компонент, стоящих между минимальной и максимальной |
| 11.11.2012, 21:34 | |
| 11.11.2012, 21:34 | |
|
Помогаю со студенческими работами здесь
0
Найти сумму компонент, стоящих между минимальной и максимальной
|