Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти
тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.
Ребята помогите!!!!! учусь на бухгалтера, а по ходу лепят программистов. Ну не мое это!!! надо написать задачки в паскале по векторам. Мы эти векторы больше 10 лет назад в школе проходили,не помню ничего! 2 дня сижу и результата 0!
Контрольная работа 1
1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать количество элементов, которые делятся на 4. Результаты вывести на экран.
1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран. Контрольная работа 2
2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, у которых сумма всех делителей меньше 20. Результаты вывести на экран.
2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых все элементы чётные. Результаты вывести на экран.
Для заданной целочисленной матрицы Н найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали. Исходную матрицу вывести в общепринятом виде. Полученные суммы и результат вывести в произвольной форме.
не находит минимум среди сумм модулей элементов диагоналей,помогите сделать:)
program matriza; type matrix= array [1..10, 1..10] of integer; mat=array [1..2*10-1] of integer; var f,f1 : matrix; b:mat; i, j,n,m: byte; k,l:integer; begin k:=0; l:=0; Writeln ('размерность матрицы:'); Readln(N,m); Writeln ('введите элементы матрицы:'); for i :=1 to n do for j :=1 to m do readln ( f [ i , j ]); for i := 1 to n do f1:=f; for i:=1 to n do for j:=1 to m do begin for i:=1 to n do for j:=1 to m do b[i+j-1]:=b[i+j-1]+abs(f[i,j]); k:=b[1]; for i:=1 to n do for j:=1 to m do writeln('модули:','',abs(f[i,j])); for i:= 2 to 2*n-1 do if b[i]<k then k:=b[i]; writeln('минимум сумм:','',k); end; writeln('исходная матрица:'); for i := 1 to n do begin for j := 1 to m do write(f1[i, j]:5); writeln; end; end.
Ребят, помогите плыз, сессия и никак не решу последнюю задачку: Сформировать 2 массива целых чисел определенной длинны. Вывести на печать числа, встречающиеся в каждом массиве.
Павлов
Рассчитать радиус описанной окружности треугольника. Стороны треугольника - дробные числа, вводятся с клавиатуры. При этом программа должна содержать 3 подпрограммы: 1) функция нахождения максимальный стороны треугольника методом текущего максимума. 2) процедура проверки существования треугольника 3)функция для расчета радиуса описанной оркужности( R= abc/2S). Три вызова подпрограмм Пожалуйста помогите решить!
Вывести на печать числа, встречающиеся в каждом массиве.
Если числа встречаются в каждом массиве, то это тупо вывести два массива. Если бы было "Вывести на печать числа, встречающиеся в каждом ИЗ массивов", то было бы иначе)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5. Найти все значения yn, при которых f(xk, yn)>0 при k = 1, 2,…, M. f(x, y) = (y3 tgx + 1/x)•(y2 – 2x2); a = -0.5; b = 0.02; c = -2.3; d = 0.3; M = 11
ПОМОГИТЕ СРОЧНО НА ЗАЧЕЕЕЕЕТ!!!!!! До экзамена 1 день....ничего не успеваю)
Добавлено (18.01.12, 11:06) --------------------------------------------- 5. Для заданной целочисленной матрицы расположить элементы каждого столбца таким образом, чтобы четные предшествовали нечетным без изменения порядка следования элементов одной четности. Использовать модуль сортировки элементов одномерного целочисленного массива. Помогите спасите выручайте ребят!!!! очень надо
Добавлено (18.01.12, 11:07) --------------------------------------------- 5. Найти предложения, все символы которых образуют симметричную относительно центра последовательность (палиндром). Если таких предложений нет, то вывести соответствующее сообщение ПОМОГИТЕ СРОЧНО вы последняя надежда!!!
Люди, помогите с задачей плиз, через пару дней экзамен
Составить блок-схему алгоритма и программы на языках Бейсик и Паскаль в соответствии с принципом модульности. Найти минимум матрицы, используя модуль поиска минимального элемента одномерного массива
1. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов начинается и кончается одной и той же буквой помогите решить,!!!!
var a,s:string; i,p,m:integer; begin readln(s); m:=0; for i:=1 to length(s) do begin p:=pos(' ',s); if p=0 then break; a:=copy(s,1,p-1); delete(s,1,p); if ord(a[1])=ord(a[length(a)]) then m:=m+1;end; writeln(m+1); end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
Помогите пожалуйста решить эти 2 задачки! 1) Составьте программу вывода нечетных трёхзначных чисел, кратных 4. 2) Составьте программу вывода на экран простых делителей числа N.
2) Составьте программу вывода на экран простых делителей числа N.
var i,j,n,c,q:integer; begin read(n); for i:=1 to n do begin c:=i; for j:=2 to c-1 do if c mod j<>0 then q:=q+1; if q=c-2 then if n mod i=0 then write(i,' ');end; end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
Люди человеки,помогите пожалуйста с задачкой нуна вот чё Составить прогу используя оператор цикла с предусловием. Вычислить количество отрицательных значений Sin(Fi) на интервале {а.в} с заданным шагом.Я вам стока плюсов натыкаю;0))
Добавлено (08.02.12, 11:42) --------------------------------------------- uses crt; var a,b,f,h,y:real; k:integer; begin clrscr; repeat writeln('Введите диапазон вычислений a<b'); readln(a,b); until a<b ; repeat write('Шаг вычислений h<',b-a:0:1,' h='); readln(h); until h<b-a; k:=0; f:=a; while f<=b+h/2 do begin y:=sin(f); writeln('f=',f:4:1,' sin(f)=',y:5:2); if y<0 then k:=k+1; f:=f+h; end; write('Количество отрицательных=',k); readln end. ВОТ ТАКУ НАПИСАЛ НО СИНУС СЧИТАЕТ НЕПРАВИЛЬНО В ЧЁМ ОШИБКА.ПОМОГИТЕ ЛЮДИ ДОБРЫЕ.
Для проверки, просто сделай цикл аналогичный твоему, пропиши y:=sin(f) и потом write(f,' '); и посмотри что да как)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
помогитте пожалуйста вот с такой прогой: Задано вещественное значение х.Вычислить значение функции Cos^2x=5. x<=2 У={ ^1/2(x+1). x>2 не знаю понятно поймёте ли. Огроменное пасибо.
Добавлено (09.02.12, 04:38) --------------------------------------------- вот что у меня получилось. всё считает только проблема в том что после ввода значения х жмёшь энтер чтоб глянуть результат, а в итоге закрывается окно дос программы и вылазит окно редактора паскаля. чтоб увидеть ответ надо опять запускать рун (ctrl+F9) или так оно и должно быть? вот прога Program B1 Var x,y: Real; begin Write('Введите значение х:'); Readln(x); If x<=2 then y:=SQR(COS(x))+5 else y:=SQRT(x+1); Writeln('При x=',x:4:2,'y=',y:5:2); End.
Добавлено (09.02.12, 04:41) --------------------------------------------- в примере ошибочка
Вход
