Архив рубрики «Pascal»

Найти количество одинаковых элементов в двух массивах (Pascal)

Задача: Найти количество одинаковых элементов в двух массивах и распечатать их значения.

program m2;
const max=10;
var a:array[1..max] of real;
b:array[1..max] of real;
n,m,i,j,l:integer;
begin
writeln('введи количество элементов в массивах А и В, n< =',max); readln(n,m); for i:=1 to n do read(a[i]); for j:=1 to m do read(b[j]); writeln('исходные массивы'); for i:=1 to m do write(a[i]:3:1); writeln; for j:=1 to m do write(b[j]:3:1); writeln; l:=0; writeln('одинаковые элементы'); for i:=1 to n do for j:=1 to m do if (a[i]=b[j]) then begin l:=l+1; writeln(A[i]) end ; writeln ('l=', l:2); end

Прочитать остальную часть записи »

Вычислить количество положительных, отрицательных и нулевых элементов на Pascal

Задание: в массиве A1, A2, A3,… Am вычислить количество положительных, количество отрицательных и число нулевых элементов

Program m1; {найти в массиве A сумму положительных элементов, число отрицательных и число нулевых элементов}
const m=20;
var A:array[1..m] of real;
s:real;
i,n,l:integer;
begin
for i:=1 to m do
begin
write('A[',i,']=');
readln (A[i]);
end;
writeln('исходная матрица');
for i:=1 to m do
write(A[i]:5:2);
writeln;
s:=0;
n:=0;
l:=0;
for i:=1 to m do
if A[i]>0 then
s:=s+A[i]
else
if A[i]=0 then
n:=n+1
else
l:=l+1;
writeln(s:5:2, n:5, l:5);
end

Прочитать остальную часть записи »

Программа калькулятора, осуществляющего простейшие арифметические действия

Задание: написать программу калькулятор, осуществляющего простейшие арифметические действия над вещественными числами.

Program C;{калькулятор}
uses crt;
var y,a,b:real;
ch:char;label 1;
begin
repeat
writeln ('введи два числа a,b');
readln (a,b);
writeln ('введи операцию над числами (+,-,*,/)');
ch:=readkey;
case ch of
'+' :y:=a+b;
'-' :y:=a-b;
'*' :y:=a*b;
'/' :y:=a/b;
else
begin
writeln ('неверные данные');
goto 1;
end
end;
writeln (a:8:5,ch,b:8:5,'=',y:8:5);
1: writeln ('продолжим вычисления? y/n');
ch:=readkey
until ch='n'
end

Прочитать остальную часть записи »

Нахождение делителей целого числа на Pascal

Задача: найти делители целого числа на программе Pascal

program vicdiv;
var
x,half,divider,i: integer;
begin
repeat
writeln ('введите число больше нуля: ');
readln (x);
if x< =0 then writeln ('неправильный ввод'); until x>0;
half:=x div 2;
divider:=2;
i:=0;
while divider< =half do begin if x mod divider =0 then begin inc(i); writeln (i, ' делитель равен: ',divider); end; inc(divider); end; if i=0 then writeln ('делителей нет'); writeln ('конец решения') end

Прочитать остальную часть записи »

Вычисление суммы ряда через Pascal

Вычислить значение суммы ряда через Pascal:

y=1+1/2+1/3+ … +1/i+…+1/n

Вычисления прекратить, если i член ряда, т.е. 1/i станет меньше, чем заданная точность (eps).
Прочитать остальную часть записи »

Вычисление функции разложением ее в ряд (задача на Паскале)

Вычисление функции разложением ее в ряд

Вычислить определенный интеграл функции sin x на отрезке от A до B.

begin
clrscr;
textcolor(5);textbackground(10);
writeln(‘введите числа k,A,B,h’);
readln(k,A,B,h);
y:=0;x:=A;
repeat
y:=y+sin(x)*h;
x:=x+h;
until x>=B;
writeln( y:8:5);
end

Прочитать остальную часть записи »

Пример задачи на Pascal (вычислить определенный интеграл функции)

Задача: Написать программу на Pascal для вычисления определенного интеграла функции sin(x) на отрезке от A до B.
Прочитать остальную часть записи »

Вычисление значения функции одного аргумента с выбором формулы

Вычисление значения функции одного аргумента с выбором формулы

Найти: y=2,5ax, при x<0;
y= cos (ln x/2 ), при 0 < =x<=1; y=exp(x), при x>1.

Program fun;
const a=0.5;
var x,y: real;
i: integer;
begin
writeln (‘Введите значение x’);
readln (x);
if x<0 then
begin
i:=1;
y:=2.5*a*x
end
else
if x< =1 then begin i:=2 ; y:=cos(ln(x/2)) end else begin i:=3; y:=exp(sqrt(x)) end; writeln ('x=',x:8:5,'y вычисляется по ',i,' формуле и равен', y:8:5); end

Прочитать остальную часть записи »

Построение таблицы значений функции y=sin(x) на Pascal

Построение таблицы значений функции y=sin(x) на отрезке 0< =x<=1 c шагом h=0.1 на Pascal

Program tabl; {таблица значений sin(x)}
uses crt;
const h=0.1 ;
var x,y:real;

begin
textcolor(5);
textbackground(10);
clrscr;
writeln(‘таблица’);
writeln(‘ x sinx’ ) ;
writeln(‘—————‘);
x:=0;
repeat;
writeln(‘! ‘,x:3:1,’ ! ‘ ,sin(x):10:7,’ ! ‘);
x:=x+h;
until x>1;
end.
Прочитать остальную часть записи »

Программа на Pascal: найти минимальное из трех чисел

Нахождение минимального из трех чисел (y= min (а, b, c)).

Program MIN; {нахождение минимального значения из a, b, c}
uses crt;
var a,b,c,y:real;
begin
textbackground (3);textcolor(14);
clrscr;
writeln ('введите значения a, b, c, разделяя их пробелами');
readln (a,b,c);
if a<b then
if a<c then
y:=a
else
y:=c
else
if b<c then
y:=b
else
y:=c;
writeln ('минимальное значение =', y:3:1);
end.

Прочитать остальную часть записи »




Статистика