گروه کامپیوتر دانشگاه پیام نور بوشهر

برنامه ای بنویسید که یک رشته ( متن) را از کاربر بگیرد و آخرين حرف رشته را ستاره بگذارد.

;Program myprog
;Uses WinCRT
var
;i:integer
;s:string
begin
;('writeln('enter string
;(readln(s
;(i:=lenght(s
;'*'=:[s[i
;(writeln(s
.end

دستور تبديل int به str 
این دستور محتوي يك عد صحيح را به رشته تبديل مي كند

;(عدد,رشته)str

mod 2=0 عدد

مثال : برنامه ای بنویسید که عدد از كاربر بگيرد و بگويد كه عدد متقارن است و اگر نبود بگويد كه عدد متقارن نيست

;Program myprog
;Uses WinCRT
var
;i,len:integer
;s:string
begin
;('writeln('enter number
;(readln(i
;(str(i,s
(len:=lenght(s
if len mod 2=0 then
begin
;('عد متقارن نيست')write
;halt
end;
for i:=1 to len/2 do
begin
if s[i]<>s[len-i+1] then
begin
;('عد متقارن نيست')writeln
halt
end
;('عد متقارن هست')writeln
.End

منبع وب سايت برنامه نويسي پاسکال