Помогите пожалуйста решить задачки по turbo pascal
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Помогите пожалуйста решить задачки по turbo pascal - 2009-10-11 22:49:23.923333
|
|
|
Freaxxx
Сообщений: 14
Оценки: 0
Присоединился: 2009-10-11 22:44:27.793333
|
1.Дан массив из 9999 эл. вычислить S=(x1+x2+x3)*(x4+x5…x8)….(x9801+…+x9999)Каждый послед. сомножетель начинается с последнего массива и содержит на 2 эл больше Добавлено 15 минут назад 2.Даны массивы x{30} Y{30}Определить сколько элементов массива X совпадает с Y
|
|
|
RE: Помогите пожалуйста решить задачки по turbo pascal - 2009-10-11 23:48:37.576666
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
1
program Freaxxx;
var
x : array [1 ..9999] of real ;
s, t : real ;
i, j, k: integer;
begin
{Тут кусок кода где вводится массив x
или берется откуда то}
s:=1;
k := 2 ;
for i := 1 to 9801 do begin
t := 0 ;
for j := i to i +k do begin
t := t + x [j];
end;
k := k+2;
s:= s * t;
end;
{А тут вывод результата
}
end.
Зада ча бредовая - с вероятностью 99 % будет переполнение в s
|
|
|
RE: Помогите пожалуйста решить задачки по turbo pascal - 2009-10-11 23:59:36.350000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
1)До конца сам доделаешь program fff;
var
a:array[1..9999]of integer;
temp:integer;
i,j:integer;
s:integer;
begin
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=4;
a[5]:=5;
a[6]:=6;
a[7]:=7;
a[8]:=8;
s:=1;
i:=1;
repeat
temp:=0;
for j:=i to i+2 do temp:=temp+a[j];
s:=s*temp;
i:=i+3;
until i>=7;
writeln(s);
end. 2) А вторую я не понял, так? program fff;
var
x:array[1..30]of integer;
y:array[1..30]of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 30 do if(x[i]=y[i])Then inc(s);
writeln(s)
end.
|
|
|
RE: Помогите пожалуйста решить задачки по turbo pascal - 2009-10-12 00:07:54.600000
|
|
|
Freaxxx
Сообщений: 14
Оценки: 0
Присоединился: 2009-10-11 22:44:27.793333
|
Ой.спасибо вам ребята!НУУУУУУУУУУУУУУ очень благодарен!..)))!!Еще раз спасибо..))
|
|
|
RE: Помогите пожалуйста решить задачки по turbo pascal - 2009-10-12 00:12:00.480000
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
Во второй задаче несколько неясно условие - проверять совпадение всех элементов со всеми, или же только с одинаковыми индексами.
|
|
|
RE: Помогите пожалуйста решить задачки по turbo pascal - 2009-10-12 08:08:33.406666
|
|
|
Анжела_Ерохина
Сообщений: 234
Оценки: 0
Присоединился: 2009-10-05 14:58:11.790000
|
quote:
Даны массивы x{30} Y{30}Определить сколько элементов массива X совпадает с Y Условия уточните.
|
|
|
|
|