Найти последнюю цифру от числа в Паскале

[Jora_Kornev]

исправляю весь код:

Program noob2;
uses crt;
var 
 s, s1 : string;
 a : real;
BEGIN
 a:=2/5;
 str(a:0:0, s);
 s1:=s[length(s)];
	case s1 of
		'0': writeln('Last digit is: ',0);
		'1': writeln('Last digit is: ',1);
		'2': writeln('Last digit is: ',4);
		'3': writeln('Last digit is: ',9);
		'4': writeln('Last digit is: ',6);
		'5': writeln('Last digit is: ',5);
		'6': writeln('Last digit is: ',6);
		'7': writeln('Last digit is: ',9);
		'8': writeln('Last digit is: ',4);
		'9': writeln('Last digit is: ',1);
 readkey;
END.

[Sazary]

Сообщение от __STDC__

кстати.. вот любопытная штука... http://ru.wikipedia.org/wiki/0,(9) =)

Помню в 10-м или 11-м классе (в школе) я спорил с математичкой по этому поводу и пытался доказать, что 1/бесконечной нельзя пренебрегать ))

[__STDC__]

исправляю весь код:

только s1 должен быть типа char, не хватает end после case, и еще прога всегда будет показывать 0 =)

Помню в 10-м или 11-м классе (в школе) я спорил с математичкой по этому поводу и пытался доказать, что 1/бесконечной нельзя пренебрегать ))

и кто выиграл спор?)

[Sazary]

Сообщение от __STDC__

и кто выиграл спор?)

Каждый остался при своем ))
С ее стороны никаких убедительных аргументов не услышал. Только ироничный вопрос "Ну что такое одна бесконечная?" )

[__STDC__]

Сообщение от Sazary

Каждый остался при своем ))
С ее стороны никаких убедительных аргументов не услышал. Только ироничный вопрос "Ну что такое одна бесконечная?" )

=) математики они такие... но в контексте нашей программы настолько малые величины не имеют значения) все равно размера типа не хватит))) у нас тут все дискретно)

[Sazary]

Добавил обработку 0.(9)

num := 0.999999999999999999999;
.......
все то же самое...
...........
if length(tmp2)=0 then
   sym := tmp[pos('.',tmp)-1]
  else if not flag then sym := tmp2[length(tmp2)]
  else
   begin
   sym := tmp2[length(tmp2)-1];
   if sym = '9' then sym := '1';
   end;

[Карабин]

Сообщение от __STDC__

Поясняю код =)

var
	tmp,tmp2:string; //переменные строкового типа, исходная строка и дробная часть
	sym:char; //последний символ строка
	num:real; //число
	i:byte; //счетчик
begin
	num := 2/5; //исходное число
	
	str(num,tmp); //преобразуем в строку
    tmp2 := copy(tmp,pos('.',tmp)+1,pos('E',tmp)-pos('.',tmp)-1); //и выделяем дробную часть

	for i:=length(tmp2) downto 1 do
		if (tmp2[i] = '0') then delete(tmp2,i,1); //для каждого символа проверяем равенство нулю, и если это так - удаляем его

  if length(tmp2)=0 then //если после этого строка пуста (длина = 0)
   sym := tmp[pos('.',tmp)-1] //переменной sym присваеваем значение первого символа перед десятичной .
  else sym := tmp2[length(tmp2)]; //иначе - последний символ из строки tmp2
	
	case sym of //в зависимости от значения sym определяем последнюю цифру квадрата
		'0': writeln('Last digit is: ',0);
		'1': writeln('Last digit is: ',1);
		'2': writeln('Last digit is: ',4);
		'3': writeln('Last digit is: ',9);
		'4': writeln('Last digit is: ',6);
		'5': writeln('Last digit is: ',5);
		'6': writeln('Last digit is: ',6);
		'7': writeln('Last digit is: ',9);
		'8': writeln('Last digit is: ',4);
		'9': writeln('Last digit is: ',1);
	end;
	val(tmp2,num); //преобразуем строку в число
	num := sqr(num); //находим квадрат
	writeln('Square of number is ',num:0:17); //выводим его для проверки
	readln;
end.

Написал для проверки код в Паскале - работает без ошибок, но даёт результат "0,00000000000000000". Так и должно быть?

Я попробовал заменить "num:=2/5;" на "writeln ('Введите число'); readln (num);", чтобы исходное число определял пользователь. Для проверки ввёл число 11.09, а получил результат 361.000000000000000. Так не должно быть. Где то я не досмотрел. Подскажите пожалуйста.

Что означают: 'Last digit is: ' , length , pos , copy , 'E' (вообще не понял откуда и для чего взялось)?

[__STDC__]

скопируйте код вот отсюда
http://programmersforum.ru/showpost....9&postcount=59 =)

[Sazary]

Сообщение от Карабин

Написал для проверки код в Паскале - работает без ошибок, но даёт результат "0,00000000000000000". Так и должно быть?

Да. Просто я делал изменения в листинге __STDC__. Нули - это возведенный в квадрат ноль. В общем, удалите строчку:

writeln('Square of number is ',num:0:17); //выводим его для проверки

ps Думаю, для преподавателя это решение будет неожиданным )

[Jora_Kornev]

вот тебе рабочий и проверенный код :

Program noob2;
uses crt;
var 
 s: string;         {строковая переменная}
 res : char;       {символьная переменная}
BEGIN
 write('vvedite chislo ');
 readln(s);      {получаем число в виде строки}
 res:=s[length(s)];     {берем последний символ строки, который являеся последней цифрой числа}
 case res of           {в зависимости от значения переменной res выводим тот или иной текст 'Last digit is: х'}
		'0': writeln('Last digit is: 0');
		'1': writeln('Last digit is: 1');
		'2': writeln('Last digit is: 4');
		'3': writeln('Last digit is: 9');
		'4': writeln('Last digit is: 6');
		'5': writeln('Last digit is: 5');
		'6': writeln('Last digit is: 6');
		'7': writeln('Last digit is: 9');
		'8': writeln('Last digit is: 4');
		'9': writeln('Last digit is: 1');
                      else writeln('vvedite chislo pravilno');
		end;
 readkey;    {ждем нажатия клавиши}
END. {конец}