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

Автор: SLAX 11.12.2006 1:05

Превет всем!
Я новичок в єтом деле , и както не задумывался весь учебный период что прийдется учить но вот пришла сесия и теперь надо по трудиться, начал сам изучать Паскаль, структуру написания его понял , єто не трудно.
Но вот математические алгоритмы для меня сложнее сделать,

ЛЮДИ кто неплохо програмирует пожалуйста помогите решить 3 задачи, я знаю для вас єто не составит труда а мне вы окажете большую услугу.

Вот выкладываю задачи.Они на таки вот темы на оператор : for. Потом по тему массивов : array. И minmax.

1. В єтой задаче я не пойму как составить мат. алгоритм
Дано целое число N (> 0).Найти сумму
N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2
N - (целое число).

То есть описываю как я понял ее алгоритм и строение
Вот
1. N>0, В=Експонента bn , bn=(2*N)^2/
2. Найти сумму.

Если что не так как я понял поправьте меня.

А теперь вот как я понял как надо написать код.

 
program for_11;
var c, b, N:integer;
begin
b:=0;
n:=0;
writeln ('Введите число');
readln©
for b:=1 to c do
b=b+(N+C)^2
if C<N then 
C:=+1 " И надо что бы она вернулась опять в строчку b=b+(N+C)^2"
else 
end.
 

Автор: мисс_граффити 11.12.2006 3:46

1. смотри: общий вид слагаемого (N+i)^2, где i изменяется от 0 до n. (вот границы твоего цикла)
тебе надо посчитать сумму, то есть на каждом шаге к какой-то переменной (изначально она равна 0) прибавлять текущее слагаемое.
Сможешь написать?
Из переменных тебе понадобится:
n - задается пользователемж
sum - вычисляется
i - счетчик цикла, который будет использоваться и внутри скобок.

2. в поиск

Автор: -SLAX- 11.12.2006 11:49

Цитата(мисс_граффити @ 10.12.2006 23:46)

 
program for_11;
var i, sum, n:integer;
begin
i:=0;
sum:=0;
writeln ('Ââåäèòå ÷èñëî');
readln(n);
for i:=0 to n do
begin
if i<n then
for i:=0 to n do
i:=+n;
sum:=sqr(N+i);
end;
writeln('Ñóììà',sum);
end.

Автор: Bokul 11.12.2006 11:58

const n=10;
var mas:array[1..n] of byte;
      i,k:byte;
begin
  i:=1;
  k:=3;
  while (i*k<=n) do
        begin
             writeln(mas[i*k]);
             inc(i);
        end;
  readln;
end.

Автор: мисс_граффити 11.12.2006 14:34

Зачем тебе этот кусок:

if i<n then
for i:=0 to n do
i:=+n;

Автор: Гость 12.12.2006 12:31

Цитата(Bokul @ 11.12.2006 7:58)

const n=10;
var mas:array[1..n] of byte;
      i,k:byte;
begin
  i:=1;
  k:=3;
  while (i*k<=n) do
        begin
             writeln(mas[i*k]);
             inc(i);
        end;
  readln;
end.

 
var
  n, i: integer;
  s:integer;
begin
  write('N=');
  readln(n);
  s:=0;
  for i:=n to 2*n do
  begin
    s:=s+sqr(i);
  end;
  writeln(s);
  readln;
end.

program min_max;
uses crt;
var i:integer;
    m:array[1..30] of Real;
    max:real;
    t:integer;
begin
   for i:=1 to 30 do
    begin
       writeln('Ââåäèòå  ºëåìåíò ïîñëåäîâàòåëüíîñòè N',i);
       readln(m[i]);
    end;
 max:=m[1];
 t:=1;
for i:=1 to 30 do
        if m[i]>max then
           begin
             max:=m[i];
             t:=i;
             end;
     writeln(' Massiv ',m[i]);
     writeln('Максимальный эл ',max);
     writeln ('номер эл',t);
end.
 

Автор: Bokul 12.12.2006 12:55

Привіт!

Автор: -SLAX- 13.12.2006 0:53

Цитата(Bokul @ 12.12.2006 8:55)

Привіт!

Почему же не работает, чем тебе нули не угодили? Другое вопрос в том, что она и другого ничего не может вывести, так как в начале Паскаль сам обнуляет все элементы массива. Заполни массив числами перед циклом while , и увидишь, может она все-таки работает...

program array;
uses crt;
const n=10
var a: array [0..10] of real;
       k, i:integer;       

begin
    writeln(' Введите k ');
    readln(k);
for i:=1 to n do
        begin
            writeln('Введите  ' ,i, ' -й элемент массива ');
            readln(a[i]);
         end;
i:=k;
while i<=N do
         begin
            writeln (a [i]);
            i:i+k;
         end;
end.         
 

program minmax;
uses crt;
const n=10
var a: array [0..10] of real;
       i:integer;
       tmp,tmp1: real;        

begin
for i:=1 to n do
        begin
            writeln('Введите  ' ,i, ' -й элемент массива ');
            readln(a[i]);
         end;
if  a>a[i] then
a[i]=tmp;
else
a[i]=tmp1;
writeln ('Номер максимального числа в массиве', tmp );
writeln ('Номер минимального числа в массиве', tmp );            
      
end.         
 

Автор: arhimag 13.12.2006 1:03

[pascode] program minmax;

const n=10;
var a: array [0..10] of real;
i:integer;
tmp,tmp1: real;

begin
for i:=1 to 10 do
begin
writeln('Ââåäèòå ' ,i, ' -é ýëåìåíò ìàññèâà ');
readln(a[i]);
end;
tmp := -10000;
tmp1 := 10000;
for i:= 1 to 10 do begin
if tmp<a[i] then
tmp:=a[i];
if tmp1>a[i] then
tmp1:=a[i];
end;
writeln ('Íîìåð ìàêñèìàëüíîãî ÷èñëà â ìàññèâå', tmp );
writeln ('Íîìåð ìèíèìàëüíîãî ÷èñëà â ìàññèâå', tmp1 );
readln;
end. [/pascode]

Автор: -SLAX- 13.12.2006 4:24

Цитата(arhimag @ 12.12.2006 21:03)

Автор: Bokul 13.12.2006 4:46

{-----------------------------------}
while i<=N do
         begin
            writeln (a [i]);
            writeln(i);
            i:=i+k;
         end;
{-----------------------------------}

Автор: SLAX 13.12.2006 20:37

Цитата(arhimag @ 12.12.2006 21:03)