Страница 3 из 4

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 10 май 2007, 21:00
Начинающая
[CENTER] :confused: :confused: 4. составить программу. которая будет находить а в степени в, где а и в-целые числа.[/CENTER]

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 10 май 2007, 21:16
Начинающая
в задаче №5 что-то не то...
var i,a,b: integer;
function figures_amount(x: integer):integer;
var s: string;
begin
str(x,s); Здесь что-то не получается, то ли с двоеточием что-то, то ли непонятно что))))
figures_amount:=length(s);
end;
begin
readln(a);
readln(b);
if (a<0) or (b<0) then exit;
if figures_amount(a)>figures_amount(b) then writeln('Кол-во цифр числа A больше

чем B');
{проделай это же с "меньше" и "равно"}
readln;
end.

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 11 май 2007, 01:55
Колядин Максим
Здесь просто не может быть ошибки в коде! У тебя, почему-то и 4-ая задача тоже "с точкой и запятой" была...
Попробуй скопировать код ниже в текстовый документ, а затем открыть его с помощью Паскаля и запустить. О результатах сообщи, пожалуйста.

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

var i,a,b: integer;

function figures_amount(x: integer):integer;
var s: string;
begin
str(x,s);
figures_amount:=length(s);
end;

begin
readln(a,b);
if (a<0) or (b<0) then exit;
if figures_amount(a)>figures_amount(b) then writeln('Кол-во цифр числа A больше чем B');
{проделай это же с "меньше" и "равно"}
readln;
end.
/P/S/. Скажи, какая там у тебя ошибка выдавалась, если не секрет.

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 11 май 2007, 15:50
Начинающая
выдает
":" expected
и показывает на str(x,s);
а именно-подчеркивает r(s
вот. :confused:

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 12 май 2007, 02:14
Колядин Максим
не может быть... скажи-ка поточнее, на чём код пробуешь запускать. если это паскаль, то назави версию и т.п.

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 12 май 2007, 12:39
Начинающая
паскаль это))) версия не знаю какая...у учителя по информатике брала,а где можно посмотреть?
п.с. может через ась попробуем? так быстрее будет ;)

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 12 май 2007, 13:08
Колядин Максим
Начинающая писал(а): версия не знаю какая...у учителя по информатике брала,а где можно посмотреть?
В самой программе вверху жми Help>>About....
Начинающая писал(а):п.с. может через ась попробуем? так быстрее будет
418-031-161

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 12 май 2007, 16:33
Начинающая
версия 7.0. в асю я зашла,мой номер 458-048-039.)))

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 15 май 2007, 10:44
Хыиуду
нашли ошибку? код выглядит безошибочным. хочу знать, где там могло глючить!

Re: помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

Добавлено: 15 май 2007, 17:03
Начинающая
в том то и дело.что не нашли,точнее не искали)) а у тебя есть варианты может хоть какие-нибудь?