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

[Карабин]

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

1. Читаем строку.
2. Записываем в sym последний символ строки (или последнюю цифру числа если будет угодно).
3. С помощью условного оператора множественного выбора определяем последнюю цифру квадрата числа в зависимости от последней цифры исходного числа.
4. Преобразуем введенную строку в число.
5. Выводим квадрат числа, с точностью до 17 знаков после запятой, чтобы проверить правильность работы проги.

Сопоставьте пожалуйста это с операторами и действиями в коде. Я не понимаю о чём речь, читая программу. Я новичок. Например, я не знаю что такое string.

[Sazary]

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

аха... вот тогда другое дело... я же предупреждал, что не вникал в суть) надо было сразу так сказать...)

http://programmersforum.ru/showpost....3&postcount=13

[__STDC__]

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

http://programmersforum.ru/showpost....3&postcount=13

хехе... прошу прощения) ну да ладно.. сейчас придумаю что-нить

[Карабин]

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

Цитата ТС:

Желание юзера - закон

Я это писал не об исходном числе, а о получаемом квадрате числа для того, чтобы обосновать выбор типа данных real. Исходное число определяется пользователем.

[Jora_Kornev]

Вот пример рефлизации данной задачи:

Program noob2;
uses crt;
var 
 s, s1 : string;
 a : real;
 i : integer;
BEGIN
 write('vvedite chislo ');
 readln(s);
 s1:=s[length(s)];
 val(s1, a, i);
 s1:=str(a);
 s1:=s1[length(s1)];
 writeln('otvet = ', s1);
 readkey;
END.

[__STDC__]

да мать.... =) короче, подождите)) я сейчас сделаю попробую...))

[Sazary]

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

Я это писал не об исходном числе, а для того, чтобы обосновать выбор типа данных real. Исходное число определяется пользователем.

Ну если все-таки так, то решение в этом посте: http://programmersforum.ru/showpost....6&postcount=15
Хотя повторюсь, что эта задачка на форуме была много раз и всегда имелось в виду целое число.

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

да мать.... =) короче, подождите)) я сейчас сделаю попробую...))

Очень любопытно У меня пока идей нет )

[Карабин]

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

Вот пример рефлизации данной задачи:

Program noob2;
uses crt;
var 
 s, s1 : string;
 a : real;
 i : integer;
BEGIN
 write('vvedite chislo ');
 readln(s);
 s1:=s[length(s)];
 val(s1, a, i);
 s1:=str(a);
 s1:=s1[length(s1)];
 writeln('otvet = ', s1);
 readkey;
END.

Что такое s[length(s)], string, readkey?
Я ж просил пояснить

[__STDC__]

Sazary, вот так не получится?

var
	tmp,tmp1,tmp2:string;
	sym:char;
	num,tnum:real;
	i:byte;
begin
	num := 2/3;
	
	str(num,tmp);
	tmp2 := copy(tmp,pos('.',tmp),length(tmp)-pos('E',tmp));	
	
	for i:=length(tmp2) downto 1 do
		if (tmp2[i] = '0') then delete(tmp2,i,1);
		
	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.

там переменные лишние... это фигня.. просто забыл удалить)) текст только с блокнота =)

[Карабин]

Пожалуйста, не игнорируйте мои просьбы, мне хотелось бы не просто переписать код, а понять что к чему.