Паскаль Задачи. примерно 10 буду рад если решите... желательно с блок схемами. Буду сильно благодарен.

[Азарт]

1. Cоставьте прогу, которая по заданному году и номеру месяца m определяет количество дней в этом месяце.
2. Составить прогу для вычислений функций F(x)=x * cos(1/x)+2 на отрезке [a,b] с шагом h. Результаты представить в виде таблицы (1-ый столбец - значения аргумента, 2-ой - значение функции).
3. Дано натуральное число N. Вычислить Р=(1-1/2 {в квадрате})(1-1/3 {в кубе})...(1-1/n {в квадрате}), где n>2.

Пока 3 потом еще выложу...
Надеюсь кто-то получает от этого удовольствие... не то что я(

[maladoy]

Надеюсь кто-то получает от этого удовольствие... не то что я(

Издеваешься?

[Stilet]

Издеваешься?

Ты погодь, автор ща скажет что это на BrainFuck'е нужно сделать

[maladoy]

судя по теме Это все таки паскаль. А темку прикрывать надо ибо минимум 2 нарушения Либо исправлять их!!!

[Levsha100]

Слов не хватает.Однако!

[IT-man]

1

program year;
uses crt;
var m,y:integer;
     flag:boolean;
begin
 writeln('input month');
 readln(m);
 if (m>12) or (m<1) then writeln('data is incorrect')
 else
  begin
   writeln('input year');
   readln(y);
   if y mod 4 =0 then flag:=true
    else flag:=false;
   if (m=2) and (flag=true) then writeln('in ',m,' month of ',y,'year - 29 days') else
   if (m=2) and (flag=false) then writeln('in ',m,' month of ',y,'year -28 days') else
   if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12)
     then   writeln('in ',m,' month of ',y,'year - 31 days')
   else   writeln('in ',m,' month of ',y,'year - 30 days')
  end;
 readln;
end.

2

program func;
uses crt;
var f,x,a,b,h:real;
     flag:boolean;
begin
  writeln('input a');
  readln(a);
  writeln('input b');
  readln(b);
  writeln('input h');
  readln(h);
  x:=a;
  repeat
    f:= x*cos(1/x)+2;
    writeln(x:6:2, f:6:2);
    x:=x+h;
  until x>b;
  readln;
end.

3

program row;
uses crt;
var n,p,i:integer;
begin
 p:=1;
  writeln('input n');
  readln(n);
if n>2 then begin  
for i:=2 to n do
 p:=p*(1-1/sqr(n));
 writeln('p=',p);
end
else writeln('n doljno byt >2'); 
 readln;
end.

а пост №6 я бы удалил!

[Азарт]

спасибо большое

добавлю еще)

[bushkitten]

Помогите решить несколько задачек на Paskal!!!

[bushkitten]

1.Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
2. Дан массив размера N. Найти минимальный из его локальных максимумов
3.Дан массив размера N и целое число K (1  K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0.
4.Заполнить матрицу случайными числами. Развернуть матрицу на 180o.
Пожалуйста!!!!