Помогите решить задачу...

[Bumer]

a:=x div 100
b:=x div 10 mod 10
c:=x mod 10

А можно поподробнее ? А то я попытлася вставить это у меня чепуха какая то получилось =)

[Хыиуду]

в принципе, я догадываюсь, но сегодня у меня настроение потупить.
какая конкретно чепуха?

[Bumer]

какая конкретно чепуха?

При любых значениях выдает False, a:=x div 100 - Пишет что Операция неприминима к операндам этого типа =( ну и вообще не знаю правильно ли я сделал..

[Хыиуду]

Воистину! Ибо не real переменных тип указывать надо, а integer, или byte худой конец на!

[Bumer]

Воистину! Ибо не real переменных тип указывать надо, а integer, или byte худой конец на!

Четка!=) Спасибо большок Добрый человек!

[Anton_XXX]

Привет всем!
Помогите написать программу, чтобы считал корни чилел...
Ну вот, например: 16 в корне = 4, также, чтобы считал корни 3,4,5,..,n степени... любых чисел...

[Хыиуду]

a^n=exp(n*ln(a))
Какой степенью является корень, помним?
А вообще для вычисления корня квадратного есть стандартная функция sqrt

[Anton_XXX]

аааа.... точно...спасибо!

[Bumer]

Помогите с задачкой..
Числовая последовательность данных действительного типа G(i,j,x) состоит из N элементов, где N=i*j. Составить программу вычисления трёх значений функции Y.

3 2
y=(знак суммы)*(знак суммы)*(i*j +x), при х=0,5; 1; 2
i-1 j-1

Решается в Pascal с помощью вложенного циклического алгоритма.
P.S. 3 должна размещяться над 1 знаком суммы, i-1 соответственно под 1 знаком... 2 над 2ым знаком, j-1 под 2ым знаком.

[Anton_XXX]

Привет всем! Нужна ваша помощь... Тема: типизированные файлы...
Задачу я почти решил...
Вот условие:
Написать функцию подсчитывающую сумму отрицательных элементов в файле.
В этой задаче, я не смог дадумать алгоритм подсчета отрицательных элементов...
Вот что я нарешал:

Код: Выделить всё

program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
for i:=1 to k do
begin
read(f,n);
if n.i<0 then    {Помогите!}
x:=n.i;
end;
end;
write(x);
end.

ПОМОГИТЕ!
И функцию тоже не понял как делать...