VPF::Палиндром двух значного числа..

laila

Дата 25.3.2008, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Очень нужна ваша помощь!!!!! Суть задачи заключается в том:
Дано двух-значное число. Поменяв в етом числе цифры местами получается другое двух-значное число (пр. 64 и 46). И если сложив ети два числа получается полный квадратб то должно на экран выводится:
1.двухзначное начальное число
2.перевёрнутое число
3.полученная сумма
4.квадратный корень из этой суммы
И надо найти все двухзначные числа которые удовлетворят эти условияю.
Помогите пожалуйста безнадёжнай-юной программистке smile

Буду очень приочень вам благодарнаю

volvo877

Дата 25.3.2008, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(laila @ 25.3.2008, 20:56

)

Очень нужна ваша помощь!

Помощь - это НЕ написание кода с нуля и "для сдачи". Начни, если что не получится - поможем...

laila

Дата 26.3.2008, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Код


program palindrom;
var  number:string;

 procedure perevorot(var s:String);
 var i:integer;
     a:string;
 begin
  a:='';
  for i:= length(s) downto 1 do
    a:=a+s[i];
  writeln;
  writeln('Rezultat: ');
  writeln(a);
 end;

begin
writeln('Vvedite tekst ');
readln(number);
perevorot(number);
readln;
end.

вот начало моей программы, я перевернула это число,а вот что далше делат как эти 2 числа сложить?

mmvds

Дата 26.3.2008, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6

Для двузначных вовсе не обязательно работать со строками

Код


function pal(var a:byte):byte;
begin
  pal:=(a mod 10)*10+(a div 10);
end;
var a,sum:byte;
begin
  for a:=11 to 99 do
  begin
    sum:=a+pal(a);
    if sqr(trunc(sqrt(sum)))=sum then
      begin
        writeln('4islo=',a,' palindrom=',pal(a));
        writeln('summa=',sum,' koren=',sqrt(sum):2:0);
        writeln;
      end;
  end;
readln;
end.

laila

Дата 26.3.2008, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Какое простое оказалось решение, я даже так почему-то не думала smile

Большое спасибо за код smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »