O/L Lessons


නිබන්ධන අංක - 02

ගැටලු විසඳීමට ක්‍රමලේඛ ලිවීම

01. දෙනු ලබන සංඛ්‍යාවක වර්ගමූලය ලබාගැනීම සඳහා පැස්කල් ක්‍රමලේඛය.
program sqroot1;
uses crt;
var num:integer;
begin
     clrscr;
     write('Enter Number : ');
     readln(num);
     writeln('The squreroot of ',num,'is : ',sqrt(num):2:2);
     readln;
end.
02. දෙනුලබන සංඛ්‍යාවක් තවත් සංඛ්‍යාවකින් බෙදූවිට පිළිතුර ලබා ගැනීමට පැස්කල් ක්‍රමලේඛය.
program modu;
uses crt;
var num,num2:integer;
begin
     clrscr;
     write('Enter Number : ');
     readln(num);
     write('Enter Number to devide : ');
     readln(num2);
     writeln('Answer of ',num,' Devide by ',num2,' is ',num div num2);
     readln;
end.
03. විෂයන් දෙකක ලකුණු ලබාදුන් විට එහි එකතුව, සාමාන්‍ය හා සාමාන්‍ය 50ට වැඩිනම් සුදුස්සෙක් යැයි දැක්වීමට පැස්කල් ක්‍රමලේඛය.
program use_of_if;
uses crt;
var s1,s2,total:integer;
    avg:real;
begin
     clrscr;
     write('Enter Subject 1 Marks : ');
     readln(s1);
     write('Enter Subject 2 Marks : ');
     readln(s2);
     total:=s1+s2;
     avg:=total/2;
     writeln('Total Marks : ',total);
     writeln('Average : ',avg:2:2);
          if total>=150 Then
          begin
               writeln('Status : Pass');
               writeln('You are Selected');
          end
          else
          begin
               writeln('Status : Fail');
               writeln('You are not selected');
          end;
     readln;
end.
04. දෙනු ලබන සංඛ්‍යාවක් ඔත්තේද ඉරට්ටේද බව දැක්වීමට පැස්කල් ක්‍රමලේඛය.
program odd_even(input_output);
uses crt;
var num,md:integer;
begin
     clrscr;
     write('Enter Number : ');
     readln(num);
     md:=num mod 2;
     if md = 1 then
     writeln(num,' is a odd number')
     else
     writeln(num,' is a even number');
     readln;
end.
05. ලියාපදිංචි අංකය අනුව නිවාස 3කට වෙන් කිරීමට පැස්කල් ක්‍රමලේඛය.
program devide_to_house(input_output);
uses crt;
var num,md:integer;
    house:string;
begin
     clrscr;
     write('Enter Number Student Registration Number : ');
     readln(num);
     md:=num mod 3;
     if md = 0 then
     house:='Mahawali'
     else if md = 1 then
     house:='Kelani'
     else
     house:='Nilwala';
     writeln('House name of ',num,' is ',house);
     readln;
end.
06. විෂයක ලකුණු ලබාදුන් විට ඔහු ලබා ඇති ශ්‍රේණිය දැක්වීමට  පැස්කල් ක්‍රමලේඛය.
program select_case(input_output);
uses crt;
var marks:integer;
begin
     clrscr;
     write('Enter Subject Mark : ');
     readln(marks);
     case marks of
      0..34:writeln('W');
      35..49:writeln('S');
      50..64:writeln('C');
      65..74:writeln('B');
      75..100:writeln('A');
     else
      writeln('Invalied Mark');
     end;
     readln;
end.

07. මාසයට අදාල අංකය ලබාදුන්විට මාසයේ දින ගණන දැක්වීමට පැස්කල් ක්‍රමලේඛය.
program calender_date(input_output);
uses crt;
var mon:integer;
begin
     clrscr;
     write('Enter Month Number : ');
     readln(mon);
     case mon of
      1,3,5,7,8,10,12:writeln('Number of Dates 31');
      2:writeln('Number of Dates 28');
      4,6,9,11:writeln('Number of Dates 30');
     else
      writeln('Invalied Month Number');
     end;
     readln;
end.
08. වචනයක් දුන්විට එහි ඇති අකුරු ගණන දැක්වීමට පැස්කල් ක්‍රමලේඛය.
program ln(input_output);
uses crt;
var nm:string[10];
    l:integer;
begin
     clrscr;
     write('Enter String : ');
     readln(nm);
     l:=length(nm);
     writeln('The Name ',nm,' has ',l,' Letters');
     writeln(nm[1]:nm[3]);
     readln;
end.
09. A සිට z දක්වා ඉංග්‍රීසි හෝඩිය දැක්වීමට පැස්කල් ක්‍රමලේඛය.
program counterss(input_output);
uses crt;
var x:char;
begin
     clrscr;
     for x:='A' to 'z' do
     write(x,' ');
     readln;
end.
10. චක්කරය ලබාගැනීමට පැස්කල් ක්‍රමලේඛය.
program counterss(input_output);
uses crt;
var x:integer;{lopp value}
    num:integer;{number}
    ti:integer;{number of times}
begin
     clrscr;
     write('Enter value to get Multiple Tabel : ');
     readln(num);
     write('Enter Number of times : ');
     readln(ti);
     for x:=1 to ti do
     writeln(x,' x ',num,' = ',x*num);
     readln;
end.
11.program loop;
var a:integer;
    begin
         a:=1;
         while a<=10 do
         begin
                 write(a*a,' ');
                 a:=a+1;
         end;
         readln;
    end.
12. program counterss(input_output);
var a,b,c,d:integer;
begin
     for a:=1 to 10 do
     begin
          for b:=1 to a do
              write('*');
              writeln;
     end;
     readln;
end.
13.program counterss(input_output);
var a,mark,total:integer;
    avg:real;
    stdnm,subnm:string;
begin
     write('Enter Student Name : ');
     readln(stdnm);
     writeln;
     writeln('Student Name : ',stdnm);
     writeln;
     for a:=1 to 3 do
     begin
          write('Subject Name ',a,' : ');
          readln(subnm);
          write('Subject Mark ',a, ' : ');
          readln(mark);
          total:=total+mark;
     end;
     writeln;
     writeln('Total is : ',total);
     avg:=total/3;
     writeln('Average is : ',avg:2:2);
     readln;
end.
14.program arr(input_output);
var mks:array[1..5] of integer;
    a,b,marks:integer;
    begin
    for a:=1 to 5 do
    begin
    write('Enter Subject ',a,' Marks : ');
    readln(marks);
    mks[a]:=marks;
    end;
    write('Enter Subject Number to enter marks : ');
    readln(b);
    writeln('Marks of subject ',b,' is : ',mks[b]);
    readln;             end.

Comments

Post a Comment

Popular posts from this blog