Циклические операторы. Циклы с параметром

@Mr.Gadget · Регистрация: 26.09.2013

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

Составить программу, которая будет выводить на экран таблицу значений функции на промежутке [0,1:1] с шагом 0,1.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y={e}^{\sin x}$

@newyork7776 · 05.10.2013, 19:12

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program terassa94;
uses crt;
var start,finish,step,rez,x:real;
BEGIN
Write('Enter start = ');readln(start);
Write('Enter finish = ');readln(finish);
Write('Enter step = ');readln(step);
While (start<=finish) do
  begin
    rez:=(exp(sin(start)));
    Writeln('   Step ',start,' [E^sin(',start,')] rez = ',rez);
    start:=(start+step);
  end;
  writeln;
END.

Будет вопрос пиши

@Mr.Gadget · 07.10.2013, 18:48 **[ТС]**

а где прописана формула? игрик равно е в степени икс?

Добавлено через 7 минут
программа вообще не правильно работает

@Joker_vad · 07.10.2013, 19:00

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

rez:=(exp(sin(start)));

вот тут описана эта формула

@Mr.Gadget · 07.10.2013, 19:16 **[ТС]**

прога вообще не работает, посмотри что не так

@Mr.Gadget · 07.10.2013, 19:55 **[ТС]**

Составить программу, которая будет выводить на экран таблицу значений функции на промежутке [0,1:1] с шагом 0,1.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y={e}^{\sin x}$

@AnDrOs96 · 07.10.2013, 20:03

Работает программа!Просто запускается немного в другом режиме!
Uses CRT убери,я не знаю зачем он его поставил,может оно надо!!!

Новичок · 07.10.2013, 20:05

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var x,f:real;
begin
x:=0.1;
Writeln(' x |  y  ');
Writeln('--------');
while x<=1 do
begin
f:=exp(sin(x));
Writeln(x:0:1,'|',f:0:2); 
x:=x+0.1;
end;
Readln;
end.

Добавлено через 1 минуту
Readln просто надо добавлять.А вообще программа от newyork7776 не совсем правильна:зачем считывать начальное и конечное значение и шаг если они даны в условии.

@Mr.Gadget · 07.10.2013, 20:22 **[ТС]**

вот-вот. я же вижу

@newyork7776 · 07.10.2013, 21:06

Я не понял terassa94, я помог + написал програмку +

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

Будет вопрос пиши

а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!!
Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом)
Readln - задержка консоли (после выполнение програмки она не закроеться)

Сообщение от Новичок

А вообще программа от newyork7776 не совсем правильна:зачем считывать начальное и конечное значение и шаг если они даны в условии.

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

@AnDrOs96 · 07.10.2013, 21:10

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

Я не понял terassa94, я помог + написал програмку + а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!!
Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом)
Readln - задержка консоли (после выполнение програмки она не закроеться)

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

Во-первых никто ничего не обсирал,просто делали анализ!

Новичок · 07.10.2013, 21:13

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

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

Зачем?Алгоритм то ясен.Но в данной программе не надо делать ввод,все уже есть.

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

Во-первых никто ничего не обсирал,просто делали анализ!

Абсолютно согласен.Ни вижу в этом ничего плохого.

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

Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом)
Readln - задержка консоли (после выполнение програмки она не закроеться)

Это я и за ошибки не считаю,просто Паскали разные.В ABC,например,Readln ни к чему.

@Mr.Gadget · 07.10.2013, 21:28 **[ТС]**

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

Я не понял terassa94, я помог + написал програмку + а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!!
Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом)
Readln - задержка консоли (после выполнение програмки она не закроеться)

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

Программа была написана не правильно! Вот и все!

Новичок · 07.10.2013, 21:30

Не по теме:

Давайте не будет разводить спор.Программа newyork7776 правильна,но с неточностями.

@ermolay · 08.10.2013, 08:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  x,y: real;
begin
  x:=0.1;
  writeln(' X       Y');
  repeat
    y:=exp(sin(x));
    writeln(x:3:1,y:10:3);
    x:=x+0.1;
  until x>=1;
  readln;
end.

@Mr.Gadget · 22.10.2013, 12:35 **[ТС]**

А как она будет выглядеть, если ее написать через for...to...do? Помогите, срочно надо!

@Mr.Gadget · 22.10.2013, 13:09 **[ТС]**

как она будет выглядеть, если ее написать через цикл for..to..do?

@Cyborg Drone · 22.10.2013, 16:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  y: real;
  i: integer;
begin
  writeln(' X       Y');
  for i := 1 to 10 do
    begin
      y := exp(sin(i / 10));
      writeln((i / 10):3:1,y:10:3)
    end;
  readln
end.

Новичок · 22.10.2013, 20:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x,f:Real;
i:Integer;
begin
x:=0.1;
Writeln(' x |  y  ');
Writeln('--------');
for i:=1 to 10 do 
begin
x:=i/10;
f:=exp(sin(x));
Writeln(x:0:1,'|',f:0:2);
end;
Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1

	Циклические операторы. Циклы с параметром 05.10.2013, 17:37. Показов 1536. Ответов 18 Метки нет (Все метки) Составить программу, которая будет выводить на экран таблицу значений функции на промежутке [0,1:1] с шагом 0,1. $https://www.cyberforum.ru/cgi-bin/latex.cgi?y={e}^{\sin x}$ 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	07.10.2013, 18:48 [ТС]
	а где прописана формула? игрик равно е в степени икс? Добавлено через 7 минут программа вообще не правильно работает 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	07.10.2013, 19:16 [ТС]
	прога вообще не работает, посмотри что не так 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	07.10.2013, 19:55 [ТС]
	Составить программу, которая будет выводить на экран таблицу значений функции на промежутке [0,1:1] с шагом 0,1. $https://www.cyberforum.ru/cgi-bin/latex.cgi?y={e}^{\sin x}$ 0

@AnDrOs96 22 / 22 / 7 Регистрация: 11.09.2013 Сообщений: 185
	07.10.2013, 20:03
	Работает программа!Просто запускается немного в другом режиме! Uses CRT убери,я не знаю зачем он его поставил,может оно надо!!! 1

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	07.10.2013, 20:22 [ТС]
	вот-вот. я же вижу 0

Новичок
	07.10.2013, 21:30
	Не по теме: Давайте не будет разводить спор.Программа newyork7776 правильна,но с неточностями. 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	22.10.2013, 12:35 [ТС]
	А как она будет выглядеть, если ее написать через for...to...do? Помогите, срочно надо! 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 549 Записей в блоге: 1
	22.10.2013, 13:09 [ТС]
	как она будет выглядеть, если ее написать через цикл for..to..do? 0