[Master-Sergey]

Case. Дан номер месяца — целое число в диапазоне 1-12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для не високосного года.

For. Дано целое число N (>0). Используя один цикл, найти сумму
1 + 1/(1!) + 1/(2!) + 1/(3!) + ... + 1/(N!)
(выражение N! — N-факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1*2*...*N). Полученное число является приближенным значением константы е = ехр(1).

While. Дано целое число N (>0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE.

Series. Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE.

Ргос. Описать процедуру TrianglePS(a, P, S), вычисляющую по стороне а равностороннего треугольника его периметр Р=3-аи площадь S = a(квадрат)*корень(3/4) (а — входной, Р и S — выходные параметры; все параметры являются ве¬щественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.

Minmax. Дано целое число N (> 2) и набор из N чисел — значений некоторой величины, полученных в N опытах. Найти среднее значение этой величины. При вычислении среднего значения не учитывать минимальное и максимальное из имеющихся в наборе значений.

[Master-Sergey]

Mix13. [For 16] Дано вещественное число А и целое число N (> 0). Используя один цикл, вывести все целые степени числа А от 1 до N.

Series12. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе.

Minmax 12. Дано целое число N и набор из N чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутствуют, то вывести 0.

Matrix 12. Дана матрица размера М х N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т.д.

String 13. Дана строка. Подсчитать количество содержащихся в ней цифр.

Text 13. Дан непустой текстовый файл. Удалить из него первую строку.

Param 12. Описать процедуру SortIndex(A, N, I), формирующую для вещественного массива А размера N индексный массив I — массив целых чисел того же размера, содержащий номера элементов массива А в том порядке, который соответствует возрастанию элементов массива А (сам массив А при этом не изменяется). Индексный массив I является выходным параметром. С помощью этой процедуры создать индексные массивы для массивов А, В, С размера NA, NB, NC соответственно.

Recur l3. Описать рекурсивную функцию Palindrom(S) логического типа, возвращающую TRUE, если строка S является палиндромом (то есть читается одинаково слева направо и справа налево), и FALSE в противном случае. Оператор цикла в теле функции не использовать. Вывести значения функции Palindrom для пяти данных строк.

Dynamic12. Дан указатель Р1 на вершину стека, содержащего не менее пяти элементов. Используя тип TStack (см. задание Dynamicll), описать функцию Рор(S) целого типа, которая извлекает из стека S первый (верхний) элемент, возвращает его значение и освобождает память, которую занимал извлеченный элемент (S — входной и выходной параметр типа TStack). С помощью функции Pop извлечь из исходного стека пять элементов и вывести их значения. Вывести также указатель на новую вершину стека (если результирующий стек окажется пустым, то этот указатель должен быть равен NIL).

[lmikle]

И в чем проблема?
Берешь учебник по паскалю и вперед. Если что не получается, тогда спрашиваешь здесь.

Или объявляешь цену и тебе все делают.

[Act]

супер задачка, всё по полочкам уже разложено... работы на 10 минут

[hkdkest]

Где такие задачки дают? В школе?

[:S.p.a.m.]

Сообщение от hkdkest

Где такие задачки дают? В школе?

Не угадал! Нам в институте давали такие. Меня одногрупники чуть не порвали, вместо препода бегал

[ART]

Могу поспорить - задачи из электронного задачника по PascalABC

[ApplicatiOn]

могу помочь по этим вопросам:

Case. Дан номер месяца — целое число в диапазоне 1-12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для не високосного года.

For. Дано целое число N (>0). Используя один цикл, найти сумму
1 + 1/(1!) + 1/(2!) + 1/(3!) + ... + 1/(N!) 
(выражение N! — N-факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1*2*...*N). Полученное число является приближенным значением константы е = ехр(1).

While. Дано целое число N (>0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE.

Series. Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE.

если надо, пиши в асю.. 74391163

[ART]

Вот некоторые:

Код:

program case4;
var
  N:integer;
begin
  writeln('введите номер месяца');
  readln(N);
case N of
  1, 3, 5, 7, 8, 10, 12:writeln('в этом месяце 31 день');
  4, 9, 11:writeln('в этом месяце 30 дней');
  2:writeln('в этом месяце 28 дней');
end;
end.

program for21;
var
 N,  i: integer;
 S,  A: real;
begin
 readln(N);
 S  :=  1;
 A  :=  1;
 for i  :=  1 to N do begin
  S  :=  S  *  i;
  A  :=  A  +  1 / S;
 end;
 writeln(A);
end.

program while4;
var
 N,  s: integer;
begin
 readln(N);
 s  :=  1;
 while (s  <>  N) do begin
  s  :=  s  *  3;
  if s  >  N then break;
 end;
 if s  =  N then writeln('TRUE') else writeln('FALSE');
end.

program series21;
var
 K,  S,  N,  J,  i: integer;
 f: boolean;
begin
S  :=  0;
f  :=  true;
Readln(N);
Readln(J);
 for i  :=  2 to N do begin
  Readln(K);
  if K  <  J then f  :=  false;
  J  :=  K;
 end;
 writeln(f);
end.

[SunnyKate]

Помогите пожалуйста написать программу: решить методом подбора систему линейных уравнений второго порядка в общем виде с точностью аргументов 0.001. Вывести сообщение в случае отсутсвия решения (если величина невязки решения больше 0.1). и объясните пожалуйста что такое невязка решения!ну или хотя бы напишите как начать, а то не понимаю, с чего надо начать писать после конвертации данных!

[Master-Sergey]

Доброго времени суток!
Решил все задачки кроме этих:

Param 12. Описать процедуру SortIndex(A, N, I), формирующую для вещественного массива А размера N индексный массив I — массив целых чисел того же размера, содержащий номера элементов массива А в том порядке, который соответствует возрастанию элементов массива А (сам массив А при этом не изменяется). Индексный массив I является выходным параметром. С помощью этой процедуры создать индексные массивы для массивов А, В, С размера NA, NB, NC соответственно.

Recur l3. Описать рекурсивную функцию Palindrom(S) логического типа, возвращающую TRUE, если строка S является палиндромом (то есть читается одинаково слева направо и справа налево), и FALSE в противном случае. Оператор цикла в теле функции не использовать. Вывести значения функции Palindrom для пяти данных строк.

Dynamic12. Дан указатель Р1 на вершину стека, содержащего не менее пяти элементов. Используя тип TStack (см. задание Dynamicll), описать функцию Рор(S) целого типа, которая извлекает из стека S первый (верхний) элемент, возвращает его значение и освобождает память, которую занимал извлеченный элемент (S — входной и выходной параметр типа TStack). С помощью функции Pop извлечь из исходного стека пять элементов и вывести их значения. Вывести также указатель на новую вершину стека (если результирующий стек окажется пустым, то этот указатель должен быть равен NIL).

Помогите кто чем сможет.!

[shokoladka]

даны значения двух вещественных массивов х и у размером n. рассматривая пары значений (х1;у1),.......(хn;yn) как координаты точек плоскости, найти номера трех точек, которые являются вершинами треугольника с наибольшей площадью.