Помогите с ЗАДАЧЕЙ

[idma]

Сама задача:
Найти остаток от деления целой части значения функции Z=Ln(x^2 + ab) на 7 и в зависимости от величины остатка напечатать сообщения об одном из дней недели пронумеровать их от 0 до 6

Решение:

1|Uses
2|crt;
3|Const
4| l:array[0..6] of string[14]=('Воскресенье','Понедельник','Вторник','Среда',
'Четверг','Пятница','Суббота');
5|Var
6| x,a,b,z:real;
7| i:integer;
8|begin
9|ClrScr;
10|write('x,a,b: ');
11|readln(x,a,b);
12|z:=ln(x*x+a*b);
13|for i:=0 to 6 do
14|if (trunc(z) mod 7)=i then
15| writeln(l[i]);
16|readkey
17|end.

Проблема ПЕРЕВЕСТИ в "Delphi7" !!

[Mebius]

дык это ж паскаль, в делфи7 перевести должно занять минут 5, правда не уверен, и юзесы другие будут)

писать вломак, вообще убери номера строк, создай консольный проект делфи, перенеси туда все, на что поругается посмотри в делфибейсикс как парвильно писать и аналоги ф-ций и в каких юнитах они, добавь юниты и замени ф-ции на аналоги)

[Mra]

Цитата: Сообщение от Mebius дык это ж паскаль, в делфи7 перевести должно занять минут 5, правда не уверен, и юзесы другие будут) писать вломак, вообще убери номера строк, создай консольный проект делфи, перенеси туда все, на что поругается посмотри в делфибейсикс как парвильно писать и аналоги ф-ций и в каких юнитах они, добавь юниты и замени ф-ции на аналоги)

не верь этому Раку лесному а то понаговорит всякого тут очередного бреда Да мебиус с задачей второго курса не справился решил чё нить полегче поискать OKEY

[Mebius]

Цитата: Сообщение от idma Сама задача: Найти остаток от деления целой части значения функции Z=Ln(x^2 + ab) на 7 и в зависимости от величины остатка напечатать сообщения об одном из дней недели пронумеровать их от 0 до 6 Решение: 1|Uses 2|crt; 3|Const 4| l:array[0..6] of string[14]=('Воскресенье','Понедельник','Вторник','Среда', 'Четверг','Пятница','Суббота'); 5|Var 6| x,a,b,z:real; 7| i:integer; 8|begin 9|ClrScr; 10|write('x,a,b: '); 11|readln(x,a,b); 12|z:=ln(x*x+a*b); 13|for i:=0 to 6 do 14|if (trunc(z) mod 7)=i then 15| writeln(l[i]); 16|readkey 17|end. Проблема ПЕРЕВЕСТИ в "Delphi7" !!

program Project1;

{$APPTYPE CONSOLE}

{
1|Uses
2|crt;
3|Const
4| l:array[0..6] of string[14]=('Воскресенье','Понедельник','Вторник','Среда',
'Четверг','Пятница','Суббота');
5|Var
6| x,a,b,z:real;
7| i:integer;
8|begin
9|ClrScr;
10|write('x,a,b: ');
11|readln(x,a,b);
12|z:=ln(x*x+a*b);
13|for i:=0 to 6 do
14|if (trunc(z) mod 7)=i then
15| writeln(l[i]);
16|readkey
17|end.

}

uses
  SysUtils;

Const
l:array[0..6] of string[14]=('Воскресенье','Понедельник','Вторник','Среда',
'Четверг','Пятница','Суббота');

Var
x,a,b,z:real;
i:integer;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
  writeln('x,a,b: ');
  readln(x,a,b);
  z:=ln(x*x+a*b);
  for i:=0 to 6 do
  if (trunc(z) mod 7)=i then
   writeln(l[i]);
   Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

проверь, я переписывал в D2010 тч за крякозабреность не отвечаю) D2010 использует юникод)

ничего не потребовалось, кроме как убрать номера строк))
после прохода прога закроется от любой нажатой символьной клавиши