Циклдік алгоритм

Циклдік алгоритмдерді программалау

Деңгейлік тапсырма

А

В

С

• Берілген санның квадраты мен кубын есептейтін программа құрындар
• Екі санның қосындысын шығаратын программа құрындар

• Берілген сандың квадраты мен кубын есептейтін программа құрындар.

program kvadrat_kub;

var

a:integer;

begin

readln(a);

writeln(sqr(a));

writeln(sqr(a)*a);

end .

• Екі санның қосындысын шығаратын программа құрындар.

Program esep;

var

a,b,s:real;

begin

writeln('Екі санді кірітіңіз');

readln(a,b);

s:=a+b;

writeln(s);

end .

• Экранға 1 ден 100-ге дейінгі сандар ретімен және кері ретімен шығатын программа құрындар  

• Экранға 1 ден 100-ге дейінгі сандар ретімен және кері ретімен шығатын программа құрындар  

program schet;

var i : integer;

begin

for i := 1 to 100 do

write ('', i);

end .

program schet;

var i : integer;

begin

for i := 100 downto 1 do

write ('', i);

end .

Басы

• Блок-сызбаны Pascal тіліне ауыстырыңдар
• Осыға ұқсас геомтриялық фигураларының

S-? , P-? табатын блок-сызбаны және программада жазыңдар?

Мәліметтерді енгізу

a,b,c,d,e

T=(a+b)/1000/d+c/1000/e

t нәтижесінің экрандағы қорытындысы

Соңы

• Программалау кезеңіне өтейік.Блок-сұлбаны Pascal тіліне ауыстырайық.

Program 3mical;

Var a,b,c,d,e,t:real;

Begin

Write (‘a=’);readlen(a);

Write (‘b=’);readlen(b);

Write (‘c=’);readlen(c);

Write (‘d=’);readlen(d);

Write (‘e=’);readlen(e);

t=( a+b)/1000/d+c/1000/e;

writeln (t);

end.