В одномерном массиве, состоящем из п вещественных элементов, вычислить: - Pascal - Ответ 608162

Другие темы раздела
Найдите ошибку в программе Pascal Вводиться строка из букв. На экран выведена строка, заполненная "_", количество которых совпадает с количеством загаданных букв. Надо отгадать строку, вводя по букве, если она совпала, то она встает... сейчас поправлю Добавлено через 9 минут uses crt; var str, st:string; i:integer; c:char; begin clrscr;	Pascal написание программы используя оператор if https://www.cyberforum.ru/ pascal/ thread106304.html Люди помогите зделать програмку. Если сумма трех попарно разных действительных чисел меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с... Замени if (x+y+x)<1 then на if (x+y+z)<1 then
Pascal вычеркнуть строку и столбец на пересечении которого находится максимальный элемент https://www.cyberforum.ru/ pascal/ thread106371.html "Дана матрица A(5, 5). Получить матрицу C(4, 4) вычеркивая из матрицы A строки и столбца, на пересечении которых находится максимальный элемент." - цитирую дословно с грамматическими ошибками :) ... program a11; uses crt; const n=5; var a,c:array of integer; i,j,imx,jmx,k,m:byte; begin clrscr; randomize; writeln('Исходная матрица:'); for i:=1 to n do	Pascal Поиск точки в фигуре Мне по умолчанию дан треугольник, мне нужно ввести координаты точки и программа напишет находится ли эта точка в треугольнике, на его линии или вне треугольника. uses crt; const t=0.001; type Point=record x,y:real; end; {определение длины стороны} function Dlina(a,b:Point):real; begin Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y)); end;
Pascal Целой переменной k присвоить первую цифру из дробной части положительного вещественного числа как присвоить целой переменной k первую цифру из дробной части положительного вещественного числа? если кто знает скажите плиз? k:= trunc(X); Добавлено через 1 минуту это просто целую часть. если нужна только первая цифра, то: k:= trunc(X); while k div 10 <>0 do k:=k div 10; https://www.cyberforum.ru/ pascal/ thread106308.html	Pascal Сжать массив, удалив из него все элементы, модуль которых находится в интервале [а, b] Сжать массив, удалив из него все элементы, модуль которых находится в интер*вале . Освободившиеся в конце массива элементы заполнить нулями. В чём проблема? Программа толком не работает.... Не... uses crt; const n=5; var ar,ar1:array of integer; i,a,b,i1:integer; function modul(h:integer):integer; begin if h>=0 then modul:=h else https://www.cyberforum.ru/ pascal/ thread106349.html
Pascal Рекурсия: нахождение суммы ряда https://www.cyberforum.ru/ pascal/ thread106379.html Нужно найти сумму ряда 1)рекурсией и 2) суммированием в цикле. Сделал, но явно не не правильно: Var z:real; c,n:Byte;Ps1,ps2,x,F:real; Function Sum1(n:Byte):real; Function A... В чем ошибка у меня? Добавлено через 8 часов 10 минут Помогите пожалуйста.	2 задания на тему строки Pascal Здраствуйте. Помогите решить задачи: 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. 2 Задан текст, распечатать номера позиций на которых встречается буква 'к' 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. .... a:=0; e:=0; For i:=1 to length(S) do If S='a' then inc(a) else if S='e' then inc(e); If a>e then writeln('а больше') else if...
Pascal Вычислить числовую последовательность при условии, n - натуральное, х - действительное Доброго времени суток, уважаемые программисты. Попогите пожалуйста написать программу на паскале. Дано: Натуральное число "n" и действительное число "x". Вычислить: Var n,i:integer; x,s:double; function fact(m:integer):integer; begin if m>0 then fact:=n*fact(n-1); else fact:=1 end; begin writeln('enter n and x'); https://www.cyberforum.ru/ pascal/ thread106340.html	Pascal Циклом «пока» решить cos1/sin1 * (cos1+cos2)/(sin1+sin2)….(cos1+…cos n)/(sin1+…+sin n) https://www.cyberforum.ru/ pascal/ thread106302.html
Pascal Найти максимальный элемент массива В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. var a:array of real; i,j:integer; buf:real; begin for i:= 1 to n do ...	Pascal одномерный массив..паскаль авс https://www.cyberforum.ru/ pascal/ thread106280.html училку в универе не устраивает ...она хочет чтоб эти 2 задачи выглядели проще ...помогите !!! вот еще раз эти задачи В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.... а вы не могли бы в общем виде показать как выглядит по вашему первая задача ..очень прошу

Другие темы раздела

Найдите ошибку в программе Pascal
Вводиться строка из букв. На экран выведена строка, заполненная "_", количество которых совпадает с количеством загаданных букв. Надо отгадать строку, вводя по букве, если она совпала, то она встает... сейчас поправлю Добавлено через 9 минут uses crt; var str, st:string; i:integer; c:char; begin clrscr;

Pascal написание программы используя оператор if https://www.cyberforum.ru/ pascal/ thread106304.html
Люди помогите зделать програмку. Если сумма трех попарно разных действительных чисел меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с... Замени if (x+y+x)<1 then на if (x+y+z)<1 then

Pascal вычеркнуть строку и столбец на пересечении которого находится максимальный элемент https://www.cyberforum.ru/ pascal/ thread106371.html
"Дана матрица A(5, 5). Получить матрицу C(4, 4) вычеркивая из матрицы A строки и столбца, на пересечении которых находится максимальный элемент." - цитирую дословно с грамматическими ошибками :) ... program a11; uses crt; const n=5; var a,c:array of integer; i,j,imx,jmx,k,m:byte; begin clrscr; randomize; writeln('Исходная матрица:'); for i:=1 to n do

Pascal Поиск точки в фигуре
Мне по умолчанию дан треугольник, мне нужно ввести координаты точки и программа напишет находится ли эта точка в треугольнике, на его линии или вне треугольника. uses crt; const t=0.001; type Point=record x,y:real; end; {определение длины стороны} function Dlina(a,b:Point):real; begin Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y)); end;

Pascal Целой переменной k присвоить первую цифру из дробной части положительного вещественного числа как присвоить целой переменной k первую цифру из дробной части положительного вещественного числа? если кто знает скажите плиз? k:= trunc(X); Добавлено через 1 минуту это просто целую часть. если нужна только первая цифра, то: k:= trunc(X); while k div 10 <>0 do k:=k div 10; https://www.cyberforum.ru/ pascal/ thread106308.html

Pascal Сжать массив, удалив из него все элементы, модуль которых находится в интервале [а, b] Сжать массив, удалив из него все элементы, модуль которых находится в интер*вале . Освободившиеся в конце массива элементы заполнить нулями. В чём проблема? Программа толком не работает.... Не... uses crt; const n=5; var ar,ar1:array of integer; i,a,b,i1:integer; function modul(h:integer):integer; begin if h>=0 then modul:=h else https://www.cyberforum.ru/ pascal/ thread106349.html

Pascal Рекурсия: нахождение суммы ряда https://www.cyberforum.ru/ pascal/ thread106379.html
Нужно найти сумму ряда 1)рекурсией и 2) суммированием в цикле. Сделал, но явно не не правильно: Var z:real; c,n:Byte;Ps1,ps2,x,F:real; Function Sum1(n:Byte):real; Function A... В чем ошибка у меня? Добавлено через 8 часов 10 минут Помогите пожалуйста.

2 задания на тему строки Pascal
Здраствуйте. Помогите решить задачи: 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. 2 Задан текст, распечатать номера позиций на которых встречается буква 'к' 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. .... a:=0; e:=0; For i:=1 to length(S) do If S='a' then inc(a) else if S='e' then inc(e); If a>e then writeln('а больше') else if...

Pascal Вычислить числовую последовательность при условии, n - натуральное, х - действительное Доброго времени суток, уважаемые программисты. Попогите пожалуйста написать программу на паскале. Дано: Натуральное число "n" и действительное число "x". Вычислить: Var n,i:integer; x,s:double; function fact(m:integer):integer; begin if m>0 then fact:=n*fact(n-1); else fact:=1 end; begin writeln('enter n and x'); https://www.cyberforum.ru/ pascal/ thread106340.html

Pascal Циклом «пока» решить cos1/sin1 * (cos1+cos2)/(sin1+sin2)*….*(cos1+…cos n)/(sin1+…+sin n) https://www.cyberforum.ru/ pascal/ thread106302.html

Pascal Найти максимальный элемент массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. var a:array of real; i,j:integer; buf:real; begin for i:= 1 to n do ...

Pascal одномерный массив..паскаль авс https://www.cyberforum.ru/ pascal/ thread106280.html
училку в универе не устраивает ...она хочет чтоб эти 2 задачи выглядели проще ...помогите !!! вот еще раз эти задачи В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.... а вы не могли бы в общем виде показать как выглядит по вашему первая задача ..очень прошу

В одномерном массиве, состоящем из п вещественных элементов, вычислить: - Pascal - Ответ 608162

Новые блоги и статьи Все статьи Все блоги /
Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .	Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

Новые блоги и статьи

Все статьи

Все блоги /

Разбиваем монолит на два микросервиса и реализуем CI/CD

ArchitectMsa 20.03.2025

Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

Python и PDF: Создание и редактирование файлов

py-thonny 20.03.2025

Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .

Корутины в Unity и производительность WaitForSeconds

GameUnited 20.03.2025

Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

Криптография в PHP

Jason-Webb 20.03.2025

PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .

Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли

Etyuhibosecyu 20.03.2025

С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .

Реализация перечислений в Go

golander 19.03.2025

Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .

Шаблон API Gateway в микросервисной архитектуре

MatrixArchitect 19.03.2025

API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .

C++26: Что мы потеряли

bytestream 19.03.2025

С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

Async/await в C#: Асинхронное программирование в действии

UnmanagedCoder 19.03.2025

Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .

Сопоставление с образцом (Pattern Matching) в Python: Списки и словари

py-thonny 19.03.2025

Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

@ImOk 0 / 0 / 0 Регистрация: 14.12.2009 Сообщений: 9
		0
	В одномерном массиве, состоящем из п вещественных элементов, вычислить: - Pascal - Ответ 608162 19.03.2010, 08:03. Показов 1598. Ответов 1 Метки (Все метки) 1. Сжать массив, удалив из него все элементы, величина которых находится в ин¬тервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями. Вернуться к обсуждению: В одномерном массиве, состоящем из п вещественных элементов, вычислить: Pascal Следующий ответ 0