Задания на алгоритмы

Текст begin

writeln('Привет, мир!');

end.

Площадь круга

const Pi = 3.1415;

begin

var r := ReadReal('Введите радиус круга: ');

var S := Pi*r*r;

Println('Площадь круга равна ',S);

end.

Сумма вводимых целых чисел

begin

var n := ReadInteger('Введите число слагаемых:');

var s := 0.0;

for var i:=1 to n do

begin

var x := ReadReal('Введите слагаемое {i}:');

s += x;

end;

Println('Сумма равна {s}');

end.

Расстояние

var

a,b: real; // координаты точек

r: real; // расстояние между точками на прямой

begin

write('Введите координату точки a: ');

readln(a);

write('Введите координату точки b: ');

readln(b);

r := abs(a-b);

writeln('Расстояние между точками = ',r);

end.

Сколько нечетных среди n введенных

begin

var n := ReadInteger('Введите n: ');

var c := 0;

for var i:=1 to n do

begin

var x := ReadInteger('Введите целое число: ');

if x mod 2 0 then

c += 1;

end;

println($'Количество нечетных равно {c}');

end.

Есть ли среди введенных число k? (то же с использованием while)

var n,k: integer;

begin

write('Введите целые числа n (n0) и k: ');

readln(n,k);

assert(n0);

var Exists := false;

var i := 1;

while (i = n) and not Exists do

begin

write('Введите ', i, ' целое число: ');

var x := ReadInteger;

i += 1;

if x = k then

Exists := true;

end;

if Exists then

writeln('Число ', k, ' было введено')

else writeln('Число ', k, ' не было введено');

end.

Произведение целых чисел

begin

var n := ReadInteger('Введите число множителей: ');

var p := 1.0;

for var i:=1 to n do

begin

var x := ReadReal('Введите множитель: ');

p *= x;

end;

Println($'Произведение равно {p}');

end.

Найти max

begin

var n := ReadInteger('Введите целое число n (n0): ');

assert(n0);

var x := ReadReal('Введите 1 число: ');

var max := x;

for var i := 2 to n do

begin

x := ReadReal($'Введите {i} число: ');

if max then

max := x;

end;

Println('Максимальное из введенных чисел: {max}');

end.

Найти min

// Условие взятое как пример (Если число положительное, то условие p(x) возвращает true, иначе false)

function p(x: real): boolean:=x 0;

begin

var n := ReadInteger('Введите целое число n (n0): ');

assert(n0);

var min := real.MaxValue;

for var i := 1 to n do

begin

var x := ReadReal('Введите {i} число: ');

if (x ) and p(x) then

min := x;

end;

if min = real.MaxValue then

println('Нет чисел, удовлетворяющих условию')

else println($'Минимальное из введенных чисел, удовлетворяющее условию: {min}');

end.

Множитель

Var A, B, C : Integer;

Begin

Write('Введи первый сомножитель: ');

Readln(A);

B:=1;

Repeat

C:= A * B;

Writeln(A,' x ',B, ' = ', C);

B:=B+1;

Until B 10;

Readln;

end.

Program Hello_boy_girl; {фигурные кавычки позволяют вставить комментарий к коду}

var name: string; {объявляем name - это новая переменная}

Begin Write('Введите свое имя: '); {так как мы используем write, курсор будет мигать после двоеточия}

Read(name); {Считываем все, что ввел пользователь} Write('Привет,', name,'!'); {Обратите внимание! Переменная отделяется от кавычек ЗАПЯТЫМИ!}

End.

Сколько букв

program alfabet;

var

s: char;

begin

read(s);

case s of

'а','е','ё','и','о','у','ы','э','ю','я': writeln('гласные'); 'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ': writeln('согласные');

else

writeln('знаки');

end;

end.

Program summa;

uses crt;

var n,s: integer;

Begin

clrscr;

s:=0;

for n:=1 to 10 do s:=s+sqr(n);

writeln(‘Сумма ряда равна ‘,s);

End.

Идентификатор

Занимаемое место в памяти

Диапазон значений

Целые числа 

integer

2

-32768..32767

byte

1

0..255

longint

4

-2147483648..2147483647

Вещественные числа 

real

6

2,9x10^-39 - 1,7x10³⁸

extended

10

3,4x10^-4932 - 1,1x10⁴⁹³²

Логический тип данных 

boolean

1

true, false

Символьный тип данных 

char

1

все символы кода ASCII

Структурированные типы данных 

массив - array

Сумма  потребностей всех  элементов

-

строка - string

Можно указать, например - string[10]

-

файл - file.

Зависит от определения его  структуры

-