glavsvetik
Сообщение
#34369 22.4.2009, 11:56
Здравствуйте,проверьте пожалуйста.
Задание 1:вывести таблицу значений функции y=ex+2 для x от 0 до 2 с шагом 0,2.
Решение:
program tabl;
var xn,xk,dx,x,y:real;
begin
Writeln (‘|x|y|’);
xn:=0;
xk:=2;
dx:=0.2;
x:=xn;
while x<=xk do begin
y:=exp(x) +2;
writeln(‘|’,x:9:2,’|’,y:9:2,’|’);
x:=x+dx;
end;
readln;
end.
Задание 2:в массиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическким всех элементов.
Решение:
program prim5;
var a:array[1..10] of integer;
i,max,s:integer;
begin
writeln ('vvedite elements massiva');
for i:=1 to 10 do
read (a[i]);
max:=a[1];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln ('max=',max);
readln (max);
end.
я нашла только max а дальше незнаю как, подскажите пожалуйста
PCGAMER2005
Сообщение
#35351 4.5.2009, 19:27
1-ая вроде правильно, а во втором надо, можно после нахождения мах -
s:=0;
for i:=1 to 10 do
s:=s+a[i];
arif:=s/10;
перед этим в раздел var
arif,otvet:real;
непонял, зачем вы в конце пишете readln(max) если мах у вас уже найден?
далее просто otvet:=max-arif;
Gleb
Сообщение
#35397 5.5.2009, 14:50
glavsvetik, надеюсь, не поздно.
Код
program pr2;
uses CRT;
const
n = 10;
type
TMass = array[1..10] of integer;
var
a : TMass;
i, sum, max : integer;
begin
clrscr;
{ Инициализируем генератор }
randomize;
sum := 0;
writeln('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:4);
{ Считаем сумму элементов }
{ для среднего арифметического }
sum := sum + a[i];
end;
max := a[1];
{ Ищем максимум }
for i:=2 to n do
begin
if max < a[i] then max := a[i];
end;
write('Результат: ', max - (sum / n));
readln;
end.
P.S. Pascal ABC 3.0.1.35