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

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

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

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

@newyork7776 · 05.10.2013, 19:12

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

Pascal

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

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

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

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

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.

@AnDrOs96 22 / 22 / 7 Регистрация: 11.09.2013 Сообщений: 186
	07.10.2013, 21:10	11
	Сообщение от newyork7776 Я не понял terassa94, я помог + написал програмку + а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!! Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом) Readln - задержка консоли (после выполнение програмки она не закроеться) Ответ:нужно писать програмки которие работают не только на даный случай,а с надеждой что этот код будет использовать в более больших проектах Во-первых никто ничего не обсирал,просто делали анализ! 1

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

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

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,917
	07.10.2013, 19:00	4
	Сообщение от newyork7776 rez:=(exp(sin(start))); вот тут описана эта формула 1

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

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
	07.10.2013, 19:55 [ТС]	6
	Составить программу, которая будет выводить на экран таблицу значений функции на промежутке [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 Сообщений: 186
	07.10.2013, 20:03	7
	Работает программа!Просто запускается немного в другом режиме! Uses CRT убери,я не знаю зачем он его поставил,может оно надо!!! 1

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

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	07.10.2013, 21:06	10
	Я не понял terassa94, я помог + написал програмку + Сообщение от newyork7776 Будет вопрос пиши а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!! Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом) Readln - задержка консоли (после выполнение програмки она не закроеться) Сообщение от Новичок А вообще программа от newyork7776 не совсем правильна:зачем считывать начальное и конечное значение и шаг если они даны в условии. Ответ:нужно писать програмки которие работают не только на даный случай,а с надеждой что этот код будет использовать в более больших проектах 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	07.10.2013, 21:13	12
	Сообщение от newyork7776 Ответ:нужно писать програмки которие работают не только на даный случай,а с надеждой что этот код будет использовать в более больших проектах Зачем?Алгоритм то ясен.Но в данной программе не надо делать ввод,все уже есть. Сообщение от AnDrOs96 Во-первых никто ничего не обсирал,просто делали анализ! Абсолютно согласен.Ни вижу в этом ничего плохого. Сообщение от newyork7776 Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом) Readln - задержка консоли (после выполнение програмки она не закроеться) Это я и за ошибки не считаю,просто Паскали разные.В ABC,например,Readln ни к чему. 2

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
	07.10.2013, 21:28 [ТС]	13
	Сообщение от newyork7776 Я не понял terassa94, я помог + написал програмку + а ВЫ начали обсырать мой код!?!??!НАГЛОСТЬ!!! Uses CRT -вот здесь читать(полностю с умним,понимаюшим взглядом) Readln - задержка консоли (после выполнение програмки она не закроеться) Ответ:нужно писать програмки которие работают не только на даный случай,а с надеждой что этот код будет использовать в более больших проектах Программа была написана не правильно! Вот и все! 0

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

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