Paskal.3 задачи.

[Naeel Maqsudov]

Нам задачи раздали и сказали делайте...

На лекции надо было ходить

Код: Выделить всё

const
  _N=100;
type
  TStudent = record
    LastName:string;
    Group:integer;
    SessionAvgMark:real;
  end;
var
  StudentList:array[1.._N] of TStudentList;
  N,i,MaxIdx:integer;
  S:string;
begin
  {заполнение массива исходными данными}
  N:=0;
  repeat
    write('Введите фамилию, или нажмите Enter, если данные закончились: ');
    readln(S);
    if S<>'' then begin
      inc(N);
      with StudentList[N] do begin
        LastName:=S;
        write('Введите номер группы: '); readln(Group);
        write('Введите среднюю оценку: '); readln(SessionAvgMark);
      end;      
    end;
  until (S='') or (N=_N);
  
  if N>0 then begin
    {Теперь есть массив из N студентов. Ограничение в 100 
    элементов можно увеличивать до тех пор пока компилятор не начнет ругаться}
    {поиск отличника в группе #1}
    {сначала найдем хоть кого-нибудь из гр.1}
    i:=1;
    while (StudentList[i].Group<>1) and i< 
    
    MaxIdx:=1;
    for i:=1 to N do 
      if StudentList[i].SessionAvgMark>=StudentList[MaxIdx].SessionAvgMark 
        then MaxIdx:=i;
    {ботаник найден}
    writeln('Фамилия лучшего студента гр1: ',StudentList[MaxIdx].LastName)
  end;
end.

[mosenergo]

Ребят...выручайте... дело дрянь...в школе информатики вообще не было даже не знаю что и делать... 3 задачки решить... помогите!!

1) Вычислить и вывести на экран значение функции:
(SinX)/x=1-x[2]/3!+x[4]/5!-x[6]/7!+...|x|<(бесконечность)

примечание:
x[в степени]

2)Для матрицы А(3 на 3) найти среднее арифметическое элементов,
не принадлежащих главной диагонали матрицы.
Найти сумму элементов каждого столбца матрицы.

3)с помощью массивово расчитать:
а)количество отрицательных элементов массива
б)сумму модулей элементов массива

[Хыиуду]

1 - в раздел "Алгоритмы"
2.1 - А[i,j] не принадлежит главной диагонали, если i<>j

[###F###]

Был там,посмотрел...
Но ничего похожего не нашел...
А в понедельник уже сдавать надо...
Помогите плз.

[Naeel Maqsudov]

###F###, Ваши-то задачи все 3 задачи уже решены. Речь о задачах mosenergo.

[(kate)]

Ребята помогите СРОЧНО лабу по информационным технологиям!!!!

В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1) номер максимального по модулю элемента массива;

2) сумму элементов массива, расположенных после первого положительного элемента.

[(kate)]

Ребята помогите СРОЧНО лабу по информационным технологиям!!!!

В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1) номер максимального по модулю элемента массива;

2) сумму элементов массива, расположенных после первого положительного элемента.

[Naeel Maqsudov]

1) номер максимального по модулю элемента массива;

на входе нужен заполненный массив A[1..N] of real или integer
сам алгоритм - 2 строчки:

Код: Выделить всё

Idx:=1;
for i:=2 to N do if abs(A[i])>abs(A[Idx]) then Idx:=i;

2) сумму элементов массива, расположенных после первого положительного элемента.

то же требование: уже есть заполненный массив A

Код: Выделить всё

S:=0; {начальное значение суммы}
Flg:=0; {множитель, чтобы не прибавлялись ненужные числа}
for i:=1 to N do begin
  S:=Flg*A[i]; 
  if A[i]>0 then Flg:=1; {как только встретилось положительное число,
  множитель становится 1 и числа после этого момента начинают 
  прибавляться к сумме}
end;

[(kate)]

огромное спасибо

[Женя Кужель]

Люди мне задали сделать задачу, но я не знаю как помогите мне пожалуйста, Задача выглядит так:

К кажному набору для первокласника ходит 1 ручка, 2 линейки и 4 тетради. Было закуплено "a" линеек, "b" тетрадей и "с" ручек. Написать програму которая узнаёт какое количество подарков можна расдать первоклассникам?

Помогите пожалуйста, мне это очень важно. Зарание спасибо.