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

Задачи на 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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



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

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