ifs<>'' then

Begin

for i: =1 to n do

if odd(i) then a[i]: =0

else a[i]: =i/2;

writeln('elementy massiva');

for i: =1 to n do

write(a[i]: 8: 3);

readln;

end.

1. Сконструируйте программу для нахождения произведения максимальных элементов массивов a[1..10] и b[1..10], используя процедуру для определения максимального элемента массива.

program massive;

type mass= array [1..10] of real;

var a, b: mass;

max1, max2: real;

pr: real;

j: integer;

procedure maximum(m: mass; var z: real);

var i: integer;

Begin

z: =m[1];

for i: =1 to 10 do

if m[i]> z then z: =m[i];

end;

Begin

randomize;

for j: =1 to 10 do

Begin

a[j]: =10 - random(30);

b[j]: =2 - random (10);

end;

maximum(a, max1);

maximum(b, max2);

pr: =max1*max2;

writeln('Iskomoe proizvedenie - ', pr: 8: 3);

readln;

end.

4. Сконструируйте программу для нахождения корней квадратного уравнения ax²+bx+c=0, где a, b, c вводятся с клавиатуры (предусмотреть все возможные ошибки).

program uravn;

var a, b, c: real;

d: real;

x1, x2: real;

Begin

writeln('vvedite a, b, c');

readln (a, b, c);

if (a=0) then

Begin

if b=0 then

if c=0

then writeln ('uravnenie imeet beskonechnoe mnojestvo reshenij')

else writeln ('net reshenij');

End

Else

Begin

d: =sqr(b)-4*a*c;

if d< 0 then writeln ('net reshenij')

Else

Begin

x1: =((-b)-sqrt(d))/(2*a);

x2: =((-b)+sqrt(d))/(2*a);

writeln ('x1=', x1: 8: 2);

writeln ('x2=', x2: 8: 2);

end;

end;

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления расстояния между двумя точками с координатами (x 1; y 1) и (x 2; y 2) по следующей формуле: .

program rasstojanie;

{$APPTYPE CONSOLE}

uses

SysUtils;

var x1, y1, x2, y2: real;

rasst: real;

begin

writeln('vvedite koordinaty 1 tochki');

readln(x1, y1);

writeln('vvedite koordinaty 2 tochki');

readln(x2, y2);

rasst: =sqrt (sqr(x2-x1)+sqr(y2-y1));

writeln('rasstojanie = ', rasst: 8: 2);

readln;

end.

6. Сконструируйте программу позволяющую заменить в заданном массиве М(15) нулевые элементы квадратами их индексов.

program zamena;

var a: array [1..15] of real;

i: integer;

Begin

randomize;

for i: =1 to 15 do

a[i]: =5-random(20);

for i: =1 to 15 do

if a[i]=0 then a[i]: =sqr(i);

writeln('poluchennyj massiv');

for i: =1 to 15 do

write(a[i]: 8: 2);

readln;

end.

7. Сконструируйте программу позволяющую найти максимальный и минимальный элемент одномерного массива.

program znachenie;

const n=10;

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

i: integer;

max, min: integer;

Begin

randomize;

for i: =1 to n do

a[i]: =5-random(10);

max: =a[1];

min: =a[1];

for i: =1 to n do

Begin

if a[i]> max then max: =a[i];

if a[i]< min then min: =a[i];

end;

writeln('maximum - ', max);

writeln('minimum - ', min);

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для определения номера четверти координатной плоскости, которой принадлежит точка с координатами (x, y) при условии, что x 0, y 0.

program chetvert;

var x, y: real;

Begin

writeln('vvedite koordinaty');

readln(x, y);

if (x> 0) and (y> 0) then writeln('1 chetvert');

if (x< 0) and (y> 0) then writeln('2 chetvert');

if (x< 0) and (y< 0) then writeln('3 chetvert');

if (x> 0) and (y< 0) then writeln('4 chetvert');

if (x=0) or (y=0) then writeln('nevernyi vvod');

readln;

end.

9. Сконструируйте программу, позволяющую в данной строке символов определить, стоят ли в данной строке подряд символы f и b.

program simvol;

var s: string;

i: integer;

Begin

writeln('vvedite stroky');

readln(s);

for i: =1 to length(s)-1 do

if (s[i]='f') and (s[i+1]='b') then

Begin

writeln('imeetsja');

break;

end;

readln;

end.

10. Сконструируйте программу определяющую количество отрицательных элементов в массиве К(n) (n< =100) заполненном случайными числами от -15 до 15.

program znachenie;

const n=10;

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

i: integer;

k: integer;

Begin

randomize;

for i: =1 to n do

a[i]: =15-random(30);

k: =0;

for i: =1 to n do

if a[i]< 0 then inc(k);

writeln('kolichestvo otricatelnyh - ', k);

readln;

end.

1. Сконструируйте программу для формирования текстового файла из 9 строк, в первой из которых – один символ ‘1’, во второй – два символа ‘2’ и т.д., в девятой – девять символов ‘9’.

program formir;

var f: text;

j, i: integer;

s, s1: string;

Begin

assign(f, 'out.txt');

rewrite(f);

for i: =1 to 9 do

Begin

s: ='';

{formirovanie stroki}

for j: =1 to i do

Begin

{perevod chisla v stroky}

str(i, s1);

s: =s+s1;

end;

writeln(f, s);

end;

close(f);

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления суммы положительных чисел среди трех введенных с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var i: integer;

s, a: integer;

begin

writeln('vvedite 3 chisla');

s: =0;

for i: =1 to 3 do

begin

readln(a);

if a> 0 then s: =s+a;

end;

writeln('suma=', s);

readln;

end.

13. Сконструируйте программу нахождения суммы цифр в строке символов, представляющей собой последовательность цифр.

program summa;

var i, n, c: integer;

s, s1: string;

summ: integer;

Begin

writeln('vvedite stroky');

readln(s);

ifs< > '' then

Begin

val(s, n, c);

summ: =0;

Repeat

summ: =summ+(n mod 10);

n: =n div 10;

until n=0;

writeln(summ);

End

else writeln('pustaja stroka');

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для нахождения среднего геометрического и среднего арифметического двух положительных чисел.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a, b: real;

sa, sg: real;

begin

writeln('vvedite 2 chisla');

readln(a, b);

sa: =(a+b)/2;

sg: =sqrt(a*b);

writeln('srednee arifmeticheskoe ', sa: 8: 3);

writeln('srednee geometricheskoe ', sg: 8: 3);

readln;

end.

15. Сконструируйте программу определения количества слов в данной строке символов (начинается с буквы и заканчивается буквой). В качестве разделителей используется один пробел.

program slova;

var s: string;

i, k: integer;

Begin

writeln('vvedite stroky');

readln(s);

k: =0;

for i: =1 to length(s) do

if s[i]=' ' then k: =k+1;

writeln('kolichestvo slov-', k+1);

readln;

end.

1. Сконструируйте программу для вычисления факториала. При создании программы используйте функцию.

program fact;

var n: integer;

r: real;

function f(k: integer): real;

Begin

if k=1 then f: =1

else f: =f(k-1)*k;

end;

Begin

writeln('vvedite chislo');

readln(n);

r: =f(n);

writeln('factorial raven ', r: 15: 1);

readln;

end.

1. Сконструируйте программу, которая удаляет пробелы в строке.

program slova;

var s: string;

i, k: integer;

Begin

writeln('vvedite stroky');

readln(s);

k: =0;

i: =1;

while i< =length(s)-1 do

Begin

if (s[i]=' ') and (s[i+1]=' ')

Then

Begin

delete(s, i, 1);

i: =i-1;

End

else i: =i+1;

end;

writeln('novaja stroka - ', s);

readln;

end.

18. Сконструируйте программу замены местами минимального и максимального элемента 10. массива размера Элементы массива задаются рандомно.

program znachenie;

const n=10;

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

i: integer;

max, min: integer;

k1, k2, z: integer;

Begin

randomize;

for i: =1 to n do

a[i]: =5-random(10);

max: =a[1];

min: =a[1];

k1: =1;

k2: =1;

for i: =1 to n do

Begin

if a[i]> max

Then

Begin

max: =a[i];

k1: =i;

end;

if a[i]< min

Then

Begin

min: =a[i];

k2: =i;

end;

end;

z: =a[k1];

a[k1]: =a[k2];

a[k2]: =z;

writeln('massiv ');

for i: =1 to n do

write(a[i]: 4);

readln;

end.

19. Сконструируйте программу замены знака всех элементов с четными индексами в целочисленном векторе Т(m) (m< =100) на противоположный.

program massive;

const n=100;

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

i, m: integer;

Begin

writeln('vvedite razmer massiva');

readln(m);

randomize;

for i: =1 to m do

a[i]: =10-random(20);

for i: =1 to m do

if (i mod 2)=0 then a[i]: =a[i]*(-1);

writeln('elementy massiva');

for i: =1 to m do

write(a[i]: 4);

readln;

end.

1. Сконструируйте программу вычисления значений функции F1, аргумент которой задан интервалом целых значений отрезка [a₁, b₁]. Шаг изменения значений аргумента принять равным единице. Данные для решения: F1=Tg(x), [a₁, b₁]=[-15, 5].

program znach;

var y: real;

i: integer;

Begin

writeln('chislo | znachenie ');

for i: =-15 to 5 do

Begin

y: =sin(i)/cos(i);

writeln(i: 4, y: 8: 3);

end;

readln;

end.

21. Сконструируйте программу формирования одномерного массива А(10) по следующему принципу: четные элементы равны квадрату индекса, а нечетные его обратной величине.

program massive;

const n=10;

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

i, m: integer;

Begin

for i: =1 to n do

Begin

if (i mod 2)=0 then a[i]: =sqr(i);

if odd(i) then a[i]: =-i;

end;

writeln('elementy massiva');

for i: =1 to n do

write(a[i]: 4);

readln;

end.

1. Сконструируйте программу для выяснения, имеют ли два прямоугольника, заданные длинами своих сторон, одинаковую площадь; при составлении программы использовать процедуру вычисления площади прямоугольника.

program pramoug;

var a1, b1, a2, b2: real;

s1, s2: real;

procedure pl(a, b: real; var s: real);

Begin

s: =a*b;

end;

Begin

writeln('vvedite storony 1 pramougolnika');

readln(a1, b1);

writeln('vvedite storony 2 pramougolnika');

readln(a2, b2);

pl(a1, b1, s1);

pl(a2, b2, s2);

if s1=s2 then writeln('ploschad odinakova')

else writeln('ploschad raznaja');

readln;

end.

1. Сконструируйте программу для определения номера месяца, в котором количество пропусков занятий студентом было наименьшим; количество пропусков за каждый месяц в течение года содержится в одномерном массиве.

program znachenie;

const n=12;

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

i: integer;

k, min: integer;

Begin

randomize;

for i: =1 to n do

a[i]: =random(30);

min: =a[1];

k: =1;

for i: =1 to n do

if a[i]< min

Then

Begin

min: =a[i];

k: =i;

end;

write('nomer ', k: 4);

readln;

end.

1. Сконструируйте программу вычисления суммы арифметической прогрессии (в промежутке от a до n, шаг равен 1; a и n – задаются с клавиатуры).

program arifmet;

var a, i, n, s: integer;

Begin

writeln('vvedite nachalo i konec intervala');

readln(a, n);

s: =0;

if a< =n then

Begin

for i: =a to n do s: =s+i;

writeln('summa =', s: 4);

End

else writeln('summa ne syschestvuet');

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для перевода градусов Фаренгейта в градусы Цельсия по формуле c=5/9(f -32).

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var c, f: real;

begin

writeln('vvedite gradusi farengeita');

readln(f);

c: =5/9*(f-32);

writeln('po celsiu - ', c: 4: 1);

readln;

end.

1. Сконструируйте программу замены в заданном массиве М(15) нулевых элементов квадратами их индексов.

program znachenie;

const n=15;

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

i: integer;

k: integer;

Begin

randomize;

for i: =1 to n do

a[i]: =15-random(30);

for i: =1 to n do

write(a[i]: 4);

k: =0;

writeln;

for i: =1 to n do

if a[i]=0 then a[i]: =sqr(i);

for i: =1 to n do

write(a[i]: 4);

readln;

end.

1. Сконструируйте программу для подсчета количества отрицательных элементов в каждой строке матрицы размером M*N, элементы которой вводятся с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a: array of array of integer;

m, n: integer;

i, j: integer;

k: integer;

begin

writeln('vvedite razmer massiva');

readln(m, n);

setlength(a, m, n);

randomize;

for i: =0 to m-1 do

for j: =0 to n-1 do

a[i, j]: =random(20)-random(10);

k: =0;

for i: =0 to m-1 do

begin

k: =0;

for j: =0 to n-1 do

if a[i, j]< 0 then k: =k+1;

write(k: 5);

end;

writeln;

writeln('massiv');

for i: =0 to m-1 do

begin

for j: =0 to n-1 do

write(a[i, j]: 5);

writeln;

end;

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления суммы нечетных элементов массива размером N× M.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a: array of array of integer;

m, n: integer;

i, j: integer;

sum: integer;

begin

writeln('vvedite razmer massiva');

readln(m, n);

setlength(a, m, n);

randomize;

for i: =0 to m-1 do

for j: =0 to n-1 do

a[i, j]: =random(20)-random(10);

sum: =0;

for i: =0 to m-1 do

for j: =0 to n-1 do

if odd(a[i, j]) then sum: =sum+a[i, j];

writeln('massiv');

for i: =0 to m-1 do

begin

for j: =0 to n-1 do

write(a[i, j]: 5);

writeln;

end;

writeln('summa=', sum: 5);

readln;

end.

1. Вычислите сумму геометрической прогрессии (в промежутке от 1 до m, знаменатель q и m – задаются с клавиатуры).

program progressia;

var m, q, a: real;

s: real;

Begin

readln(m, q);

a: =1;

s: =0;

if (a< =m) and (q< > 0) then

Begin

while a< =m do

Begin

s: =s+a;

a: =a*q;

end;

writeln(s);

End

else writeln('summa ne suschestvuet');

readln;

end.

1. Сконструируйте программу для определения числа сочетаний , используя функцию при вычислении факториала.

program soch;

var m, n: integer;

rez: real;

function fact(a: integer): real;

var i: integer;

p: real;

Begin

p: =1;

for i: =1 to a do

p: =p*i;

fact: =p;

end;

Begin

writeln('vvedite znachenija');

readln(n, m);

if ((m< 0) or (n< 0) or (n< m)) then writeln('rezultat nelza podschitat')

Else

Begin

rez: =fact(n)/(fact(m)*fact(n-m));

writeln('rezultat =', rez: 0: 2);

end;

readln;

end.