Записать в массив все x из промежутка

@qqw · Регистрация: 14.03.2011

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

надо записать в массив все x из промежутка 1<=x<=2
вводится h
h это шаг с которым будет изменяться Х от 1 до 2 включительно

Добавлено через 3 минуты
тоесть допустим я ввожу h=0.1
и программа выводит: 1.0 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0

@Puporev · 15.03.2011, 17:37

Pascal

uses crt;
var x:array[1..1000] of real;
    n,i:integer;
    a,h:real;
begin
clrscr;
repeat
write('Введите шаг меньше 1 h=');
readln(h);
until (h>0)and(h<1);
a:=1;
while a<=2+h/2 do
 begin
  n:=n+1;
  x[n]:=a;
  a:=a+h ;
 end;
writeln('Массив значений Х:');
for i:=1 to n do
write(x[i]:0:2,' ');
readln
end.

@most1k · 15.03.2011, 22:56

Pascal

program mas;
uses crt;
var x:array [1..1000] of real;
i,p,n:integer;
h,a:real;
begin
Write ('h= ');
Readln (h);
if (h<1) and (h>0) then
a:=1;
while a<=2 do
begin
  n:=n+1;
  x[n]:=a;
  a:=a+h ;
 end;
writeln('Массив значений Х:');
for i:=1 to n do
write(x[i],'    ');
writeln;
end.

Можна ещё так я думаю... без оператора repeat, может так легче, если не правильно извините,учусь.

@LeDep · 16.03.2011, 16:05

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

Можна ещё так я думаю... без оператора repeat, может так легче, если не правильно извините,учусь.

он здесь для проверки условия.

@most1k · 16.03.2011, 16:29

я понимаю, но без него тоже работает )

Записать в массив все x из промежутка

Решение

Решение

@qqw 0 / 0 / 0 Регистрация: 14.03.2011 Сообщений: 4
		1
	Записать в массив все x из промежутка 15.03.2011, 15:27. Показов 1031. Ответов 4 Метки нет (Все метки) надо записать в массив все x из промежутка 1<=x<=2 вводится h h это шаг с которым будет изменяться Х от 1 до 2 включительно Добавлено через 3 минуты тоесть допустим я ввожу h=0.1 и программа выводит: 1.0 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0 0

@LeDep 74 / 74 / 44 Регистрация: 12.02.2011 Сообщений: 380
	16.03.2011, 16:05	4
	Сообщение от most1k Можна ещё так я думаю... без оператора repeat, может так легче, если не правильно извините,учусь. он здесь для проверки условия. 0

@most1k 0 / 0 / 2 Регистрация: 09.03.2011 Сообщений: 15
	16.03.2011, 16:29	5
	я понимаю, но без него тоже работает ) 0

Опции темы