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

[Sazary]

Вот так работает для 2/5 ))))
Но 2/3 воспринимает как 0.6666666666667.. Хм..

var
	tmp,tmp1,tmp2:string;
	sym:char;
	num,tnum: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
   sym := tmp[pos('.',tmp)-1]
  else sym := tmp2[length(tmp2)];
	
	case sym 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);
	end;
	val(tmp2,num);
	num := sqr(num);
	//writeln('Square of number is ',num:0:17);
	readln;
end.

[__STDC__]

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

может я не все понял?

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

Вот так работает для 2/5 ))))
Но 2/3 воспринимает как 0.6666666666667.. Хм..

калькулятор в виндоуз тоже так делает)

[Sazary]

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

калькулятор в виндоуз тоже так делает)

И что ж теперь делать? ) Придумывать новый калькулятор? )

Надо как-то сделать обработку цифр в периоде.

А что делать с иррациональными числами?

[Jora_Kornev]

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

А как можно определить последнюю цифру числа незная его? ))

[__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.

[__STDC__]

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

А как можно определить последнюю цифру числа незная его? ))

смотрите код выше

[__STDC__]

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

И что ж теперь делать? ) Придумывать новый калькулятор? )

Надо как-то сделать обработку цифр в периоде.

А что делать с иррациональными числами?

надеюсь мы ограничимся действительными числами?) на комплексные переходить не будем?))) для периода например округляется последняя цифра.. так что можно проверять все цифры до нее и, если они равны между собой, брать предпоследнюю.. хотя это не спасет от других периодов.. ну таких.. когда цифры не равны.. ну вы поняли (с предпериодом, вот..))) думаю к этому уже не стоит придираться)))

[Jora_Kornev]

тогда в моем коде не хватает только вашей части:

	
	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);

[Sazary]

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

надеюсь мы ограничимся действительными числами?)

Ну да, наверное, это будет разумно ))

Вот:

var
tmp,tmp1,tmp2:string;
sym  :char;
num,tnum:real;
i:byte;
len : integer;
flag : boolean;

begin
	num := 2/3;
	
	str(num,tmp);
    writeln('tmp = ',tmp);

    tmp2 := copy(tmp,pos('.',tmp)+1,pos('E',tmp)-pos('.',tmp)-1);

    writeln('tmp2 = ',tmp2);

    flag := true;
    len := length(tmp2);
	for i:=length(tmp2) downto 1 do
	 if (tmp2[i] = '0') then delete(tmp2,i,1)
     else if (i<len-1) and (tmp2[i]<>tmp2[i+1]) then flag := false;


  if length(tmp2)=0 then
   sym := tmp[pos('.',tmp)-1]
  else if not flag then sym := tmp2[length(tmp2)]
  else sym := tmp2[length(tmp2)-1];


  writeln('Last digit: ',sym);
	
	case sym 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);
	end;
	val(tmp2,num);
	num := sqr(num);
	//writeln('Square of number is ',num:0:17);
	readln;
end.

[__STDC__]

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