Лабораторная работа № 4
Запись от Nikolay K размещена 28.01.2020 в 17:03
Показов 1677
Комментарии 2
Метки .net, c sharp, c#, c++, вычисления, институт, информатика, контрольные, лабораторные, массивы, ответы, первый курс, программирование, решебник, решение, си, си шарп, университет, функции, циклы
|
Лабораторная работа: 4. Тема: Операторы цикла и передачи управления. Файл: Lab04_YaP_2019_1S.pdf Обратите внимание: В файлах Source.cpp, Source.cs и *.pas помимо прочего, так же имеются примечания к программам с различными комментариями и пояснениями. При оформлении программ в сети Интернет я их удаляю, чтобы не нагромождать эти программы и тем самым не затруднять их восприятие. Язык: C++. Среда: Microsoft Visual Studio 2019 v16.3.0. Платформа: x64. Задание: Составить алгоритм для расчета функции Y при X E [0..15]: 1. X^3 - 3 * X, при X <= 1 и DX = 0.2. 2. (X - 3)^3 / X, при X > 1 и DX = 0.5. ЛР № 4, задание № 5.1.cpp
Язык: Pascal. Среда: PascalABC.NET v3.5.1. Платформа: отсутствует. Задание: Составить алгоритм для расчета функции Y при X E [0..15]: 1. X^3 - 3 * X, при X <= 1 и DX = 0.2. 2. (X - 3)^3 / X, при X > 1 и DX = 0.5. Примечание: Задание аналогично предыдущему, но написано на другом языке программирования. ЛР № 4, задание № 5.1.pas
Язык: C++. Среда: Microsoft Visual Studio 2019 v16.3.0. Платформа: x64. Задание: Найти сумму ряда с точностью Е, общий член которого равен A (N) = (-1)^(N - 1) / N^N. Точность считается достигнутой, если следующий член последовательности меньше заданного Е. Задание необходимо выполнить в двух вариантах (используя два вида циклов). Примечание: Ради увеличения функциональности программы, оба варианта циклов WHILE и DO..WHILE объединил в одной программе. Правильнее было бы написать две разных программы. ЛР № 4, задание № 5.2.cpp
Язык: C Sharp. Среда: Microsoft Visual Studio 2019 v16.3.0. Платформа: Any CPU. Задание: Выведите на экран таблицу значений синуса от 0 до 2 * PI. В каждой строке должны стоять один аргумент и одно значение. Количество значений аргумента пусть задает пользователь. ЛР № 4, задание № 6.1.cs
Язык: C Sharp. Среда: Microsoft Visual Studio 2019 v16.3.0. Платформа: Any CPU. Задание: Вычислите золотое сечение по формуле 1 + (1 / (1 + 1 / (1 + 1 / (...)))). Сделайте 20 итераций. В каком знаке будут наблюдаться изменения, если сделать 30 итераций? Примечание: Тождественно предыдущему заданию: программу следовало разделить на две, с разными циклами WHILE и DO..WHILE, но я их объединил ради функциональности. ЛР № 4, задание № 6.2.cs
| |||||||||||||||||||||||||
Метки .net, c sharp, c#, c++, вычисления, институт, информатика, контрольные, лабораторные, массивы, ответы, первый курс, программирование, решебник, решение, си, си шарп, университет, функции, циклы
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 2
Комментарии
-
Несколько существенных и косметических замечаний по 5.2.pas:
0) приведенный код является решением какого-то другого задания, но не приведенного выше.
Нужно было посчитать Y для X:=0, 0.2, 0.4, ... 1 по (1) и для X:=1.5, 2.0, 2.5, ... 15 по (2).
Соответственно:Прогон:Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
function y(x: Real): Real; begin if x>1 then y:=Sqr(x-3)*(x-3)/x else y:=Sqr(x)*x-3*x; end; const W=7; D=3; var x: Integer; begin Write('X'); for x:=0 to 5 do Write(x/5:W+1:1); for x:=3 to 5 do Write(x/2:W+1:1); WriteLn; Write('Y'); for x:=0 to 5 do Write(' ',y(x/5):W:D); for x:=3 to 5 do Write(' ',y(x/2):W:D);WriteLn; WriteLn; Write('X'); for x:=6 to 14 do Write(x/2:W+1:1); WriteLn; Write('Y'); for x:=6 to 14 do Write(' ',y(x/2):W:D); WriteLn; WriteLn; Write('X'); for x:=15 to 23 do Write(x/2:W+1:1); WriteLn; Write('Y'); for x:=15 to 23 do Write(' ',y(x/2):W:D); WriteLn; WriteLn; Write('X'); for x:=24 to 30 do Write(x/2:W+1:1); WriteLn; Write('Y'); for x:=24 to 30 do Write(' ',y(x/2):W:D); WriteLn; end.
Code 1 2 3 4 5 6 7 8 9 10 11
X 0.0 0.2 0.4 0.6 0.8 1.0 1.5 2.0 2.5 Y 0.000 -0.592 -1.136 -1.584 -1.888 -2.000 -2.250 -0.500 -0.050 X 3.0 3.5 4.0 4.5 5.0 5.5 6.0 6.5 7.0 Y 0.000 0.036 0.250 0.750 1.600 2.841 4.500 6.596 9.143 X 7.5 8.0 8.5 9.0 9.5 10.0 10.5 11.0 11.5 Y 12.150 15.625 19.574 24.000 28.908 34.300 40.179 46.545 53.402 X 12.0 12.5 13.0 13.5 14.0 14.5 15.0 Y 60.750 68.590 76.923 85.750 95.071 104.888 115.200
Запись от bormant размещена 29.01.2020 в 00:32
-
Или еще лучше, так:Прогон:Pascal 1 2 3 4 5 6 7 8 9 10 11
function y(x: Real): Real; begin if x>1 then y:=Sqr(x-3)*(x-3)/x else y:=Sqr(x)*x-3*x; end; const W=16; D=4; var x: Integer; begin WriteLn('X':W,'Y':W,'X':W,'Y':W); for x:=0 to 5 do WriteLn(x/5:W:1,y(x/5):W:D,(x+14)/2:W:1,y((x+14)/2):W:D); for x:=3 to 13 do WriteLn(x/2:W:1,y(x/2):W:D,(x+17)/2:W:1,y((x+17)/2):W:D); end.
Code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
X Y X Y 0.0 0.0000 7.0 9.1429 0.2 -0.5920 7.5 12.1500 0.4 -1.1360 8.0 15.6250 0.6 -1.5840 8.5 19.5735 0.8 -1.8880 9.0 24.0000 1.0 -2.0000 9.5 28.9079 1.5 -2.2500 10.0 28.9079 2.0 -0.5000 10.5 34.3000 2.5 -0.0500 11.0 40.1786 3.0 0.0000 11.5 46.5455 3.5 0.0357 12.0 53.4022 4.0 0.2500 12.5 60.7500 4.5 0.7500 13.0 68.5900 5.0 1.6000 13.5 76.9231 5.5 2.8409 14.0 85.7500 6.0 4.5000 14.5 95.0714 6.5 6.5962 15.0 104.8879
Запись от bormant размещена 29.01.2020 в 00:45


