Вматрице a(3,7) уничтожить 5-й столбик и распечатать полученную матрицу​

malyshewacarina   ·   05.02.2020 01:43
Ответов: 3 Показать ответы 7 Обсудить
Ответы
Ответ разместил: MaksBart1
10.03.2019 18:51

если я правильно понял и функция sin в квадрате и cos в квадрате то

по идее она будет равна 1 в любом случае

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(x)*sin(x)+cos(x)*cos(x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

вот результат выполнения

-3.14 1.00 -2.94 1.00 -2.74 1.00 -2.54 1.00 -2.34 1.00 -2.14 1.00 -1.94 1.00 -1.74 1.00 -1.54 1.00 -1.34 1.00 -1.14 1.00 -0.94 1.00 -0.74 1.00 -0.54 1.00 -0.34 1.00 -0.14 1.00 0.06 1.00 0.26 1.00 0.46 1.00 0.66 1.00 0.86 1.00 1.06 1.00 1.26 1.00 1.46 1.00 1.66 1.00 1.86 1.00 2.06 1.00 2.26 1.00 2.46 1.00 2.66 1.00 2.86 1.00 3.06 1.00

если брать 2x тогда

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(2*x)+cos(2*x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

и результат

-3.14 1.00 -2.94 1.31 -2.74 1.41 -2.54 1.29 -2.34 0.97 -2.14 0.49 -1.94 -0.07 -1.74 -0.61 -1.54 -1.06 -1.34 -1.34 -1.14 -1.41 -0.94 -1.26 -0.74 -0.91 -0.54 -0.41 -0.34 0.15 -0.14 0.68 0.06 1.11 0.26 1.36 0.46 1.40 0.66 1.22 0.86 0.84 1.06 0.33 1.26 -0.23 1.46 -0.76 1.66 -1.16 1.86 -1.38 2.06 -1.39 2.26 -1.17 2.46 -0.77 2.66 -0.25 2.86 0.31 3.06 0.82

Ответ разместил: rigelena
10.03.2019 18:51

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

Ответ разместил: olivcad
10.03.2019 18:51

64000*16=1024000 б=128000 б=125 кб

Ответ разместил: arsen200q
10.03.2019 18:48

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

Другие вопросы по Информатике

Перевести числа 93 и 124 в двоичную систему счисления методом деления. правильно записать....
Информатика
01.03.2019 08:00
4 ответ(ов)
Из каких материалов может быть сделана модель объекта? ткань глина дерево воздух стекло вода газ бумага металл пластмасса резина лёд фасфор...
Информатика
06.03.2019 20:10
2 ответ(ов)
Масса восьми литров бензина 5,68 кг, цистерна имеет объем 500 кубических метров хватит ли ее чтобы внести тон бензина? ? как это решить)...
Информатика
07.03.2019 21:11
3 ответ(ов)
Сколько работает примерно серверов в мире 1) 100 000 2) 10 000 000 3) 1 000 000 000 4) 100 000 000 000...
Информатика
07.03.2019 23:50
4 ответ(ов)
Дана матрица состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29.сформировать одномерный массив sum(название массива) который состоит из сумм з...
Информатика
09.03.2019 01:50
3 ответ(ов)
Решить на паскале я совсем не разбираюсь в ! 1)дана таблица со значениями среднемесячных температур в течение года. составить программу на паскале, в которой вычисляются четыре в...
Информатика
09.03.2019 17:00
3 ответ(ов)
На циклы,,напишите программу составьте программу определения наибольшего общего делителя двух натуральных чисел. (3 )...
Информатика
10.03.2019 02:30
3 ответ(ов)
Вопрос по delphi 7 я делаю тестирующую программу. и хочу, чтобы по ее завершении выводилось сообщение с showmessage том, сколько я набрал. делаю так: showmessage('вы набрали '+b...
Информатика
10.03.2019 05:00
2 ответ(ов)
С(x∨¬y⇒x∧z)⇒¬(x⇒¬y)∨(y↔¬z)...
Информатика
03.03.2019 15:54
3 ответ(ов)
Сделать на листочке все...
Информатика
03.03.2019 17:38
3 ответ(ов)
(оцифровка монофонического звукового потока осуществляется с частотой дискретизации 11 кгц и глубиной кодирования звука 8 бит. продолжительность звукового фрагмента составляла 2,5...
Информатика
03.03.2019 19:11
2 ответ(ов)
Примеры понятия, высказывания, умозаключения, доказательств из различных наук: , информатики , и ​...
Информатика
07.03.2019 09:35
Самые популярные сегодня