Создание простого кода задания

@timuroup · Регистрация: 01.12.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте. Необходимо, пожалуйста, составить код для этих задач. Мне кажется, для знатоков, они будут очень простые, а я ничего не смыслю в данном Языке. Большое спасибо заранее.

(Вложения удалены)

@Puporev · 01.12.2016, 19:30

Сообщение от timuroup

составить код для этих задач.

Давайте-ка для каждого задания свою тему, текст заданий пишем в темах руками, формулы набираем в редакторе что под окном сообщений.

@timuroup · 01.12.2016, 19:35 **[ТС]**

Да я бы с удовольствием, просто видите, мне это так срочно нужно, что, скорее всего, я состарюсь, пока разберусь в этом окошечке куда формулу вбивать. простите :/ мне итак завтра на паре будут мозги рубить с Паскалем, хотя учусь на управление, а Вы мне ещё такие сложности подкидываете)

@Puporev · 01.12.2016, 19:41

timuroup, Извини, но правила есть правила.

Добавлено через 39 секунд
Разрешаю формулы картинками, но только формулы.

@timuroup · 01.12.2016, 19:44 **[ТС]**

Подскажите, пожалуйста, какова вероятность того, что мне здесь помогут, если я оформлю как надо? Просто мне до 12 по Мск это нужно уже. Я не справлюсь сам.

@Puporev · 01.12.2016, 19:46

Обещаю сегодня написать коды этих трех программ.

@timuroup · 01.12.2016, 20:02 **[ТС]**

Спасибо большое! 1 задание формулу прикрепляю, дальнейшие условия:
b=4,2
1<=x<=11
deltaX=2

$https://www.cyberforum.ru/cgi-bin/latex.cgi? Y=\frac{\sqrt{\cos x+b+x^2}}{\ln |x+1|} $

@timuroup · 01.12.2016, 20:03 **[ТС]**

Я вот попытался первое задание сам решить, не знаю, верно или нет, просто способов решения 4 должно быть:
1)операторов условного (IF) и безусловного переходов (GOTO);
2)цикла с предусловием (WHILE);
3)цикла с постусловием (REPEAT);
4)цикла с параметром (FOR);

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program dfs;
var
y, b: real; x: integer;
begin
 b:=4.2;
 x:=1;
 for x:=1 to 11 do begin
 y:=sqrt(cos(x)+b+sqr(x))/ln(abs(x+1));
 writeln ('x=', x, 'y=',y);
 x:=x+1;
 end;
 end.

@Puporev · 01.12.2016, 20:14

Так тоже верно выводит, только нужно вывод форматировать.

Pascal
1
writeln ('x=',x:2,' y=',y:4:1);

Но вообще так не пишут, нельзя счетчик цикла изменять внутри цикла.
Так правильнее.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const b=4.2;
      xn=1;
      xk=11;
      dx=2;
var x:integer;
    y:real;
begin
x:=xn;
while x<=xk do
 begin
  y:=sqrt(cos(x)+b+x*x)/ln(abs(x+1));
  writeln('x=',x:2,' y=',y:4:1);
  x:=x+dx;
 end;
end.

@timuroup · 01.12.2016, 20:26 **[ТС]**

Ого, спасибо большое! Я попытался решить и остальные 3, вот что получилось, прилагаю коды:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program dfs;
label one;
var
y, b: real; x: integer;
begin
 b:=4.2;
 x:=1;
 one: y:=sqrt(cos(x)+b+sqr(x))/ln(abs(x+1));
 writeln ('x=', x, 'y=',y);
 x:=x+1;
 if x<=11 then goto one;
 end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program dfs;
var
y, b: real; x: integer;
begin
 b:=4.2;
 x:=1;
 repeat
y:=sqrt(cos(x)+b+sqr(x))/ln(abs(x+1));
 writeln ('x=', x, 'y=',y);
 x:=x+1;
until x>11;
 end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program dfs;
var
y, b: real; x: integer;
begin
 b:=4.2;
 x:=1;
while x<=11 do
begin
y:=sqrt(cos(x)+b+sqr(x))/ln(abs(x+1));
 writeln ('x=', x, 'y=',y);
 x:=x+1;
 end;
 end.

@Puporev · 01.12.2016, 20:34

Сообщение от timuroup

и остальные 3

Так остальных только 2. И зачем первую переделал, да еще с этим тупым goto?

Добавлено через 1 минуту
Так это у тебя все первая программа. Если тебе нечего делать, тренируйся дальше, а мне скоро спать пора.

@timuroup · 01.12.2016, 20:35 **[ТС]**

Просто видите, я делал по примеру одногруппницы, поэтому сделал всё также, как и там, чтобы было 4 решения. Такой преподаватель, сдать меньше нельзя, нужно так, чтобы всё сошлось с ответом и всё, остальное его не волнует. Судя по всему, у меня в решениях ошибка где-то, вроде бы с ответами сходится, но у второй переменной остаток огромный показывает, хоть и правильный. А в Вашем решении, остаток прям четкий, красивый, как у препода в ответах. Как так, не понимаю.

@Puporev · 01.12.2016, 20:41

Так я же писал что вывод нужно форматировать. Посмотри как у меня.

Добавлено через 3 минуты
На тебе вторую программу.

Pascal
1
2
3
4
5
6
7
8
9
const n=20;
var i:integer;
    s:real;
begin
s:=0;
for i:=2 to n do
s:=s+i/(i*i-1);
write('S=',s:0:2)
end.

$https://www.cyberforum.ru/cgi-bin/latex.cgi? \sum_{n=2}^{20}\frac{n}{n^2-1};\ \ \ S=2.85 $

@timuroup · 01.12.2016, 20:45 **[ТС]**

Большое спасибо, понял, как вывод сделать, получилось лучше! Очень выручаете меня!

Добавлено через 1 минуту
Тем временем, попытался сделать второе задание тремя методами, как у одногруппницы, с ответом всё сошлось, правильно не правильно, не знаю, хотел у Вас, профессионального мнения узнать. Прилагаю ниже код! Спасибо Вам большое, очень выручаете!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program summa1;
var
n:integer; s,a:real;
begin
n:=2;
s:=0;
While n<=20 do begin
A:=n/(sqr(n)-1);
S:=S+A;
n:=n+1;
end;
writeln('s=',s:4:2);
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program summa2;
var
n:integer; s,a:real;
begin
n:=2;
s:=0;
repeat
A:=n/(sqr(n)-1);
S:=S+A;
n:=n+1;
until n>20;
writeln('s=',s:4:2);
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program summa3;
var
n:integer; s,a:real;
begin
s:=0;
for n:=2 to 20 do begin
A:=n/(sqr(n)-1);
S:=S+A;
end;
writeln('s=',s:4:2);
readln;
end.

@Puporev · 01.12.2016, 20:51

Третья программа и до свидания.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const a=1.5;
      xn=1;
      xk=8;
      dx=0.5;
var x,y,z:real;
begin
//цикл с предусловием
x:=xn;
while x<xk+dx/2 do //чтобы не проскочить xk
 begin
  if x<3 then y:=a*x
  else if x=3 then y:=x+a
  else y:=x/a;
  z:=5*y+7.2*y*y;
  writeln('x=',x:4:1,' y=',y:4:1,' z=',z:6:1);
  x:=x+dx;
 end;
writeln;
//цикл с постусловием
x:=xn;
repeat
 if x<3 then y:=a*x
  else if x=3 then y:=x+a
  else y:=x/a;
  z:=5*y+7.2*y*y;
  writeln('x=',x:4:1,' y=',y:4:1,' z=',z:6:1);
  x:=x+dx;
until x>xk;
 
end.

@timuroup · 01.12.2016, 20:55 **[ТС]**

Вот 3 задание я уже никак не могу сам решить. Вообще ничего не понимаю. Помогите пожалуйста! Формулу прилагаю, задание пишу:
Вычислите значение функции Z
a=1,5
xЄ [1;8] ΔX=0,5
Ответ должен получиться:
Z(1,0)=23,70
Z(1,5)=47,70
Z(2,0)=79,80
Z(2,5)=120,00
Z(3,0)=168,30
Z(3,5)=50,87
Z(4,0)=64,53
Z(4,5)=79,80
Z(5,0)=96,67
Z(5,5)=115,13
Z(6,0)=135,20
Z(6,5)=156,87
Z(7,0)=180,13
Z(7,5)=205,00
Z(8,0)=231,47

$https://www.cyberforum.ru/cgi-bin/latex.cgi? Z=5y+7.2y^2\\\\y=\begin{cases}ax &,\ x<3 \\\\ x+a &,\ x=3 \\\\ \frac{x}{a} &,\ x>3 \end{cases} $

@Puporev · 01.12.2016, 21:04

Я же тебе написал третью, ты смотри сообщения. Только там в двух местах, где

Pascal
1
writeln('x=',x:4:1,' y=',y:4:1,' z=',z:6:1);

поставь z:6:2, если нужно 2 знака после запятой.
Ответы сходятся в обоих циклах.

@Puporev · 01.12.2016, 21:06

Если не нужно вывод x, y, убери.

@timuroup · 01.12.2016, 21:14 **[ТС]**

ОГРОМНОЕ СПАСИБО!!! Я очень Вам благодарен!!! Я вообще без понятия, как бы я без Вас, где бы я без Вас, кем я вообще был бы без Вас! Просто огромнейшее студенческое спасибо Вам!

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

Создание простого кода задания

Решение

Решение

Решение

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12

	Создание простого кода задания 01.12.2016, 19:24. Показов 2582. Ответов 18 Метки нет (Все метки) Здравствуйте. Необходимо, пожалуйста, составить код для этих задач. Мне кажется, для знатоков, они будут очень простые, а я ничего не смыслю в данном Языке. Большое спасибо заранее. (Вложения удалены) 0

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 19:35 [ТС]
	Да я бы с удовольствием, просто видите, мне это так срочно нужно, что, скорее всего, я состарюсь, пока разберусь в этом окошечке куда формулу вбивать. простите :/ мне итак завтра на паре будут мозги рубить с Паскалем, хотя учусь на управление, а Вы мне ещё такие сложности подкидываете) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	01.12.2016, 19:41
	timuroup, Извини, но правила есть правила. Добавлено через 39 секунд Разрешаю формулы картинками, но только формулы. 1

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 19:44 [ТС]
	Подскажите, пожалуйста, какова вероятность того, что мне здесь помогут, если я оформлю как надо? Просто мне до 12 по Мск это нужно уже. Я не справлюсь сам. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	01.12.2016, 19:46
	Обещаю сегодня написать коды этих трех программ. 1

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 20:02 [ТС]
	Спасибо большое! 1 задание формулу прикрепляю, дальнейшие условия: b=4,2 1<=x<=11 deltaX=2 $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Y=\frac{\sqrt{\cos x+b+x^2}}{\ln \|x+1\|}<br />$ 0

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 20:35 [ТС]
	Просто видите, я делал по примеру одногруппницы, поэтому сделал всё также, как и там, чтобы было 4 решения. Такой преподаватель, сдать меньше нельзя, нужно так, чтобы всё сошлось с ответом и всё, остальное его не волнует. Судя по всему, у меня в решениях ошибка где-то, вроде бы с ответами сходится, но у второй переменной остаток огромный показывает, хоть и правильный. А в Вашем решении, остаток прям четкий, красивый, как у препода в ответах. Как так, не понимаю. 0

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 20:55 [ТС]
	Вот 3 задание я уже никак не могу сам решить. Вообще ничего не понимаю. Помогите пожалуйста! Формулу прилагаю, задание пишу: Вычислите значение функции Z a=1,5 xЄ [1;8] ΔX=0,5 Ответ должен получиться: Z(1,0)=23,70 Z(1,5)=47,70 Z(2,0)=79,80 Z(2,5)=120,00 Z(3,0)=168,30 Z(3,5)=50,87 Z(4,0)=64,53 Z(4,5)=79,80 Z(5,0)=96,67 Z(5,5)=115,13 Z(6,0)=135,20 Z(6,5)=156,87 Z(7,0)=180,13 Z(7,5)=205,00 Z(8,0)=231,47 $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=5y+7.2y^2\\\\y=\begin{cases}ax &,\ x<3 \\\\ x+a &,\ x=3 \\\\ \frac{x}{a} &,\ x>3 \end{cases}<br />$ 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	01.12.2016, 21:06
	Сообщение было отмечено timuroup как решение Решение Если не нужно вывод x, y, убери. 1

@timuroup 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 12
	01.12.2016, 21:14 [ТС]
	ОГРОМНОЕ СПАСИБО!!! Я очень Вам благодарен!!! Я вообще без понятия, как бы я без Вас, где бы я без Вас, кем я вообще был бы без Вас! Просто огромнейшее студенческое спасибо Вам! 0