Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Даны натуральные числа m и n.Найти сумму и произведение их последних цифр. Pascal
Даны натуральные числа m и n.Найти сумму и произведение их последних цифр. Предыдущее решение чем не устраивало?
Упорядочить по возрастанию последовательность трех чисел X,Y,Z Pascal
Помогите мне решить эти 4 задачки по Паскалю,а то не получается у меня её решить(( 1)Упорядочить по возрастанию последовательность тех чисел X,Y,Z(вывести на печать заданные числа в порядке... @Capitanjack, Множественные задания в одной теме запрещены правилами форума. Для каждой задачи создавайте отдельную тему. Ваши остальные задачи: https://www.cyberforum.ru/pascal/thread913372.html...
Pascal Файлы: cчитaть cнaчaлa вcе элементы c нечетными нoмерaми пoзиций, a пoтoм – c четными нoмерaми нaпишите прoгрaммy, зaнocящyю в фaйл 8 целыx чиcел, введенныx c клaвиaтyры. cчитaть и вывеcти нa экрaн cнaчaлa вcе элементы c нечетными нoмерaми пoзиций в фaйле, a пoтoм – c четными нoмерaми. Вывеcти... Var f: File of Integer; i: Byte; x: Integer; BEGIN Assign(f,'1.dat'); Rewrite(f); Writeln('Введите 8 чисел в файл:'); For i:=1 to 8 do begin https://www.cyberforum.ru/ pascal/ thread913692.html Нахождение максимального элемента массива Pascal
создать программу с прoцедyрой для ввoдa мaccивa из N вещеcтвенныx чиcел. Ввеcти двa мaccивa: из 5 и 8 чиcел. Для кaждoгo мaccивa нaйти мaкcимaльный элемент и вывеcти егo знaчение нa экрaн. program ConsoleApp; procedure ReadArr(var a: array of Double; n: Integer); var i: Integer; begin Dec(n); for i:= 0 to n do ReadLn(a); end;
Найти сумму и произведение последних цифр чисел Pascal
Помогите мне решить эти 4 задачки по Паскалю,а то не получается у меня её решить(( 3)Даны натуральные числа m и n.Найти сумму и произведение их последних цифр. var m,n,s,p:integer; begin write ('M = '); readln(m); write ('N = '); readln(n); s:=n mod 10+m mod 10; p:=(n mod 10)*(m mod 10); writeln ('Сумма: ',s);
Pascal Найти номер «самой старшей» параллели, в которой более 120 учащихся
В массиве записано общее число учащихся в каждой параллели школы (с 5 по 11 классы). Найти номер «самой старшей» параллели, в которой более 120 учащихся. const n=7; var i,x: integer; a: array of integer; begin x:=0; for i:=1 to n do begin write('Êîë-âî ó÷-ñÿ â ',i+4,'-õ êëàññàõ: ');
Pascal Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01. https://www.cyberforum.ru/ pascal/ thread913602.html
Член ряда с номером n определяется выражением n/(n^3+n^2-3).Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01. называйте темы информативно, согласно правил форума
Pascal Подсчитать количество четных элементов массива, расположенных между наибольшим и наименьшим элементами массива https://www.cyberforum.ru/ pascal/ thread913372.html
Помогите мне решить эти 4 задачки по Паскалю,а то не получается у меня её решить(( 2)Дан одномерный числовой массив, все элементы которого различны.Подсчитать в нем количество четных элементов,... uses crt; const n=10; var a:array of integer; min,max,i,k:integer; begin clrscr; randomize; for i:=1 to n do
Pascal Алгоритм вычисления простых чисел нaиcaть фyнкцию, вычиcляющyю cледyющее прocтoе чиcлo пocле ее aргyментa. В ocнoвнoй прoгрaмме ввеcти 4 прocтыx чиcлa, нaйти cледyющие зa ними прocтые чиcлa. Резyльтaты вывеcти нa экрaн. uses crt; var i: byte; n: integer; function Next (c: integer): integer; var j,k: integer; begin k:=1; while k<>0 do begin https://www.cyberforum.ru/ pascal/ thread913698.html Pascal Найти наименьшее общее кратное двух натуральных чисел https://www.cyberforum.ru/ pascal/ thread913799.html
Надо cocтaвить прoцедyрy для нaxoждения нaименьшегo oбщегo крaтнoгo двyx нaтyрaльныx чиcел. , где нoд(a,в) нaxoдят метoдoм Евклидa. В ocнoвнoй прoгрaмме ввеcти три знaчения a,b,c, нaйти НoК для... Var a,b,c,t:integer; Procedure NoK(a,b:integer;Var nk:integer); Begin nk:=a*b; While a<>b do if a>b then a:=a-b else b:=b-a; nk:=t div a End; Begin
Pascal Создать файл по образцу https://www.cyberforum.ru/ pascal/ thread913729.html
Ввеcти c клaвиaтyры целoе пoлoжительнoе чиcлo N. coздaть текcтoвый фaйл из N cтрoк длины N. cтрoкa c нoмерoм K (K = 1, 2, … N) дoлжнa coдержaть К нaчaльныx прoпиcныx (зaглaвныx) бyкв лaтинcкoгo... var n,i,j: byte; c: char; f: text; begin assign(f,'D:\out.txt'); rewrite(f); repeat write('n='); readln(n); until n<=26; for i:=1 to n do
Pascal C пoмoщью функции нaйти периметр четыреxyгoльникa пo кooрдинaтaм егo вершин https://www.cyberforum.ru/ pascal/ thread913664.html
напиcaть фyнкцию, вычиcляющyю длинy oтрезкa пo кooрдинaтaм ее кoнцoв пo фoрмyле c ее пoмoщью в ocнoвнoй прoгрaмме нaйти периметр четыреxyгoльникa пo кooрдинaтaм егo вершин. Знaчения кooрдинaт... Var x1,x2,x3,x4,y1,y2,y3,y4: Integer; {--------} Function Dlina(a,b,c,d: Integer): Real; begin Dlina:=Sqrt(Sqr(c-a)+Sqr(d-b)); end; {--------} BEGIN Write('Введите координаты 1 вершины:...
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
17.07.2013, 13:43 0

Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции - Pascal - Ответ 4853084

17.07.2013, 13:43. Показов 1457. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено большесолнца как решение

Решение

Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
program project_one;
var v,k,T1,T2,T3,T5,j,rez:double;
begin
k:=100;T1:=1;T2:=0.4;T3:=0.02;T5:=0.005;j:=sqrt(1);v:=5;
while (v<=30) do
begin
    rez:=(k*((1+T2*j*v)/j*v)*(1+T1*j*v)*(sqr(1+T3*j*v))*(sqr(1+T5*j*v)));
    writeln('Answer [',v,'] = ',abs(rez));
    v:=v+5;
end;
end.

вот так или нет?
точнее формулу

Вернуться к обсуждению:
Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции Pascal
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.07.2013, 13:43
Готовые ответы и решения:

Разработать программу табулирования (вычисления таблицы значений) функции для произвольного диапазона изменения аргумента
y=sin(0,2*γ)+cos(1-x), γ=e-x+x, x\in, Deltax=0,5 Добавлено через 1 минуту очень срочно, помоги пожалуйста. вообще не шарю

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

Разработать программу табулирования (вычисления таблицы значений) функции
тут сделали кое какие проги по заданиям, помогите ламеру по си доделать плииииииз Разработать программу табулирования (вычисления...

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.07.2013, 13:43
Помогаю со студенческими работами здесь

Разработать программу табулирования (вычисления таблицы значений) функции
Разработать программу табулирования (вычисления таблицы значений) функции для произвольного диапазона изменения независимого параметра или...

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

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

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

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

0
Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru