Перейти к содержанию

Задачи на Pascal/Delphi (РЕШЕНИЕ)


Рекомендуемые сообщения

  • 3 года спустя...

uses crt;

type rational=record

ch,zn:longint;

end;

var a:array [1..100] of rational;

f:text;

i,j,n:integer;

x:rational;

begin

clrscr;

assign(f, 'ratio.txt');

reset(f);

n:=0;

while not(eof(f)) do

begin

inc(n);

readln(f, a[n].ch, a[n].zn);

end;

close(f);

for i:=1 to n-1 do

for j:=i+1 to n do

if a.ch/a.zn>a[j].ch/a[j].zn then

begin

x:=a;

a:=a[j];

a[j]:=x

end;

for i:=1 to n do

write(a.ch,'/',a.zn,' ');

readln

end.

Ссылка на комментарий
  • 3 недели спустя...
  • 3 недели спустя...

Помогите советом по delphi 7)
Как определить что закоончился календарный месяц???
Необходимо обновлять данные в таблице ежемесячно, как сделать так что бы по истечению месяца данные в таблице обновлялись???  

Ссылка на комментарий

Помогите советом по delphi 7)

Как определить что закоончился календарный месяц???

Необходимо обновлять данные в таблице ежемесячно, как сделать так что бы по истечению месяца данные в таблице обновлялись???

cron или планировщик задач для windows.

можете своего демона написать.

А если ваша подразумевается, что ваша программа всегда запущена, то поставьте в нее таймер, который будет проверять дату.

Ссылка на комментарий

cron или планировщик задач для windows.

можете своего демона написать.

А если ваша подразумевается, что ваша программа всегда запущена, то поставьте в нее таймер, который будет проверять дату.

она будет запущена не всегда, вот в чём и проблема. нужно средствами delphi реализовать (

даже в голову ничего не лезет

Ссылка на комментарий
  • 9 месяцев спустя...

Привет, кто может составить таблицу трассировки в Паскале? или проверить на правильность.

Изменено пользователем KAt
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...