Страница 3 из 7
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 11:41
Bumer
Хыиуду писал(а):a:=x div 100
b:=x div 10 mod 10
c:=x mod 10
А можно поподробнее ? А то я попытлася вставить это у меня чепуха какая то получилось =)
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 12:39
Хыиуду
в принципе, я догадываюсь, но сегодня у меня настроение потупить.
какая конкретно чепуха?
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 15:28
Bumer
какая конкретно чепуха?
При любых значениях выдает False, a:=x div 100 - Пишет что Операция неприминима к операндам этого типа =( ну и вообще не знаю правильно ли я сделал..
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 15:51
Хыиуду
Воистину! Ибо не real переменных тип указывать надо, а integer, или byte худой конец на!
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 16:01
Bumer
Хыиуду писал(а):Воистину! Ибо не real переменных тип указывать надо, а integer, или byte худой конец на!
Четка!=) Спасибо большок Добрый человек!
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 17:28
Anton_XXX
Привет всем!
Помогите написать программу, чтобы считал корни чилел...
Ну вот, например: 16 в корне = 4, также, чтобы считал корни 3,4,5,..,n степени... любых чисел...
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 17:52
Хыиуду
a^n=exp(n*ln(a))
Какой степенью является корень, помним?
А вообще для вычисления корня квадратного есть стандартная функция sqrt
Re: Помогите решить задачу...
Добавлено: 27 апр 2007, 17:54
Anton_XXX
аааа.... точно...спасибо!
Re: Помогите решить задачу...
Добавлено: 02 май 2007, 12:28
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ым знаком.
Re: Помогите решить задачу...
Добавлено: 07 май 2007, 16:58
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.
ПОМОГИТЕ!
И функцию тоже не понял как делать...