برنامه ای بنویسید که تععین علامت کند.

مثال : 17 - در خروجی چاب کند عدد وارد شده منفی میباشد.

;program a1

;var     a:integer

begin

;(readln(a

if   a>0     then

(‘write ('add vared shode mosbat(+) mebashd

else

;(‘write ('add vared shode manfe(-) mebashd

;readln

.end

برنامه به دست اوردن دلتا از طریقif

;program a2

var

;a,b,c,delta:integer

;x1,x2,x3:real

begin

;(readln(a,b,c

;delta:=b*b-4*a*c

if   delta>0   then

begin

;x1:=-b/2*a

;(write('delta is zero restal root is',x1

;end

if   delta<0  then

begin

;(x2:=-b-sqr  (delta)/(2*a

;(x3:=-b+sqr (delta)/(2*a

;(writeln('delta is lover coro root 1',x2

;(writeln('delta is lover coro root 2',x3

;end

;readln

.end

برنامه ای بنویسید که عددی را وارد کرده و معادل ان روزهای هفته را چاپ نماید.

;program a3

;var a:integer

begin

;(‘writeln('plese  insert  nomber the  1...7

;(readln(a

if  a= 1  then

;(‘writeln('shanbeh

if   a=2  then

;(‘writeln('yek shanbeh

if   a=3  then

;(‘writeln('doo  shanbeh

if   a=4   then

;(‘writeln('se shambeh

if  a=5   then

;(‘writeln('chahar shanbe

if  a=6  then

;(‘writeln('panj shanbeh

if  a=7  then

(‘writeln('joomeh

else

;(‘writeln('add  vared  shode  saheh  nest

;readln

.end

برنامه ای بنویسید که  عددی را دریافت  و معادل ان ماهای سال را چاپ کند.

;program  a4

var

;a:integer

begin

;(‘(writeln('plese nomber insert (1...12

;(readln  (a

if  a=1  then

;(‘writeln('farvardin

if  a=2  then

;(‘writeln('ordibehsht

if a=3 then

;(‘writeln('kordad

if  a=4 then

;(‘writeln('ter

if  a=5 then

;(‘writeln('mordad

if  a=6  then

;(‘writeln('shahrevar

if  a=7  then

;(‘writeln('mehr

if  a=8  then

;(‘writeln('aban

if  a=9  then

;(‘writeln('azar

if  a=10  then

;(‘writeln('day

if  a=11  then

;(‘writeln('bahman

if  a=12  then

(‘writeln('esfand

else

;(‘writeln('adad  vared  shode  eshtebah  ast

;readln

.end

برنامه ای  بنویسید که    نمره   افراد را دریافت و بهترین  ها را چاپ کند(از طریق دستور case ofبرای جلوگیری از شرط زیاد).

;program  a5

;uses crt

var

;a:integer

begin

;clrscr

;(‘writeln('please enter nomber btelnee  0...20

;(‘readln (a

case of

;(‘0..5:writeln('khely bad

;(‘6..10:writeln('bad

;(‘11..13:writeln('motavaset

;(‘14..17:writeln('kohb

;(‘18..20:writeln('keyli koob

;readln

.end

برنامه ای بنویسید که کاراکتری را  از ما دریافت و رنگ معادل ان را چاپ کند.

;program  a6

;uses crt

var

;a:integer

begin

;clrscr

;(‘writeln('plese oute acharaeter

;(readln(a

case a of

;(‘'r':writeln('red"

;(‘'y':writeln('yelow"

('b':writeln('blak"

else

;(‘writeln('karektor vared  shode saheh neste

;readln

.end

برنامه ای بنویسید که ستاره را  20 بار در خروجی چاپ کند(با استفاده از دستور  for)

;program a7

;uses crt

var

;i:integer

begin

;clrscr

for i:=1 to  20 do

;(‘*’)writeln

;readln

.end

برنامه ای را بنویسید که عددی را بر حسب متر مربع  دریافت  و بر حسب یارد مربع چاپ کند.

;program a8

;uses crt

var

;i:real

begin

;clrscr

;(‘writeln('yek add vared koned

;readln(i

;i:=i*1/961

;(‘writeln('bar hasbe yared morabe',i

;redaln

.end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: