Редактирование и отладка программ с помощью Pascal (стр. 7 из 12)

While a<>b do if a>b then a:=a-b

Else b:=b-a;

Writeln(‘НОД=’,a);

Readln;

End.

Задание10. Даны целые числа А и В (а>b).Определить: Результат целочисленного деления А на В, не используя стандартную операцию целочисленного деления

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

Uses crt;

Var a,b,n:integer;

Begin clrscr;

writeln(‘Введи 2 числа,a>b’);

readln(a,b);

n:=0;

While a<=b do begin

N:=n+1;

A:=a-b;

\ End;

Writeln(‘результат=’,n);

Readln;

End.

Задание11.Напишите программу, которая вводит целые числа с клавиатуры и складывает их, пока не будет введено число 0

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

Uses crt;

Var N,s:integer;

Begin clrscr;

S:=0;

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

Readln(n);

S:=s+n;

Until n=0;

Writeln(‘S=’,s);

Readln;

End.

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

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

Uses crt;

Var N,s:longint;

Begin clrscr;

S:=1; n:=1;

Repeat s:=s*2;

Write(s,’ ‘);

N:=n+1;

Until n>20;

Readln;

End.

Задание13. Известны оценки по информатике 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по инфор-ке оценку «5»?

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

Uses crt;

Var x,n:integer;

Begin clrscr;

Write(‘Введи оценку’);

Readln(x);

N:=0;

While x=5 do begin

N:=n+1;

Write(‘Введи оценку’);

Readln(x);

End;

Writeln(‘имеют отлично’,n,’учеников’);

End.

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

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

Uses crt;

Var I,j:integer;

Begin clrscr;

For i:=1 to 9 do

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

Readln;

End.

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

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

Uses crt;

Var a:integer;

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] mod 2=0 then p:=p*a[i];

writeln(p);

end.

Задание 4.Дан массив вычислить сумму всех элементов больше 5

program as;

uses crt;