Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ задачи в паскале

Автор: glavsvetik 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 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 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

Автор: glavsvetik 5.5.2009, 14:53

спасибо

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)