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

[Allkz]

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



Матрицы

Определить:

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

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



Записи



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

Файлы



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

А) первый элемент:

Б) пятый элемент:

В) k-й элемент :

Г) последний элемент:



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



1. Выполнить на ПК программу создания файла в соответствии с вариантом задания.

2. Выполнить на ПК программу обработки созданного файла, в соответствии с заданием.

3. Создать меню с опциями : создание файла , просмотр файла, выборка информации, выход.

4. Все опции меню оформить в виде подпрограмм

5. Проверить правильность выполнения программы с помощью тестового варианта исходных данных.



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



А. Создать файл, содержащий сведения о личной коллекции книголюба. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стеллажа, шкафа и т.п.).Количество записей произвольное

Б. Написать программу, выдающую информацию следующего

вида:

- местонахождение книги автора Х названия Y. Значения Х, Y ввести с терминала;

- список книг автора Z, находящийся в коллекции;

- число книг издания ХХ года , имеющееся в библиотеке.



Задачи на проектирование БД

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

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

[Hector]

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

[Allkz]

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

[Hector]

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

[Allkz]

ааа ясно)

[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

[Delirium]

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

[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.