нужна помощь по Паскалю(Помогите решить задачи)

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

нужна помощь по Паскалю(Помогите решить задачи)

Задания учебной практики по программированию - 2 семестр

Матрицы
Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;
б) среднее арифметическое элементов побочной диагонали квадратной матрицы

Записи

Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если температура воздуха выше 0).
Файлы

Дан типизированный файл, элементами которого являются отдельные слова. Напечатать:
А) первый элемент:
Б) пятый элемент:
В) k-й элемент :
Г) последний элемент:

Составление меню.

1. Выполнить на ПК программу создания файла в соответствии с вариантом задания.
2. Выполнить на ПК программу обработки созданного файла, в соответствии с заданием.
3. Создать меню с опциями : создание файла , просмотр файла, выборка информации, выход.
4. Все опции меню оформить в виде подпрограмм
5. Проверить правильность выполнения программы с помощью тестового варианта исходных данных.

Варианты задания

А. Создать файл, содержащий сведения о личной коллекции книголюба. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стеллажа, шкафа и т.п.).Количество записей произвольное
Б. Написать программу, выдающую информацию следующего
вида:
- местонахождение книги автора Х названия Y. Значения Х, Y ввести с терминала;
- список книг автора Z, находящийся в коллекции;
- число книг издания ХХ года , имеющееся в библиотеке.

Задачи на проектирование БД
Используя файловый тип данных, создать файл записей, который содержит требуемую в задании информацию. Вывести содержимое файла на экран для контроля.
Для кассового отдела торгового предприятия спроекти¬ровать БД по сбору информации о реализуемых товарах и по¬ступающих суммах от продаж.

Allkz, где учишься?

в Казахстане в городе Шымкент там есть колледж Поллитех называеться вот там и учусь) а че?

У меня задания почти такие же, тока в Гомеле, Беларусь

Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;

Код:

s:=0;

for i:=1 to n do

  s:=s+a[i,i];

sr_arifmetic:=s/n

Определить:
б) среднее арифметическое элементов побочной диагонали квадратной матрицы

Код:

s:=0;

for i:=1 to n do

  s:=s+a[n-i+1,i];

sr_arifmetic:=s/n

GreyObr, в следующий раз оформляйте исходный код тегами, для лучшего чтения.

Цитата:

Цитата Allkz

Записи
Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если температура воздуха выше 0). »

Код:

const

n=31;{кол-во дней в месяце}



type

day = record

  osadki : byte;

  temp : shortint;

end;



var

d: array [1..n] of day;

sum_dojd, sum_sneg:word;{кол-во снега и дождя за месяц}



begin

{ввод данных по кол-ву осадков на каждый день}

for i:=1 to n do

  begin

    writeln('введите кол-во осадков и температуру в ',i,'-й день:');

    readln(d[i].osadki, d[i].temp)

end;



sum_dojd := 0;

sum_sneg := 0;

for i:=1 to n do

  if d[i].temp > 0 then sum_dojd := sum_dojd + d[i].osadki

    else sum_sneg := sum_sneg + d[i].osadki;



writeln('дождя за месяц:',sum_dojd);

writeln('снега за месяц:',sum_sneg);

end.