Решить 2 способами: используя цикл с параметром и goto

@prosto565 · Регистрация: 26.09.2010

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

Есть некоторая зависимость у(х). Х [0;0.2]. Задача: вывести для каждого х соответствующий у. Х с шагом 0,05. Как написано в заголовке- надо сделать 2 способам (цикл с параметром и goto). Другие типы циклов не предлагать. Спасибо.

@Puporev · 27.09.2010, 14:13

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

Другие типы циклов не предлагать.

А что будет? Расстреляют?

Pascal

uses crt;
function F(x:real):real;
begin
F:=cos(x);
end;
var a,b,h,x,y:real;
    n,i:integer;
label 1;
begin
clrscr;
a:=0;
b:=0.2;
h:=0.05;
writeln('Цикл с параметром:');
n:=round((b-a)/h)+1;
for i:=1 to n do
 begin
  x:=a+(i-1)*h;
  y:=F(x);
  writeln('x=',x:4:2,'  y=',y:6:4);
 end;
writeln;
writeln('Цикл с меткой:');
x:=a-h;
1:begin
  x:=x+h;
  y:=F(x);
  writeln('x=',x:4:2,'  y=',y:6:4);
  if x<b then goto 1;
  end;
readln
end.

@prosto565 0 / 0 / 1 Регистрация: 26.09.2010 Сообщений: 4
		1
	Решить 2 способами: используя цикл с параметром и goto 26.09.2010, 16:26. Показов 1278. Ответов 1 Метки нет (Все метки) Есть некоторая зависимость у(х). Х [0;0.2]. Задача: вывести для каждого х соответствующий у. Х с шагом 0,05. Как написано в заголовке- надо сделать 2 способам (цикл с параметром и goto). Другие типы циклов не предлагать. Спасибо. 0

Опции темы

Решить 2 способами: используя цикл с параметром и goto

Решение