Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Документ'
Ф.И.О. Регион (город) Спорт зван. Раунды Сумма мест Занят.место Зачет. очки Выполнен. норматив 1 3 1. 3 Ларьков Александр Москва 5 5 10 1 . 133 Серошт...полностью>>
'Основная образовательная программа'
Государственное образовательное учреждение высшего профессионального образования «Южно-Уральский Государственный Университет (научно-исследовательский...полностью>>
'Документ'
бязь Самойлово с детским рисунком 5 5=00 НОВИНКИ СЕЗОНА -Куртки,...полностью>>
'Конспект'
дать понятие о сечениях как изображениях, об изображении и обозначении вынесенных сечений, их применении при построении технических чертежей; выяснить...полностью>>

Главная > Решение

Сохрани ссылку в одной из сетей:
Информация о документе
Дата добавления:
Размер:
Доступные форматы для скачивания:

I. Переписать 20 Pascal задач на языке Си.

Примечания:

  • Исходные тексты должны писаться или быть совместимы со средой TurboC++3.1 под DOS.

  • Комментарии не нужны.

  • Понятный код с отступами.

  • Без сложностей и самодеятельности, по аналогии, как реализовано в Pascal.

  • Результат должен выглядеть как список файлов исходные тексты и исполняемые скомпилированные файлы в одной куче. Различать их можно по номеру задачи и варианту. Например, первая задача 11) в): 11v.c, 11v.exe и т.д.

  • Исходники Pascal в файлах прилагаются в 1.tar.gz

11) Даны x, y, z. Вычислить a, b, если

Решение:

-------------------------------

program Volkova_11v;

var x,y,z,a,b:real;

begin

write('Введите числа x, y, z через пробел: ');

readln(x,y,z);

a:=(1+y)*((x+(y/sqr(x)+4))/(exp(-x-2)+(1/(sqr(x)+4))));

b:=(1+cos(y-2))/(((x*x*x*x)/2)+(sqr(sin(z))));

writeln('Результаты: a=',a:6:15,', b=',b:6:15);

readln;

end.

-------------------------------

Вывод:

Введите числа x, y, z через пробел: 1 2 3

Результаты: a=84.071606017142120, b=3.846783707607934

11) Даны x, y, z. Вычислить a, b, если

Решение:

-------------------------------

program VolkovIvan_11j;

var x,y,z,a,b:real;

begin

write('Введите числа x, y, z через пробел: ');

readln(x,y,z);

a:=ln(abs(y-sqrt(abs(x)))*(x-(y/(z+(sqr(x)/4)))));

b:=x-(sqr(x)/(1*2*3))+((x*x*x*x*x)/(1*2*3*4*5));

writeln('Результаты: a=',a:16:15,', b=',b:16:15);

readln;

end.

-------------------------------

Вывод:

Введите числа x, y, z через пробел: 2 3 4

Результаты: a=0.797552696055196, b=1.600000000000000

35) Даны действительные числа x, y, z. Вычислить:

б) max^2(x + y + z/2, xyz) + 1.

Решение:

-------------------------------

program MyProgramm_35b;

var x,y,z,max,a,b:real;

begin

writeln('Введите 3 числа (x,y,z) через пробел:');

readln(x,y,z);

a:=(x+y+z)/2;

b:=x*y*z;

if a>b then max:=a else max:=b;

write('Результат ((max(x+y+z/2,xyz))^2)+1=',sqr(max)+1:6:2);readln;

end.

-------------------------------

Вывод:

Введите 3 числа (x,y,z) через пробел:

1 2 3

Результат ((max(x+y+z/2,xyz))^2)+1= 37.00

33) Даны действительные числа x, y. Получить:

в) max(x, y), min(x, y).

Решение:

-------------------------------

program VolkovIvan_33v;

var a,b:real;

function maxmin(n1,n2:real;s:string):real;

var max,min:real;

begin

if (n1>n2) then begin

max := n1; min := n2 end

else begin

max := n2; min := n1

end;

if(s='max') then maxmin:=max else maxmin:=min;

end;

{Тело программы}

begin

write('Введите два действительных числа через пробел: ');

readln(a,b);

{Выводим максимальное и минимальное значения чисел a,b}

writeln('max=',maxmin(a,b,'max'):6:3,',

min=',maxmin(a,b,'min'):6:3);

readln;

end.

-------------------------------

Вывод:

Введите два числа действительных числа через пробел: 5.567 5.568

max=5.5680, min=5.5670

63) Определить, верно ли, что при делении неотрицательного целого числа a на положительное целое число b получается остаток, равный одному из двух заданных чисел r или s.

Решение:

-------------------------------

program VolkovIvan_63;

var a,b,r,s:integer;rez:integer;x:string[5];

begin

writeln('Введите два полож. целых числа "a" "b" - делимое и

делитель');

readln(a,b);

writeln('Введите два полож. целых числа "r" "s"');

readln(r,s);

rez:=a mod b; {вычисляю остаток от деления}

{проверяю соответствие остатка числу r и s

результат –> в переменную x}

x:=''; {по умолчанию x равно пустой строке}

if rez=r then x:='r ';

if rez=s then x:=x+'s'; {конкатинирую результат}

{Выводим максимальное и минимальное значения чисел a,b}

if x='' then

writeln('после деления a на b остаток=',rez,' и неравен числам

r и s')

else

writeln('после деления a на b остаток=',rez,' и равен числам:

',x);

readln;

end.

-------------------------------

Вывод:

Введите два полож. целых числа "a" "b" - делимое и делитель

4 5

Введите два полож. целых числа "r" "s"

5 4

после деления a на b остаток=4 и равен числам: s

73) Даны целые числа k, l. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

Решение:

-------------------------------

program my73;

var k,l,max:integer;

begin

writeln('введите два числа l и k');

readln(k,l);

{выявление максимального}

if (k>l) then max:=k else max:=l;

{основное условие задачи}

if (k=l) then

begin

k:=0;

l:=0

end

else

begin

k:=max;

l:=max

end;

writeln('результат: ','l=',l,',k=',k);

readln;

end.

-------------------------------

Вывод:

введите два числа l и k

5 7

результат: l=7,k=7

68) Дано натуральное число n (n ≤ 9999).

б) Верно ли, что это число содержит ровно три одинаковые цифры, как, например, числа 6676, 4544, 0006 и т.д.?

-------------------------------

program VolkovIvan68b;

var n:longint;i,c,k:integer;

begin

write('Введите число n <= 9999: ');

readln(n);

write('Введите через пробел цифру и ее количество для поиска в

числе ', n,': ');

readln(k,c);

writeln('Проверка, есть ли цифра ',k,' в количестве ',c,' в числе

',n);

i:=1; {коэфицент делителя}

while (n div i)<>0 do {цикл продолжается пока (n div i)<>0}

begin

{Перебор по одной цифре числа,

если цифра попадает под условие

уменьшаем заданое количество на 1 в переменной c}

i:=i*10;

if ((n mod i) div (i div 10))=k then dec(c);

end;

if c<=0 then {если переменная c равна нулю либо меньше

то условие удовлетворено}

writeln('Есть!')

else

writeln('Нет.');

writeln('Enter для продолжения.');

readln;

end.

-------------------------------

Вывод:

Введите число n <= 9999: 8883

Введите через пробел цифру и ее количество для поиска в числе 8883: 8 3

Проверка, есть ли цифра 8 в количестве 3 в числе 8883

Есть!

Enter для продолжения.

Введите число n <= 9999: 8883

Введите через пробел цифру и ее количество для поиска в числе 8883: 3 8

Проверка, есть ли цифра 8 в количестве 3 в числе 8883

Нет.

Enter для продолжения.

68) Дано натуральное число n (n ≤ 9999).

а) Является ли это число палиндромом (перевертышем) с учетем четырех цифр, как, например, числа 2222, 6116, 0440 и т.д.?

Решение:

-------------------------------

program my68a;

var n,a,b,i:integer;s:string[2];

begin

repeat

begin

write('Введите натуральное число n <= 9999: ');readln(n);

end;

until ((n>0) and (n<=9999));

{определяем коэффециэнт для определения делителя числа n}

i:=10; if n<100 then i:=1;

{1. Разбиваем число n на две части,записываем их как a и b

путем деления числа n на i с выделением остатка и целого

2. Цифры числа b меняем местами

3. Сравниваем a и b, если они равны то число n есть палиндром}

a:=n div (i*10);

b:=n mod (i*10);

b:=(b mod i)*i+(b div i);

if (a<>b) then s:='не';

writeln('число ',s,' является палиндромом');

readln;

end.

-------------------------------

Вывод:

Введите число n <= 9999: 0330

число является палиндромом

Введите число n <= 9999: 5444

число не является палиндромом

113) Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*....*n для чётного n. Для заданного натурального n вычислить:

а) n!!

Решение:

-------------------------------

program VolkovIvan113a;

var n,rez:longint;

begin

write('Введите натуральное число n: ');

readln(n); rez:=n;

while (n>0) do {цикл продолжается пока n>0}

begin

{Умножаем результат (переменной rez) на декримент цифры n

с шагом 2 в целях соблюдения четности/нечетности

Иду с верху вниз и сразу считаю }

n:=n-2; if n>0 then rez:=rez*n;

end;

write('Результат вычисления=',rez,', Enter для продолжения.');

readln;

end.

-------------------------------

Вывод:

Введите натуральное число n: 5

Результат вычисления=15, Enter для продолжения.

Введите натуральное число n: 6

Результат вычисления=48, Enter для продолжения.

88) Дано натуральное число n.

а) Выяснить, входит ли цифра 3 в запись числа n^2.

Решение:

-------------------------------

program my88;

var n,i:longint; isfind:boolean;

begin

write('Введите число: '); readln(n);

i:=sqr(n);

repeat

if (i mod 10)=3 then isfind:=true;

i:=(i div 10);

until i=0;

writeln('Поиск числа 3 в ',n,'^2=',sqr(n),' :',isfind);readln;

end.

-------------------------------

Вывод:

Введите число: 37

Поиск числа 3 в 37^2=1369 :TRUE

Введите число: 33

Поиск числа 3 в 33^2=1089 :FALSE

118) Вычислить следующими способами:

а) последовательно с лева на право;

б) последовательно с лева на право вычисляются затем второе значение вычисляется из первого;

в) последовательно с права на лево;

г) последовательно с права на лево, вычисляются суммы выписанные в б), затем - вычитание.

Почему при вычислениях на вычислительной машине каждым из этих способов получаются разные результаты?

Решение:

-------------------------------

program Volkova_118g;

var a,b:real; i:integer;

begin

i:=9999;

while i>0 do

begin

a:=a+(1/i);

b:=b+(1/(i+1));

i:=i-2;

end;

write('Результат =',(a-b):18:16,' Press any key.'); readln;

end.

} -------------------------------

Вывод:

Результат =0.6930971830599493 Press any key.

119) Вычислить бесконечную сумму с заданной точностью ε (ε > 0). Считать, что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слогаемое оказалось по модулю меньше, чем ε, - это и все последующие слагаемые можно уже не учитывать. Вычислить:

Решение:

-------------------------------

program VolkovIvan_119g;

var e,rez,cur:real; i:longint;

function pow(a,b:real):real;

{ Функция возведения в степень (A^B) }

var t:real;

begin

t:= abs(a);

if ((a < 0) and (b < 0)) then

pow:=(-1)*exp(b*ln(t))

else pow:=exp(b*ln(t));

if b=0 then pow:=1;

end;

function nn(n:integer):integer;

{Функция вычисления факториала числа n}

var i:integer;

begin

nn:=1;

for i:=1 to n do nn:=nn*i;

end;

begin

write('Введите положительное число: '); readln(e);

repeat {если теущий результат следующего слогаемого

cur по модулю меньше заданной e

то цикл прекращается выводится результат}

cur:=pow(-2,i)/nn(i); {вычисление по формуле}

rez:=rez+cur; {вычисление суммы}

writeln('Шаг: ',i,', summ=',rez:5:3,', cur: ',cur:5:3);

inc(i);

until abs(pow(-2,i)/nn(i)) < e;

{Выводим результат}

write('Результат =',rez:5:3,' Press any key.'); readln;

end.

-------------------------------

Вывод:

Введите положительное число: 0.21

Шаг: 0, summ=1.000, cur: 1.000

Шаг: 1, summ=3.000, cur: 2.000

Шаг: 2, summ=5.000, cur: 2.000

Шаг: 3, summ=6.333, cur: 1.333

Шаг: 4, summ=7.000, cur: 0.667

Шаг: 5, summ=7.267, cur: 0.267

Результат =7.267 Press any key.

139) Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение bi равно:

Решение:

-------------------------------

program VolkovIvan_139j;

const n=9;

type arr=array[1..n] of real; {обьявляю тип массива}

var i,p:longint; a:arr;

begin

for i:=1 to n do

begin

{делимое во всех дробях =1,

следовательно их сумма=сумме итераций, значению i}

if i=1 then a[i]:=1

else a[i]:=a[i-1]+(1/i);

end;

{показываю элементы массива}

for i:=1 to n do writeln('b',i,', =',a[i]:6:2);

write('Enter для продолжения.'); readln;

end.

-------------------------------

Вывод:

b1, = 1.00

b2, = 1.50

b3, = 1.83

b4, = 2.08

b5, = 2.28

b6, = 2.45

b7, = 2.59

b8, = 2.72

b9, = 2.83

Enter для продолжения.

139в) Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение bi равно: i!

Решение:

-------------------------------

program Volkova_139v;

type MyArray=array[1..n] of longint; {объявляем новый тип как массив длинной n}

var i,p:longint; a:MyArray;

begin

{вычислим последовательность b1...bn}

p:=1;

for i:=1 to n do

begin

p:=p*i; {в переменной p вычисляем i! по условию}

a[i]:=p; {значение p в текущий элемент массива}

{Переменная p служит в данном случае контейнером и накапливает

результат вычисления до следующей итерации.}

writeln('Шаг:',i,', =',a[i]);

end;

readln;

end.

-------------------------------

Вывод:

Шаг:1, = 1

Шаг:2, = 2

Шаг:3, = 6

169) Даны натуральные числа x, y1, ..., y100 (y1 < y2 < ... < y100, y1 < x ≤ y100). Найти натуральное k, при котором yk-1 < x ≤ yk.

Решение:

-------------------------------

program VolkovIvan_169;

const n=100; {n элементов в массиве}

type arr=array[1..n] of integer; {обьявляю тип массива}

var i,x,last:integer; y:arr;

begin

i:=1;

writeln('Поочередно введи натуральные числа, y1 < y2...);

repeat

write('введите значение y',i,': ');

readln(y[i]);

{проверка на условие y1 < y2...

if i>1 then

begin

if ((y[i]) > (y[i-1])) then inc(i) else

writeln('значение y',i,' должно быть больше y', (i-1));

end

else inc(i);

until i>n;

{вывожу все значения элементов массива y}

for i:=1 to n do write(i,'=',y[i],'; '); writeln;

repeat

write('Введи натуральное число x > ',y[1],' и <= ',y[n],': ');

readln(x);

until (x > y[1]) and (x<=y[n]);

write('Ниже перечислины значения k по условию (id элемента массива):');

for i:=2 to n do if (x>y[i-1]) and (x<=y[i]) then write(i,' ');

readln;

end.

-------------------------------

Вывод:

Поочередно введи натуральные числа, y1 < y2...

введите значение y1: -1

введите значение y2: 5

введите значение y3: 6

введите значение y4: 3

значение y4 должно быть больше y3

введите значение y4: 7

введите значение y5: 9

введите значение y6: 18

введите значение y7: 97

введите значение y8: 123

введите значение y9: 500

введите значение y10: 1000

1=-1; 2=5; 3=6; 4=7; 5=9; 6=18; 7=97; 8=123; 9=500; 10=1000;

Введи натуральное число x > -1 и <= 1000: 200

Ниже перечислины значения k по условию (id элемента массива):9

164) Даны действительные числа a1,..., a50. Получить "сглаженные" значения a1,..., a50, заменив в исходной последовательности все члены, кроме первого и последнего, по формуле

считается, что

б) при "сглаживании" используются лишь старые значения членов.

Решение:

-------------------------------

program Volkova_164b;

const n=10; {колличество элементов массива}

type arr=array[1..n] of real; {обьявляю тип массива}

var i:longint; last_a,rez:real; a:arr;

begin

i:=1;

writeln('поочередно введите действительные числа, a1 - a',n);

repeat

begin

write('введите значение a',i,': ');

readln(a[i]);

end;

if i>1 then

begin

if ((a[i]) > (a[i-1])) then inc(i) else

writeln('значение a',i,' должно быть больше a', (i-1));

end

else inc(i);

until i>n;

last_a:=1;

for i:=1 to n do

begin

if ((i>1) and (i)) then

begin

rez:=(last_a+a[i]+a[i+1])/3;

last_a:=a[i];

a[i]:=rez;

end;

writeln('id: ',i,', =',a[i]:6:2);

end;

readln;

end.

-------------------------------

Ввод: Вывод:

поочередно введите действительные числа, a1 - a10

введите значение a1: -1

введите значение a2: 3

введите значение a3: 2

значение a3 должно быть больше a2

введите значение a3: 6

введите значение a4: 7

введите значение a5: 8

введите значение a6: 9

введите значение a7: 12

введите значение a8: 13

введите значение a9: 14

введите значение a10: 5

значение a10 должно быть больше a9

введите значение a10: 17

id: 1, = -1.00

id: 2, = 3.33

id: 3, = 5.33

id: 4, = 7.00

id: 5, = 8.00

id: 6, = 9.67

id: 7, = 11.33

id: 8, = 13.00

id: 9, = 14.67

id: 10, = 17.00

188) Даны натуральное число n, действительные числа x1,..., xn. В последовательности x1,..., xn все члены, меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [3,7], а также число таких членов.

Решение:

-------------------------------

program VolkovIvan_188;

const n=25; {колличество элементов массива}

type arr=array[1..n] of integer; {обьявляю тип массива}

var i,p,summ:integer; a:arr;

begin

{вычисляю x1...x25

присваиваю случайные занчение елементам массива x

от -15 до 15}

for i:=1 to n do

begin

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

{заменяю все члены меньше 2 на 0}

if a[i]<2 then a[i]:=0;

{сумма членов, принадлежащих отрезку [3,7] и их количество}

if (i>=3) and (i<=7) then begin summ:=summ+a[i]; p:=p+1;

end;

write('id ',i,'=',a[i],'; '); {вывод элементов массива}

end;

writeln;

writeln('сумма членов, принадлежащих отрезку [3,7]: ',summ);

writeln('а также число таких членов: ',p);

readln;

end.

-------------------------------

Вывод:

id 1=2; id 2=3; id 3=7; id 4=11; id 5=3; id 6=11; id 7=0; id 8=11; id 9=0; id 10 =4;

id 11=5; id 12=0; id 13=0; id 14=0; id 15=12; id 16=0; id 17=14; id 18=0; id 19=0;

id 20=0; id 21=9; id 22=10; id 23=0; id 24=0; id 25=2;

сумма членов, принадлежащих отрезку [3,7]: 32

а также число таких членов: 5

192) Даны целые числа a1,...,a45. Получить число отрицательных членов последовательности a1,...,a35 и число нулевых членов всей последовательности a1,...,a45.

Решение:

-------------------------------

program Volkova_192;

const n=45; {колличество элементов массива}

type arr=array[1..n] of integer; {объявляю тип массива}

var i,p:integer; a:arr;

begin

{вычисляю a1...a45

присваиваю случайные значения элементам массива a

от -9 до 9}

for i:=1 to n do

begin

a[i]:=-9+random(18);

write(a[i]:3);

end;

p:=0; {число отр. членов a1...a35}

for i:=1 to 35 do if a[i]<0 then p:=p+1;

writeln;

writeln('число отр. членов a1...a35: ',p);

p:=0; {число нулевых членов всей посл}

for i:=1 to n do if a[i]=0 then p:=p+1;

writeln('число нулевых членов всей посл: ',p);

readln;

end.

-------------------------------

Вывод:

0 1 3 6 1 6 0 6 -2 2 2 -3 -2 -4 7 -8 8 -5 -3 -1 5 5 0 -1 1 -2

7 6 -8 -3 -8 2 -9 -3 5 8 5 -7 6 6 8 -1 5 5 -1

число отр. членов a1...a35: 15

число нулевых членов всей посл: 3

223) Даны целые числа a1,a2,... Известно, что a1 > 0 и что среди a2,a3,... есть хотябы одно отрицательное число. Пусть a1,..., an - члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:

в) min (a1, 2a2, ..., nan);

Решение:

-------------------------------

program VolkovIvan_223v;

const n=100; {колличество элементов массива}

type arr=array[1..n] of integer; {обьявляю тип массива}

var i,j,min,id:integer; a:arr; otr:boolean;

begin

i:=1;

writeln('Последовательно вводи натуральные числа');

repeat

write('введите значение a1 > 0: ');

readln(a[i]);

until a[i]>0;

repeat

inc(i);

write('введите значение a',i,': ');

readln(a[i]);

until a[i]<0;

i:=i-1;

{вычисляю min (a1, 2a2, ..., nan) }

min:=a[1]; id:=1;

for j:=1 to i do begin

write('id:',j,'=', a[j],'; ');

if ((j*a[j]) < min) then begin

min:=(j*a[j]);

id:=j;

end;

end;

writeln('Минимальное значение min (a1, 2a2, ..., nan) последовательности от 1 до ', i ,' равнo: ',min, ', элемент=',id);

readln;

end.

-------------------------------

Вывод:

Последовательно вводи натуральные числа

введите значение a1 > 0: -1

введите значение a1 > 0: 0

введите значение a1 > 0: 1

введите значение a2: 3

введите значение a3: 3

введите значение a4: 5

введите значение a5: 7

введите значение a6: 8

введите значение a7: 9

введите значение a8: -10

id:1=1; id:2=3; id:3=3; id:4=5; id:5=7; id:6=8; id:7=9; Минимальное значение min

(a1, 2a2, ..., nan) последовательности от 1 до 7 равнo: 1, элемент=1

228) Даны натуральное число n, действительные числа a1,..., an. Выяснить, является ли последовательность a1,...,an упорядоченной по убыванию.

Решение:

-------------------------------

program Volkova_228;

const n=5; {колличество элементов массива}

type arr=array[1..n] of real; {обьявляем тип массива}

var i:integer; p:real; a:arr; nosort:boolean;

begin

writeln('Введите ',n,' действительных чисел:');

for i:=1 to n do readln(a[i]); {заполняем массив с клавиатуры}

p:=a[1]; {записываем первое значение массива в p}

{если текущий элемент больше считанного ранее в пер. p

то сортировки по убыванию нет (nosort=true)

иначе сортировка идет по убыванию и переменная p

получает значение тек. элемента посл.-ти}

for i:=2 to n do if a[i]>p then nosort:=true else p:=a[i];

if nosort=false then

writeln('последовательность упорядоченнa по убыванию')

else

writeln('последовательность по убыванию неупорядоченнa');

readln;

end.

-------------------------------

Вывод:

Введите 5 действительных чисел:

8

7

6.5

6.45

6

последовательность упорядоченнa по убыванию



Похожие документы:

  1. Решение практической части

    Решение
    ... пунктами А и Б и скоростей V, U? Решение: PROGRAM PYT; VAR V,U,S,T1,T2: REAL ... число N. Вычислить S = 1! + 2! + 3!...+N! Решение: 18. Построение алгоритма для управления ... и определить наличие его в массиве. Решение: Program masodn; Var B: array [1..10] ...
  2. Решение задач о нахождении суммы ряда

    Решение
    ... меньше , тем точнее решение. При =10 i решение будет точным до ... Можно выделить три подхода к решению этой проблемы: 1) использование ... (“Yes”) или N (“No”). Program neg; Var a,a1:Integer; b: ... для каждой цифры числа. Program abcd; Var a,b,c,d:Integer; ...
  3. Решение: 1 способ (2)

    Решение
    ... : (A  B)  (A  C)=A  B  C Решение: 1 3 2 5 4 Это выражение можно переписать в виде ... формулу по заданной функциональной схеме Решение: Переменные А и В входят ... сторона b Найти: S прямоугольника Решение: S:=a*b Program S_pr; USES CRT; VAR a,b,s: ...
  4. Решение : Program pr1

    Решение
    ... элементы массива В по правилу: B[i]:=A[1]+A[2]+…A[i]. Решение: Program pr4; uses crt; Var i:integer ... , в которых есть цифра 7. Решение: Program pr7; uses crt; Var ... чтобы последовательность осталась невозрастающей. Решение: Program pr9; uses crt; Var ...
  5. Решение содержательных задач с использованием массивов при изучении раздела «Алгоритмизация и программирование»

    Решение
    ... частности, рассказываем, что алгоритмы решения задач можно классифицировать, например, ... ИСПОЛЬЗОВАНИЕМ МАССИВОВ ЗАДАЧА № 1_2 program Project1; {$APPTYPE CONSOLE} uses ... ); end; readln; end. ЗАДАЧА № 3 program Project1; {$APPTYPE CONSOLE} uses SysUtils ...

Другие похожие документы..