Реферат Редагування та налагодження програм за допомогою Pascal

> Begin clrscr;

S: = 0;

Repeat write ('Введи число');

S: = s + n;

Readln (n);

S: = s + n;

Until n = 0;

Writeln ('S =', s);

Readln;

End. br/>

Заданіе12. Надрукуйте 20 перших ступенів числа 2

Program as; Блок-схема

Uses crt;

Var N, s: longint;

S: =

1; n: = 1;

В В В  В В  Begin clrscr;

S: = s * 2;

N: = n +1;

S: = 1; n: = 1;

Repeat s: = s * 2;

Write (s, '');

N: = n +1;

Until n> 20;

Readln;

End. br/>В 

Заданіе13. Відомі оцінки з інформатики 20 учнів класу. На початку списку перераховані всі п'ятірки, потім всі інші оцінки. Скільки учнів мають по інфор-ке оцінку В«5В»? br/>

Program as; Блок-схема

Uses crt;

Var x, n: integer;

Begin clrscr;

Write ('Введи оцінку ');

Readln (x);

N: = 0;

N: = n +1;

While x = 5 do begin

N: = n +1;

Write ('Введи оцінку');

Readln (x);

End;

Writeln ('мають відмінно ', n,' учнів ');

End. br clear=all>

Заданіе14.Вивесті на екран таблицю множення.

Program as; Блок-схема

Uses crt;

Var I, j: integer;

I: = 1

Begin clrscr;

For i: = 1 to 9 do

For j: = +1 to 9 do writeln (I, *, j, '', i * j);

Readln;

J: = 1

End. br/>

Заданіе15.Составіть програму, що друкує на екрані всі парні числа в діапазоні від 100 до 999.

Program as; Блок-схема

Uses crt;

Var a: integer;

A: = 100

Begin clrscr;

For a: = 100 to 999 do

If a mod 2 = 0 then writeln (a);

End. <В 

Масиви

Завдання 1.Создать одновимірний масив і знайти суму парних елементів і твір непарних елементів

program as;

uses crt;

var a: array [1 .. 5] of integer;

i, s, p: integer;

begin clrscr;

for i: = 1 to 5 do a [i]: = random (8);

for i: = +1 to 5 do begin

writeln;

for i: = 1 to 5 do write (a [i]: 5);

end;

writeln;

for i: = 1 to 5 do

if a [i] mod 2 = 0 then

s: = s + a [i]; writeln;

p: = 1;

for i: = 1 to 5 do

if a [i] mod 2 <> 0 then p: = p * a [i];

writeln;

writeln (s);

writeln (p);

end.

Завдання 2.Составіть програму формування одновимірного масиву і обчислення добутку всіх елементів масиву

program as;

uses crt;

var a: array [1 .. 5] of integer;

i, s, p: integer;

begin clrscr;

for i: = 1 to 5 do a [i]: = random (8);

for i: = +1 to 5 do begin

writeln;

for i: = +1 to +5 do write (a [i]: 5);

end;

writeln;

p: = 1;

for i: = 1 to 5 do p: = p * a [i];

writeln (p); end.

Завдання 3.Дані одновимірний масив обчислити добуток всіх парних елементів масиву

program as;

uses crt;

var a: array [1 .. 5] of integer;

i, s, p: integer;

begin clrscr;

for i: = 1 to 5 do a [i]: = random (8);

for i: = 1 to 5 do begin

writeln;

for i: = 1 to 5 do write (a [i]: 5);

end;

writeln;

p: = +1;

for i: = 1 to 5 do if a [i] m...