VPF::[Pascal]Надо решить 4 задачки на Паскале!

kuirp

Дата 9.10.2008, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

Значит так.
С прошлого курса я нахватал 5 долгов! Один из них уже сдал.(без какой-либо помощи smile

)
Надеюсь вы мне поможете сдать еще один. smile

Итак, мне нужно решить еще 4 задачи для получения зачета:
Задача 1(на процедуры)
1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

2. Разработать программу, выполняющую следующие функции:
- ввод данного списка в массив записей;
- вывод массива записей на экран;
- поиск всех рейсов с номерами большими, чем 50, и вылетающими в "Краснодар" с выводом найденных записей на экран.

Задача 2(на записи)
В книжном магазине продаются учебники для школьников. Создать таблицу, содержащую сведения об учебниках: предмет, класс, издательство, год издания, автор, цена. Используя эти данные вывести на экран список учебников, изданных в 2002 году, а также посчитать суммарную стоимость учебников для 1-го класса, имеющихся в магазине.

Задача 3
1. Дан файл f2. Создать новый файл, включая в него самые длинные слова строк.
2. В файл f1 записать результаты опроса учеников о любимых писателях. Каждый ученик вводит по три фамилии. Найти фамилию писателя, которая встречается чаще других.

Я на таком форуме новичок, поэтому не могу написать 4-ю задачу. Там требуется вычислить выражение по формуле. Я не знаю, есть ли у вас тут какой-нить тег для ввода формул? Или как-то по-другому вводить надо?

volvo877

Дата 9.10.2008, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

kuirp

Дата 9.10.2008, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

Ой извиняюсь. Как я сказал я впервые на форуме программистов.

THandle

Дата 12.10.2008, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Код



program Project1;

const
  ARRAY_SIZE = 10;
  F_FLIGHT = 'Krasnodar';

type
  TFlightDay = 1..7;

  TFlight = record
    FNumber: Integer;
    FStartPoint: String[20];
    FFinishPoin: String[10];
    FDay: TFlightDay;
  end;

var
  Flights: Array [1..ARRAY_SIZE] Of TFlight;
  J: Integer;

procedure ReadArray;
var
  I: Integer;
begin
  for I := 1 to ARRAY_SIZE do
  begin
    Write('Enter flight number: ');
    ReadLn(Flights[I].FNumber);
    Write('Enter flight starting point: ');
    ReadLn(Flights[I].FStartPoint);
    Write('Enter flight finishing point: ');
    ReadLn(Flights[I].FFinishPoin);
    Write('Enter flight day: ');
    ReadLn(Flights[I].FDay);
  end;
end;

procedure WriteArrayElement(Element: Integer);
begin
  WriteLn('Flight number: ', Flights[Element].FNumber);
  WriteLn('Flight starting point: ', Flights[Element].FStartPoint);
  WriteLn('Flight finishing point: ', Flights[Element].FFinishPoin);
  WriteLn('Flight day: ', Flights[Element].FDay);
end;

procedure FindFlights;
var
  I: Integer;
begin
  for I := 1 to ARRAY_SIZE do
    if Flights[I].FNumber > 50 then
      if Flights[I].FFinishPoin = F_FLIGHT then
        WriteArrayElement(I);
end;

begin
  WriteLn('Condition 1');
  ReadArray;
  WriteLn('Condition 2');
  for J := 1 to ARRAY_SIZE do
    WriteArrayElement(J);
  WriteLn('Condition 3');
  FindFlights;
  ReadLn;
end.

Это сообщение отредактировал(а) THandle - 12.10.2008, 11:00

THandle

Дата 12.10.2008, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Код


program Project1;

const
  ARRAY_SIZE = 3;

type
  TBookShop = record
    FSubject: String[30];
    FClass: Byte;
    FPublisher: String[30];
    FYear: Integer;
    FAuthor: String[30];
    FPrice: Integer;
  end;

var
  Shop: Array [1..ARRAY_SIZE] Of TBookShop;

procedure ReadArray;
var
  I: Integer;
begin
  for I := 1 to ARRAY_SIZE do
  begin
    Write('Enter subject: ');
    ReadLn(Shop[I].FSubject);
    Write('Enter class number: ');
    ReadLn(Shop[I].FClass);
    Write('Enter publisher: ');
    ReadLn(Shop[I].FPublisher);
    Write('Enter year: ');
    ReadLn(Shop[I].FYear);
    Write('Enter author: ');
    ReadLn(Shop[I].FAuthor);
    Write('Enter price: ');
    ReadLn(Shop[I].FPrice);
  end;
end;

procedure WriteArrayElement(Element: Integer);
begin
  WriteLn('subject: ', Shop[Element].FSubject);
  WriteLn('class number: ', Shop[Element].FClass);
  WriteLn('publisher: ', Shop[Element].FPublisher);
  WriteLn('year: ', Shop[Element].FYear);
  WriteLn('author: ', Shop[Element].FAuthor);
  WriteLn('price: ', Shop[Element].FPrice);
end;

procedure Book2002;
var
  I: Integer;
begin
  for I := 1 to ARRAY_SIZE do
    if Shop[I].FYear = 2002 then
      WriteArrayElement(I);
end;

procedure FirstClassPrice;
var
  Price: Integer;
  I: Integer;
begin
  Price := 0;
  for I := 1 to ARRAY_SIZE do
    if Shop[I].FClass = 1 then
      Price := Price + Shop[I].FPrice;
  WriteLn('Price: ', Price);
end;

begin
  ReadArray;
  WriteLn('Condition 1');
  Book2002;
  WriteLn('Condition 2');
  FirstClassPrice;
  ReadLn;
end.

Цитата(kuirp @ 10.10.2008, 00:27

)

Я на таком форуме новичок, поэтому не могу написать 4-ю задачу. Там требуется вычислить выражение по формуле. Я не знаю, есть ли у вас тут какой-нить тег для ввода формул?

Выкладывай формулу картинкой.

3 задачку сделаю или вечером сегодня или же завтра.
Выкладывай 4.

kuirp

Дата 13.10.2008, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

4: Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION.
Моя формула прикреплена.(см. присоединенный файл)

Это сообщение отредактировал(а) kuirp - 13.10.2008, 00:28

Присоединённый файл ( Кол-во скачиваний: 21 )

formula.JPG 5,11 Kb

THandle

Дата 13.10.2008, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Не до конца понятны оба оставшихся задания.

Цитата(kuirp @ 10.10.2008, 00:27

)

1. Дан файл f2. Создать новый файл, включая в него самые длинные слова строк.

Что за файл? То есть искать в каждой строке самое длинное слово?... Я где то год назад решал тут точно такую же задачу... Надо поиском пройтись...

Цитата(kuirp @ 10.10.2008, 00:27

)

2. В файл f1 записать результаты опроса учеников о любимых писателях. Каждый ученик вводит по три фамилии. Найти фамилию писателя, которая встречается чаще других.

Что есть ученики? Сколько их? Как проводится опрос? Вот это совсем не понятно...

Цитата(kuirp @ 13.10.2008, 01:27

)

4: Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION.
Моя формула прикреплена.(см. присоединенный файл)

Не понятна формула... Что есть все эти индексы и буквы? Откуда они берутся? Вводятся пользователем?

kuirp

Дата 14.10.2008, 05:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

THandle, а представь себе, это как раз то, что нам дал преподаватель алгоритмизации на 2-ом курсе. В основном она нам как раз такие непонятные задачки и дает. smile

Ладно давай разбираться вместе:

Цитата

Меня это тоже тормознуло, когда я впервые увидел задачку.
Но думаю "файл" это для понту. На самом деле думаю это должно выглядеть так: запускаешь программу, появляется сообщение, типа "Введите содержимое файла f1", соответственно пользователь должен ввести содержимое и нажать Enter. После этого на экран выведутся самые длинные слова строк файла.

Цитата

Что есть ученики? Сколько их? Как проводится опрос? Вот это совсем не понятно...

Я думаю количество учеников вводится с клавиатуры. Соответственно их мнение(насчет лучшего писателя) скорее всего вводится по порядку(один ввел трех писателей - enter, второй ввел трех писателей - enter и т. д.).
Думаю это она(преподаватель) и имела в виду.

Цитата

Не понятна формула... Что есть все эти индексы и буквы? Откуда они берутся? Вводятся пользователем?

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

P.S.: Зачет мне уже поставили за те другие задачи, которые я решил до захода на ваш форум. Поставили вчера. Я аж не ожидал! smile

Но остальные сказали досдать.(чтоб уж совсем в шоколаде быть smile

)

Это сообщение отредактировал(а) kuirp - 14.10.2008, 05:12

mr.Anderson

Дата 14.10.2008, 16:41 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Вот четвертая. Сразу говорю, не проверял, сверять не с чем.

Код


program Project1;

//максимум функций, как требовалось
function Power(base, pow: integer): longint;
var i, p: longint;
begin
  p := 1;
  for i := 1 to pow do
    p := p * base;
  Power := p;
end;

function SumFromX(K: Integer; X: Array of Integer; B: Integer): Integer;
var
 I: Integer;
 R: Integer;
begin
  R := 0;
  for I:=0 to K-1 do
    R := R + X[I] + B;

  SumFromX := R;
end;

function SumFromY(L: Integer; Y: Array of Integer; A: Integer): Integer;
var
 I: Integer;
 R: Integer;
begin
  R := 0;
  for I:=0 to L-1 do
    R := R + Y[I] + A;

  SumFromY := R;  
end;

function CalculateSQRT(A, B, K, L: Integer): Real;
begin
  Result := Sqrt(Abs(Power(A, K) - Power(B, L)));
end;

const
 MAX = 10;

var
 A, B, L, K: Integer;
 I: Integer;
 X, Y: Array [1..MAX] Of Integer;
 F: Real;

begin
  Write('Enter A, B: ');
  ReadLn(A, B);
  Write('Enter K, L: ');
  ReadLn(K, L);
  Write('Enter X array: ');
  for I := 1 to K do
    Read(X[I]);
  Write('Enter Y array: ');
  for I := 1 to L do
    Read(Y[I]);

  F := CalculateSQRT(A, B, K, L) / SumFromX(K, X, B) + SumFromY(L, Y, A);

  WriteLn(F:0:10); //дадим 10 знаков после запятой для точности
  ReadLn;
end.

Это сообщение отредактировал(а) mr.Anderson - 14.10.2008, 18:24

--------------------

mr.Anderson

Дата 14.10.2008, 18:01 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Так. Программу проверил, считает верно, к примеру, для такого набора:

Цитата

A, B: 2 2
K, L: 3 2
X: 2 3 4
Y: 1 2

Результат:

Цитата

7.133333333

--------------------

THandle

Дата 14.10.2008, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Цитата(kuirp @ 14.10.2008, 06:05

)

Код



program Project1;

function MaxWords(S: String): String;
var
  Position: Integer;
  StrLen: Integer;
  W: String;
  ResultStr: String;
  MWLen: Integer;

function FindWord: String;
var
  RWord: String;
begin
  RWord := '';
  repeat
    Inc(Position);
    if S[Position] <> ' ' then
      RWord := RWord + S[Position];
  until (S[Position] = ' ');
  FindWord := RWord;
end;

function MaxWordLen: Integer;
var
  MaxLen: Integer;
begin
  W := FindWord;
  MaxLen := Length(W);
  repeat
    W := FindWord;
    if W <> '' then
      if Length(W) > MaxLen then
        MaxLen := Length(W);
  until Position >= StrLen;
  MaxWordLen := MaxLen;
end;

begin
  Position := 0;
  StrLen := Length(S);
  S := S + ' ';
  MWLen := MaxWordLen;
  ResultStr := '';
  Position := 0;
  repeat
    W := FindWord;
    if Length(W) = MWLen then
      ResultStr := ResultStr + W + ' ';
  until Position >= StrLen;
  MaxWords := ResultStr;
end;

var
  S: String;
  MWStr: String;
begin
  ReadLn(S);
  MWStr := MaxWords(S);
  WriteLn(MWStr);
  ReadLn;
end.

mr.Anderson, спасибо что решил 4 задачу!!!

ЗЫ: сча еще про учеников накатаю.

volvo877

Дата 14.10.2008, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

mr.Anderson, во-первых, Math не из той оперы, опять же... Во вторых, Открытые массивы индексируются с НУЛЯ, так что у тебя просто будет вылет за пределы массива, вот и все... К тому же у тебя считается не сумма ВСЕХ элементов, а только сумма последнего с константой...

Ну, и в третьих: на кой тут 2 одинаковых (да к тому ж еще и неправильных) функции, если можно обойтись одной? Технология Copy+Paste? В топку такую технологию...

Код

function Sum(L: Integer; arr: Array of Integer; A: Integer): Integer;
var
  I, S: Integer;
begin
  S:= 0;
  for I := 0 to pred(L) do
    S :=  S + (arr[I] + A);
  Sum := S;
end;

function Power(base, pow: integer): longint;
var i, p: longint;
begin
  p := 1;
  for i := 1 to pow do
    p := p * base;
  Power := p;
end;

function CalculateSQRT(A, B, K, L: Integer): Real;
begin
  CalculateSQRT := Sqrt(Abs(Power(A, K) - Power(B, L)));
end;
const
  MAX = 10;
var
  A, B, L, K: Integer;
  I: Integer;
  X, Y: Array [1..MAX] Of Integer;
  F: Real;
begin
  WriteLn('Enter A, B: ');
  ReadLn(A, B);
  WriteLn('Enter K, L (max. ', MAX, '): ');
  ReadLn(K, L);
  if (K > MAX) or (L > MAX) then { <--- Здесь ОБЯЗАНЫ быть скобки }
  begin
    WriteLn('K or/and L is/are too large!');
    exit;
  end;
  WriteLn('Enter X array: ');
  for I := 1 to K do
    Read(X[I]);
  WriteLn('Enter Y array: ');
  for I := 1 to L do
    Read(Y[I]);
  F := CalculateSQRT(A, B, K, L) / Sum(K, X, B) + Sum(L, Y, A);
  WriteLn(F);
  ReadLn;
end.

В принципе можно без напряга добавить еще 2 функции: проверку введенного размера массива и функцию ввода этих массивов (вызывать потом можно как процедуру, Паскаль это позволяет...) Нужно?

THandle

Дата 14.10.2008, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Ученики:

Код


program Project1;

var
  PupilsCount: Integer;
  F: TextFile;
  S: String;
  I: Integer;
  Count: Integer;
  Num: Integer;
begin
  WriteLn('Enter file name: ');
  ReadLn(S);
  Assign(F, S);
  ReWrite(F);
  WriteLn('Enter pupils count: ');
  ReadLn(Count);
  Num := 0;
  repeat
    WriteLn(F, 'Pupil #', Num);
    for I := 1 to 3 do
    begin
      WriteLn('Pupil number ', Num, ' enter ', I, ' author: ');
      ReadLn(S);
      WriteLn(F, S);
    end;
  Inc(Num);
  until Num = Count;
  Close(F);
  ReadLn;
end.

mr.Anderson

Дата 14.10.2008, 18:22 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

volvo877, объясняю.

Насчет копипастинга функций. Я выполнял условие - прочитайте заказ несколькими постами выше. Как можно больше функций.
Насчет открытых массивов и суммы. Посмотрите на код, вы, наверное, сообщение давно уже пишете, я успел давно все исправить. smile

Насчет Math - его в паскале нет разве? Если нет, то с вашего позволения позаимствовал функцию power из вашего кода... smile

Насчет функций еще раз говорю, преподам в универе главное - чтобы было строго так, как они хотят. Сказано больше функций - ну и пожалуйста... А какие они - это неважно, это уже на мое усмотрение. smile

Это сообщение отредактировал(а) mr.Anderson - 14.10.2008, 18:25

--------------------

таточка

Дата 14.10.2008, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.10.2008

Репутация: нет
Всего: нет

Такая вот задачка: найти целую часть от числа А и его арифметический квадратный корень.
Помогите пожалуйста!!! Я совсем ничего на понимаю(((

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »