|
Решения задач на Паскале!Срочно нужно!
|
|
Цитата 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. Напишите процедуру сортировки слов в обратном алфавитном порядке.
|
|
|
|
Цитата olgakazakowa (  ) выделить цифры данного числа,
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите очень срочно нужно!
Разработать программу шифрования текстовых файлов. Программа должна выполнить следующие действия: организовать построчное чтение данных из файла, уменьшить на 5 код каждой согласной буквы строки, записать зашифрованную строку в выходной файл. Предоставить возможность просмотра исходного и закодированного файлов. Каждое действие оформляется как подпрограмма. Главная программа реализует только диалоговый цикл взаимодействия с пользователем.
Буду очень благодарна. У меня в распоряжении только сутки...(((
|
|
|
|
Ребят, нужна помощь)) Буду благодарна за быстрый ответ)
Ввести произвольную символьную цепочку. Удвоить ее символы на нечетных местах, затем вывести полученную символьную цепочку в обратном порядке.
|
|
|
|
помогите решить задачу пожалуйста!
Масса вещества для изготовления посуды состоит из четырёх компонентов:A-18%(в еденице массы);B-32%;D-27%.Сколько килограммов каждого вещества содержится K тоннах исходной массы,если значение K меняется от K1 до K2 с шагом H?
18
|
|
|
|
var
a,b,c,d:real;
h,k1,k2:integer;
begin
read(h,k1,k2);
while (k1 <= k2) do begin
a:=k1/100*18;
b:=k1/100*32;
c:=k1/100*23;
d:=k1/100*27;
writeln(a,' ', b,' ',c,' ',d);
k1:=k1+h;
end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите, пожалуйста, в решении задач в паскале.Требуется привести блок-схему и написать программу.1. Определить площадь торцевого сечения детали, внешняяповерхность которой – треугольная призма, внутренняя – цилиндр. Ввести диаметр
цилиндра, определить минимальное значение стороны призмы и вывести подсказку
для пользователя для выбора реального размера.2. Вводится 7 чисел. Определить сумму всех чисел под четныминомерами и среднее арифметическое под нечетными номерами.3. Вводится последовательность чисел. Конец ввода – любое трехзначноечисло. Определить номера и значения максимального элементов.4. Вводится последовательность символов, конец ввода –пробел. Определить количество гласных букв в последовательности.5. Создать массив из 10 чисел и поменять местами значениясоседних ячеек.
|
|
|
|
