Code: program primer; var f,x:real; begin writeln('x='); readln(x); if x>0 then f:=(exp(3*ln(x))/sqrt(3))-exp(x)*ln(abs(exp(3*ln(1.37)+exp(3*ln(x))+4/3))) else f:=(exp(3*ln(x))/sqrt(7))/cos(x-2*pi)-ln(abs(exp(3*ln(x)))+4*(sin(x)/cos(x))); writeln('f=',f:6:4); readln; end. Ошибок очень много выделять было лень, как я понял будет что то вроде того, если скобки верно добавил (там где надо). Результат работы: Code: x= 1 f=-8.3325
Еще нужна помощь срочно плз! А, то это я вообще понять не могу кто поможет разобраться, буду очень благодарен. [/QUOTE]Задание№1: Разработать программу табулирования функций для произвольного диапазона изменения независимого параметра или аргумента. Выполнить расчет для заданных значений исходных данных использованных x=1-2*cos (a*y)+ln(y), a=log2(y),y є [П;2П] ly=П/4 Результаты вывести в следующем виде:значение аргумента,значение вспомагательной функции и результата. В программу включить ввод исходных данных и проверку 0т-100до100.Начальное значение меньше конечного, шаг разности от начального и конечного. Задание№2:Вычислить сумму рядов.Определить тип общего члена рядов и организовав вычисления его суммы со структур вложенных циклов получить результат указав при этом к какому аргументу х он соответствует. Предусмотреть возможность ввода х находится в диапазоне от -1 до 1. 2x^/1! – 3x^2/2! + 4x^3/3! – 5x^4/4! +...+- (i+1)xi/i!*н...
С удовольствием помогу, если почетче напишешь задание, потому, что я не телепат и не понимаю, что такое N, когда оно дано, но не фигурирует в формуле
Code: /** * */ /** * @author ss88 * */ public class Question1 { /** * @param args */ public static void main(String[] args) { /* Количество слагаемых */ int N = Integer.parseInt( args[0] ); double summand = 1; double result = summand; for(int i = 0; i < N; i++){ summand+=0.1; result += (i%2 == 0)?summand:-summand; } System.out.println("Count of summands = " + N + " Result is " + result); } }
Программа на TP с элементами массивов. Ввести 5 целых чисел. Вывести на экран это число (результатирующее), корень этого числа и квадрат этого числа.
Расчет движения автомобиля. На начальном этапе учитывать трение качения, в дальнейшем условиться, возможно резким ухудшением качества сцепления колеса с дорожным покрытием (автомобиль попал на масло) . Провести расчет дальнейшего движения (интеллектуальный рассчет выхода из заноса, выравнивание траектории). Совсем не знаю физику =/ Помогите пожалуйста с математическим обоснованием. Скромная благодарность в виде пары сотен р. на телефон/вебмани тому, кто напишет правильное обоснование гарантируется.
Помогите сделать в C++ Builder вот такое задание: 1. Реализовать стек при помощи массива. Тип данных стека - int. Со стеком должны выполняться стандартные операции: 1) Push – добавление элемента в стек; 2) Pop – удаление элемента из стека (с выдачей значения удаляемого элемента); 3) Выдача значения верхнего элемента; 4) Очистка стека; 5) Печать количества элементов стека. 2. Реализовать очередь при помощи указателей. Тип данных очереди – int. С очередью должны выполняться стандартные операции: 1) Добавление элемента в очередь; 2) Удаление элемента из очереди (с выдачей значения исключаемого элемента); 3) Выдача значения первого элемента; 4) Очистка очереди; 5) Выдача количества элементов очереди.
Среда: Паскаль Задача1: Дано трехзначное число. Найти сумму и произведение его цифр. задача2: Дан номер некоторого года (целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год. помогите решить!
Задача 1: Code: program SUMMA_I_PROIZVEDENIE; var intI,tmpI,Summa,Code,Proizv:integer; strA:string; begin writeln('Vvedite chislo'); readln(intI); str(intI,strA); Summa:=0; Proizv:=1; for intI:=1 to length(strA) do begin val(strA[intI],tmpI,Code); Summa:=Summa+tmpI; Proizv:=Proizv*tmpI; end; writeln('Summa chisel chisla ',strA,' = ',Summa); writeln('Proizvedenie chisel chisla ',strA,' = ',Proizv); readln; end. Результат работы: Code: Vvedite chislo 362 Summa chisel chisla 362 = 11 Proizvedenie chisel chisla 362 = 36 Vvedite chislo 4542 Summa chisel chisla 4542 = 15 Proizvedenie chisel chisla 4542 = 160 Задача 2: Code: program Nom_Stolet; var intI,Nomer_Stoletia:integer; begin Nomer_Stoletia:=1; writeln('Vvedite god'); readln(intI); while intI-100 > 0 do begin Nomer_Stoletia:=Nomer_Stoletia+1; intI:=intI-100; end; writeln('Nomer stoletia = ',Nomer_Stoletia); readln; end. Результат работы: Code: Vvedite god 5000 Nomer stoletia = 50 Vvedite god 5001 Nomer stoletia = 51 Code: program VVOD_CHISLA; var intI:array [1..5] of longint; intA,intB,tmp:integer; Rezultir:longint; begin Rezultir:=0; for intA:=1 to 5 do begin writeln('Vvedite zifru nomer ',intA); readln(intI[intA]); tmp:=1; for intB:=1 to 5-intA do tmp:=tmp*10; Rezultir:=Rezultir+intI[intA]*tmp; end; writeln('Eto chislo = ',Rezultir); writeln('Korenb iz chisla ',Rezultir,' = ',sqrt(Rezultir):6:4); writeln('Kvadrat chisla ',Rezultir,' = ',sqr(Rezultir)); readln; end. Результат работы: Code: Vvedite zifru nomer 1 0 Vvedite zifru nomer 2 0 Vvedite zifru nomer 3 0 Vvedite zifru nomer 4 2 Vvedite zifru nomer 5 5 Eto chislo = 25 Korenb iz chisla 25 = 5.0000 Kvadrat chisla 25 = 625 Vvedite zifru nomer 1 1 Vvedite zifru nomer 2 6 Vvedite zifru nomer 3 3 Vvedite zifru nomer 4 8 Vvedite zifru nomer 5 4 Eto chislo = 16384 Korenb iz chisla 16384 = 128.0000 Kvadrat chisla 16384 = 268435456 Vvedite zifru nomer 1 1 Vvedite zifru nomer 2 2 Vvedite zifru nomer 3 3 Vvedite zifru nomer 4 4 Vvedite zifru nomer 5 5 Eto chislo = 12345 Korenb iz chisla 12345 = 111.1081 Kvadrat chisla 12345 = 152399025 Слишком большие числа лучше не писать. Диапазон Longint [-2147483648 .. 2147483647]
Задача 2. Нуб'с вариант: Code: Program Neprogram; Var vek,god: integer; BEGIN writeln('Vvedite god'); readln(god); if god mod 10 = 0 then BEGIN vek:= god div 100; writeln(vek,' stoletie'); writeln End ELSE Begin vek:= god div 100 + 1; writeln(vek,' stoletie'); writeln; End END. Результат работы: Code: Vvedite god 1900 19 stoletie Code: Vvedite god 1991 20 stoletie Задача 1: Code: program Neprogram; Var number,summ,proiz:integer; BEGIN writeln('Vvedite chslo'); readln (number); if number div 100 > 0 then if number div 100 < 10 then Begin summ:= (number div 100) + (number mod 100 div 10) + (number mod 100 mod 10); proiz:= (number div 100) * (number mod 100 div 10) * (number mod 100 mod 10); writeln('Summa chisel = ',summ); writeln('Proizvedenie chisel = ',proiz); End else writeln('Nevernoe chislo') else writeln('Nevernoe chislo'); END. Результат работы: Code: Vvedite chslo 99 Nevernoe chislo Code: Vvedite chslo 55555 Nevernoe chislo Code: Vvedite chslo 123 Summa chisel = 6 Proizvedenie chisel = 6 Code: Vvedite chslo 567 Summa chisel = 18 Proizvedenie chisel = 210
Code: uses crt; var mas:array[1..5] of byte; i:byte; x,cod:integer; er,num:string; Begin clrscr; for i:=1 to 5 do begin write('Input ',i,' num:'); readln(mas[i]); end; clrscr; num:=''; for i:=1 to 5 do begin Str(mas[i],er); num:=num+er; end; val(num,x,cod); writeln ('Num: ',x); writeln ('Sqr: ',Sqr(x)); writeln ('Sqrt: ',Sqrt(x):2:2); readkey; End.
помогите с лабораторкой пожжалуста горю нужна реализация на Visual С++ дан массив из 10000 элементов типа double заполнить его гнератором случайных чисел и вычислить сумму с минимальной погрешностью. с меня репа сколько смогу
Code: #include <iostream> #include <time.h> using namespace std; void main(void) { double MyArray[10000]; double Summ; int intI; setlocale(0,""); srand((unsigned double)time(0)); intI=1; while (intI<=10000) { MyArray[intI]=rand()%10; // Генерируем случайные числа от 0 до 9 Summ = Summ+MyArray[intI]; ++intI; } cout << "Сумма всех чисел = " << Summ << endl; system("pause"); } Результат работы: Code: Сумма всех чисел = 45335 Для продолжения нажмите любую клавишу . . .
Помогите пожалуйста.Нужно сделать лабораторную..Очень срочно. Задание: Создать программы на языках Паскаль и С для обчисления математического примера.Розработать математическую постановку задач и сложыть программы на языках паскаль и Сдля ращета значения. Оставляйте свой вебмани ил ид вконтакте,одблагодарю) Кто сможет ,стучите- 49003757пять задание- http://pic.co.ua/en/view/4f4fc18a242c5f13a80a5ed72e2fe51f/ Методичка на укр.- http://www.sharemania.ru/0192768
Помогите сделать в C++ Builder вот такое задание: 1. Реализовать стек при помощи массива. Тип данных стека - int. Со стеком должны выполняться стандартные операции: 1) Push – добавление элемента в стек; 2) Pop – удаление элемента из стека (с выдачей значения удаляемого элемента); 3) Выдача значения верхнего элемента; 4) Очистка стека; 5) Печать количества элементов стека. 2. Реализовать очередь при помощи указателей. Тип данных очереди – int. С очередью должны выполняться стандартные операции: 1) Добавление элемента в очередь; 2) Удаление элемента из очереди (с выдачей значения исключаемого элемента); 3) Выдача значения первого элемента; 4) Очистка очереди; 5) Выдача количества элементов очереди. Ну пожаааааааааалуста, очень надо((((
Язык : Pascal "Произведение цифр" найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N. Целое число N (0 ≤ N ≤ 109). Пример: исходные данные:результат 10:25 12:26 Прошу подсказать алгоритм решения.Заранее спасибо.
