|
|
| Другие темы раздела | |
| Pascal ABC Дан целочисленный вектор A(2n) Дан целочисленный вектор A(2n). Если в векторе сумма S1=a1+ a2+...+an равна сумме S2=an+1+ an+2+...+ a2n, то поменять местами первый и последний элементы вектора. На печать выдавать исходный вектор, суммы S1, S2, преобразованный вектор. Очень нужна помощь. Буду очень благодарна. https://www.cyberforum.ru/ pascalabc/ thread1892130.html |
Вывести на экран первые n элементов арифметической прогрессии Pascal ABC Нужно составить программу, которая выводит на экран первые n элементы арифметической ошибки. Первый член прогрессии и разницу прогрессии вводим на клавиатуре. Пожалуйста, помогите найти ошибки в работе. program progressija; var d,k:real; n,a,i:integer; function progr(a,d:real;n:integer):real; begin progr:=progr(a,d,n-1)+d; end; |
| Pascal ABC Дана действительная матрица размерности МхМ Дана действительная матрица размерности МхМ Если максимальный элемент матрицы на главной диагонали, то найти среднее арифметическое элементов, стоящих над побочной диагональю и добавить его к минимальным элементам каждой строки матрицы. В противном случае оставить без изменений. Пожалуйста, помогите. https://www.cyberforum.ru/ pascalabc/ thread1892010.html | Pascal ABC Для заданного файла вычислить задание: Для заданного файла вычислить |a1 – a2| + |a2 – a3| + |a3 – a4| + ... + |an–1 – an| (здесь ai — последовательно прочитанные элементы файла, причём нумерация начата с 1) не получается никак... https://www.cyberforum.ru/ pascalabc/ thread1891994.html |
|
Pascal ABC Опишите алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в файле задание:Опишите алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в файле. Гарантируется, что в файле есть хотя бы одно положительное нечетное число. моя программа: type foi= text; procedure inp_f(var f:foi); var n,i,a:integer; begin n:=1+random(20); rewrite(f); for i:=1 to n do begin |
Pascal ABC Для заданного файла возвратить true, если он не содержит нуля, и false в противном случае
https://www.cyberforum.ru/ pascalabc/ thread1891893.html задание:Для заданного файла возвратить true, если он не содержит нуля, и false в противном случае. мое решение: Const N = 20; var f: text; i:integer; begin randomize; assign(f,'zero.txt'); Rewrite(f); for i := 1 to N do |
|
Pascal ABC Генерация кодов Грея
https://www.cyberforum.ru/ pascalabc/ thread1891445.html Помогите пожалуйста не знаю как написать на паскале! Реализовать рекурсивный способ порождения кодов Грея заданной размерности. |
Pascal ABC Создать функцию для вычисления степени Вычислить (-3^2 + 2^4 )/4^(-2), создав функцию для вычисления степени. |
|
Pascal ABC Определить какой год по знаку зодиака
https://www.cyberforum.ru/ pascalabc/ thread1891071.html Известно, что 2006 год - год Собаки. Вводится номер года от 2000 до 2023. Определить, какой это год по знаку Зодиака. (Использовать оператор Case). (Справка. Знаки Зодиака идут в следующем порядке: Крыса, Бык, Тигр, Кот, Дракон, Змея, Лошадь, Коза, Обезьяна, Петух, Собака, Свинья) |
Pascal ABC Перенос кода из Delphi на Pascal ABC
https://www.cyberforum.ru/ pascalabc/ thread1890999.html Здравствуйте! Помогите пожалуйста перенести проект на Pascal ABC unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, |
|
Pascal ABC Составьте программу для вычисления произведения Составить программу для вычисления произведения: \prod_{k=1}^{15}\left( 1+\operatorname{e}^{{\,}^{\sin k}}\right),\ \ \ \ k\,=\,3,\,6,\,9,\,...,\,15 |
Pascal ABC Вывести заданную последовательность
https://www.cyberforum.ru/ pascalabc/ thread1890945.html Последовательность x1,x2,… образована по заданному ниже закону. Распечатать x1,x2,…,x20. Постарайтесь обойтись без массивов – в задаче нет острой необходимости сохранения всех значений xi. x1=1; x2=0.3; xi=(i+1)xi-2, i=3,4,… ; |
|
0 / 0 / 0
Регистрация: 30.12.2016
Сообщений: 2
|
|
| 0 | |
Дана строка, слова разделены одним пробелом, в конце точка - Pascal ABC - Ответ 996065730.12.2016, 23:03. Показов 7811. Ответов 1
Метки (Все метки)
Буду очень благодарна за помощь. Вернуться к обсуждению: Дана строка, слова разделены одним пробелом, в конце точка Pascal ABC
0
|
|
|
|
| 30.12.2016, 23:03 | |
|
Готовые ответы и решения:
1
|
| 30.12.2016, 23:03 | |
| 30.12.2016, 23:03 | |
|
Помогаю со студенческими работами здесь
0
Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой Дан текст. Слова в тексте отделены одним пробелом, в конце текста точка. Каждое слово, начинающееся и оканчивающееся
|