|
Решения задач на Паскале!Срочно нужно!
|
|
Цитата kolarov-14 (  ) Помогите пожалуйста :Задана символьная матрица размерности N x M. Необходимо на- печатать все символы, находящиеся в столбцах, элементы которых симметричны
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Цитата Berestovskiy ( ) писал(а)Помогите пожалуйста :Задана символьная матрица размерности N x M. Необходимо на- печатать все символы, находящиеся в столбцах, элементы которых симметричны.
не совсем понял |
|
|
|
Цитата kolarov-14 ( ) Что именно не понятно?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
вход: первая строка: N(строк) M(столбцов); дальше идёт сама матрица.
цель: найти строку и столбец с наименьшим числом элементов
выход: i(номер строки) j(номер столбца)
ВАЖНО: если есть 2 или больше строки(столбца), в которых наименьшее число элементов, в ответ идёт строка(столбец) с наименьшим номером
|
|
|
|
|
Помогите пожалуйста! Нужно построить график функции у=Tg(x)+1 , интервал [а,b]
|
|
|
|
Помогайте ребят!)
Предложение описано символьной переменной длиной в 30 символов. Определить, каким знаком заканчивается предложение. Напечатать соответствующее сообщение.
|
|
|
|
http://s003.radikal.ru/i201/1311/07/ac464ee11f96.png
помогите решить плиз
|
|
|
|
помогите решить задачу на паскале.
очень нужно
задача: Выведите на экран квадраты всех нечетных чисел от 1 до 30.
|
|
|
|
Цитата xes66 ( ) задача: Выведите на экран квадраты всех нечетных чисел от 1 до 30.
i:integer;
begin
for i:=1 to 30 do
if i mod 2 = 1 then write(i*i,' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Задание:
1.Коэффициенты системы линейных уравнений заданы в виде
прямоугольной матрицы. С помощью допустимых преобразований привести
систему к треугольному виду (оформить в виде процедуры).
2. Найти количество строк, среднее арифметическое элементов которых
меньше заданной величины (оформить в виде функции).
|
|
|
|
Цитата Berestovskiy var i:integer; begin for i:=1 to 30 do if i mod 2 = 1 then write(i*i,' '); end.
спасибо
|
|
|
|
1. Дано целое число А.Определить сумму нечетных цифр в числе.
2.Гриб за сутки увеличивает
свою массу на 40%. Через сколько суток масса гриба увеличится в 2,5 раза, если
первоначально масса гриба составляла А?
3. Найти количество делителей
натурального числа А.
4.Один долгожитель, которому за
100 лет, заметил, что если к сумме квадратов цифр его возраста добавить дату
его рождения (натуральное число, не большее 31), то получится его возраст.
Сколько лет долгожителю?
5.Дан натуральный отрезок чисел [A,B]. Найти течисла этого отрезка, которые оканчиваются на3.
Очень нужно, заранее благодарен)
|
|
|
|
Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну. Подскажите, как это сделать? И как написать программу для второго задания? Программа для первого задания:
Program RASSCHET;
uses CRT;
var eps, x, a, b:real;
function f(x:real):real;
begin
f := 0.25*exp(ln(x)*3)+x-1.2502 ;
end;
function fp(x:real):real;
begin
fp:=3-4/x;
end;
begin
clrscr;
write('Vvedite pogreshnost eps = ');
ReadLn(eps);
If (eps>0) and (eps<1) then
begin
a := 0.1;
repeat
x:=a-f(a)/fp(a);
b:=a;
a:=x;
WriteLn('x = ',b:5:7);
until abs(x-b)<=eps;
WriteLn('Koren uravnenija 3*x - 4*ln(x) - 5 = 0 x = ',x:5:7);
end
else
WriteLn('Nekorrektnie dannie');
ReadLn;
End.
|
|
|
|
Доброго времени суток. Помогите решить задания в паскале,я гуманитарий и в этом не особо разбираюсь) Всех знакомых спросил,ни кто не знает,а завтра зачет.Последняя надежда на Вас)
http://rghost.ru/private/51145232/3c1cac075743991c86ed56966adcdac2/image.png
|
|
|
|
Привет ребят, срочно нужна помощь в написании или примерах программ:
1. Системы линейных алгебраических уравнений (СЛАУ) - Метод Зейделя
При написании процедуры метода Зейделя предусмотреть адекватные действия программы при возможной расходимости алгоритма.
2. Нелинейные уравнения - Метод секущих
На языке Pascal написать процедуру метода секущих, , со списком формальных параметров, содержащих начальные приближения, требуемую погрешность, количество итераций (если необходимо).
Может есть у кого примеры или уже решенные задачи(примеры), и желательно на паскале АВС.
З,Ы, В методе Зейделя как реализовать перестановку строк для сходимости матрицы, чтобы матрица считалась в любом случае.
Вся информация к задачам, представлена в методическом пособии.
|
|
|
|
Помогите с задачами пожалуйста очень нужно
Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их
Задача номер 1
Написать процедуру для вычисление среднего значения для m первых
элементов одномерного вещественного массива W.
Задача номер 2
В файл ввести текст, закончив его <<#>>.
Подсчитать в нём общее количество строк.
Задача номер 3
Составить программу последовательного появления на экран
фигуры, состоящей из окружностей.
будут очень признателен за помощь.Добавлено (24.12.13, 21:08)
---------------------------------------------
Помогите с решением задач пожалуйста
Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их
Задача номер 1
Написать процедуру для вычисление среднего значения для m первых
элементов одномерного вещественного массива W.
Задача номер 2
В файл ввести текст, закончив его <<#>>.
Подсчитать в нём общее количество строк.
Задача номер 3
Составить программу последовательного появления на экран
фигуры, состоящей из окружностей.
будут очень признателен за помощь.
|
|
|
|
помогите пожалуйста решить задачи!!!
1.Написать программу, которая считает интеграл функции f(x)=ln(x^2 корень из x) на [3,6] по методу
прямоугольником с шагом по аргументу = 0.3
2.Усложнить задачу 1.Пределы аргумента (a,b) и число шагов разбиения (n) задаются с экрана.
3.Усложнить задачу 2.Проделать расчет интегралов дважды:с шагом h и с шагом h/2/
|
|
|
|
Как распечатать массивы в две строки,один под другим? (№2 в картинке)
program Massiv;
var
a: array [1..10] of integer;
b: array [1..10] of integer;
N:integer;
j:integer; // переменная для подсчета размера нового массива
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
j:=0; // начальное значение размера нового массива
for i:=1 to n do begin // цикл для обхода массива
if (a[i] mod 2)=0 then // условие для фор\мирования нового массива
begin
inc(j); // увеличение размера формирующегося массива
b[j]:=a[i]; // присвоение значения элементу массива b
end;
end;
// вывод результата
Writeln('Ответ');
Writeln('Размер полученного массива ',j);
Write('B[]: '); for i:=1 to j do Write(B[i],' ');
end.
Введите N (N<=10)
10
Значения массива А
a[1]=2
a[2]=4
a[3]=1
a[4]=3
a[5]=9
a[6]=7
a[7]=8
a[8]=6
a[9]=5
a[10]=10
Ответ
Размер полученного массива 5
B[]: 2 4 8 6 10 Введите N (N<=10)
|
|
|
|
Помогите написать программу, а не то меня завтра в школе ждет анальная кара, желательно не заоблачным способом, а на уровне 10го класа:
Пятизначное число, выделить цифры данного числа, найти сумму и произведение.
|
|
|
|
Пожалуйста!!!Помогите решить задачи! Срочно!
1. Переведите натуральное число N в систему счисления с основанием P (I<P<17)
2. Напишите процедуру сортировки слов в обратном алфавитном порядке.
|
|
|
|
