Новые сообщения · Правила  
  • Страница 38 из 38
  • «
  • 1
  • 2
  • 36
  • 37
  • 38
Модератор форума: Berestovskiy  
Решения задач на Паскале!Срочно нужно!
Помогите с задачами пожалуйста очень нужно
Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их  
Задача номер 1 
Написать процедуру для вычисление среднего значения для m первых  
элементов одномерного вещественного массива W.  
Задача номер 2  
В файл ввести текст, закончив его <<#>>.  
Подсчитать в нём общее количество строк.  
Задача номер 3  
Составить программу последовательного появления на экран  
фигуры, состоящей из окружностей.  

будут очень признателен за помощь.

Добавлено (24.12.13, 21:08)
---------------------------------------------
Помогите с решением задач пожалуйста
Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их 
Задача номер 1
Написать процедуру для вычисление среднего значения для m первых 
элементов одномерного вещественного массива W. 
Задача номер 2 
В файл ввести текст, закончив его <<#>>. 
Подсчитать в нём общее количество строк. 
Задача номер 3 
Составить программу последовательного появления на экран 
фигуры, состоящей из окружностей. 

будут очень признателен за помощь.

741 | Автор: meller444 | 2013-12-24, 21:08   |  Репутация: [ + 0 ]
741 | Автор: meller444 | 2013-12-24, 21:08   |  Репутация: [ + 0 ]
помогите пожалуйста решить задачи!!!
1.Написать программу, которая считает интеграл функции f(x)=ln(x^2 корень из x) на [3,6] по методу
прямоугольником с шагом по аргументу = 0.3
2.Усложнить задачу 1.Пределы аргумента (a,b) и число шагов разбиения (n) задаются с экрана.
3.Усложнить задачу 2.Проделать расчет интегралов дважды:с шагом h и с шагом h/2/
742 | Автор: vadim1995 | 2013-12-25, 21:02   |  Репутация: [ + 0 ]
Как распечатать массивы в две строки,один под другим? (№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)
743 | Автор: Bale1114 | 2014-01-30, 14:46   |  Репутация: [ + 0 ]
Помогите написать программу, а не то меня завтра в школе ждет анальная кара, желательно не заоблачным способом, а на уровне 10го класа:
Пятизначное число, выделить цифры данного числа, найти сумму и произведение.
744 | Автор: Revan | 2014-01-31, 17:41   |  Репутация: [ + 0 ]
744 | Автор: Revan | 2014-01-31, 17:41   |  Репутация: [ + 0 ]
Пожалуйста!!!Помогите решить задачи! Срочно!
1. Переведите натуральное число N в систему счисления с основанием P (I<P<17)
2.   Напишите процедуру сортировки слов в обратном алфавитном порядке.
745 | Автор: olgakazakowa | 2014-02-05, 14:23   |  Репутация: [ + 0 ]
Цитата olgakazakowa ()
выделить цифры данного числа,
что значит "выделить"?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
746 | Автор: Berestovskiy | 2014-02-09, 13:11   |  Репутация: [ + 211 ]
Помогите очень срочно нужно! 
Разработать программу шифрования текстовых файлов. Программа должна выполнить следующие действия: организовать построчное чтение данных из файла, уменьшить на 5 код каждой согласной буквы строки, записать зашифрованную строку в выходной файл. Предоставить возможность просмотра исходного и закодированного файлов. Каждое действие оформляется как подпрограмма. Главная программа реализует только диалоговый цикл взаимодействия с пользователем.
Буду очень благодарна. У меня в распоряжении только сутки...(((
747 | Автор: MariaF | 2014-02-16, 00:03   |  Репутация: [ + 0 ]
Ребят, нужна помощь)) Буду благодарна за быстрый ответ)

Ввести произвольную символьную цепочку. Удвоить ее символы на нечетных местах,  затем вывести полученную символьную цепочку в обратном порядке.
748 | Автор: TanyaTrulala | 2014-03-05, 17:32   |  Репутация: [ + 0 ]
помогите решить задачу пожалуйста!
Масса вещества для изготовления посуды состоит из четырёх компонентов:A-18%(в еденице массы);B-32%;D-27%.Сколько килограммов каждого вещества содержится K тоннах исходной массы,если значение K меняется от K1 до K2 с шагом H?


18
749 | Автор: Mazaxaka | 2014-04-04, 23:47   |  Репутация: [ + 0 ]
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
750 | Автор: Berestovskiy | 2014-04-06, 01:36   |  Репутация: [ + 211 ]
Помогите, пожалуйста, в решении задач в паскале.Требуется привести блок-схему и написать программу.1. Определить площадь торцевого сечения детали, внешняяповерхность которой – треугольная призма, внутренняя – цилиндр. Ввести диаметр
цилиндра, определить минимальное значение стороны призмы и вывести подсказку
для пользователя для выбора реального размера.2. Вводится 7 чисел. Определить сумму всех чисел под четныминомерами и среднее арифметическое под нечетными номерами.3. Вводится последовательность чисел. Конец ввода – любое трехзначноечисло. Определить номера и значения максимального элементов.4. Вводится последовательность символов, конец ввода –пробел. Определить количество гласных букв в последовательности.5. Создать массив из 10 чисел и поменять местами значениясоседних ячеек.
751 | Автор: Дмитрий | 2014-04-26, 17:01   |  Репутация: [ + 0 ]
  • Страница 38 из 38
  • «
  • 1
  • 2
  • 36
  • 37
  • 38
Поиск: