|
Решения задач на Паскале!Срочно нужно!
|
|
Помогите с задачами пожалуйста очень нужно
Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их
Задача номер 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 чисел и поменять местами значениясоседних ячеек.
|
|
|
|
