циклы с параметром

@Lavinia · Регистрация: 13.03.2010

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

помогите пожалуйста составить программы:
1. Дана последовательность чисел n,b1,b2,...bn. Выдать наибольший член данной последовательности.
2. вычислить y= 1/ (a+1), если a изменяется от -10 до 10 с шагом 2,5

@Puporev · 15.04.2010, 18:18

1.

Pascal

uses crt;
var n,i,b,mx:integer;
begin
clrscr;
write('Введите размер последовательности n=');
readln(n);
writeln('Введите ',n,' целых чисел:');
readln(mx);
for i:=2 to n do
 begin
  readln(b);
  if b>mx then mx:=b;
 end;
write('Максимальное=',mx);
readln
end.

@Qiker · 15.04.2010, 18:21

Pascal

program gg;
 
var b:array[1..1000] of integer;
    n,max,y,g,i:integer;
begin
read(n);
for i:=1 to n do begin
read(b[i]);
end;
max:=b[1];
for i:=1 to n do begin
if b[i]>max then  max:=b[i];
end;
writeln('ìàêñèìàëüíûé ýëåìåíò ìàññèâà =',max);
end.

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

1. Дана последовательность чисел n,b1,b2,...bn. Выдать наибольший член данной последовательности.

@Puporev · 15.04.2010, 18:22

2.

Pascal

uses crt;
var a,y:real;
begin
clrscr;
a:=-10;
while a<=10 do
 begin
  y:=1/(a+1);
  writeln('a=',a:5:1,'  y=',y:8:2);
  a:=a+2.5;
 end;
readln
end.

Добавлено через 29 секунд
Qiker, Массив совсем ни к чему.

@Lavinia · 15.04.2010, 19:08 **[ТС]**

спасибо, подскажите

Pascal

1	writeln('a=',a:5:1,' y=',y:8:2);

от куда эти числа a:5:1, y:8:2 ?
там можно просто написать writeln(a,b)?

@Puporev · 15.04.2010, 20:42

Lavinia, числа a,b вещественные и если вывод не форматировать выведет очень много знаков после запятой, поэтому мы выделяем под а 5 позиций в строке и 1 знак после запятой, а под b 8 позиций и 2 знака после запятой. Вы программу запустите и сами увидите, потом попробуйте без форматирования и все будет ясно. Вообще самой все надо проверять и поменьше спрашивать элементарных вещей.

@Lavinia 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 3
		1
	циклы с параметром 15.04.2010, 18:00. Показов 701. Ответов 5 Метки нет (Все метки) помогите пожалуйста составить программы: 1. Дана последовательность чисел n,b1,b2,...bn. Выдать наибольший член данной последовательности. 2. вычислить y= 1/ (a+1), если a изменяется от -10 до 10 с шагом 2,5 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	15.04.2010, 20:42	6
	Lavinia, числа a,b вещественные и если вывод не форматировать выведет очень много знаков после запятой, поэтому мы выделяем под а 5 позиций в строке и 1 знак после запятой, а под b 8 позиций и 2 знака после запятой. Вы программу запустите и сами увидите, потом попробуйте без форматирования и все будет ясно. Вообще самой все надо проверять и поменьше спрашивать элементарных вещей. 0