Сама задача:
Найти остаток от деления целой части значения функции 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" !!
дык это ж паскаль, в делфи7 перевести должно занять минут 5, правда не уверен, и юзесы другие будут)
писать вломак, вообще убери номера строк, создай консольный проект делфи, перенеси туда все, на что поругается посмотри в делфибейсикс как парвильно писать и аналоги ф-ций и в каких юнитах они, добавь юниты и замени ф-ции на аналоги)
дык это ж паскаль, в делфи7 перевести должно занять минут 5, правда не уверен, и юзесы другие будут)
писать вломак, вообще убери номера строк, создай консольный проект делфи, перенеси туда все, на что поругается посмотри в делфибейсикс как парвильно писать и аналоги ф-ций и в каких юнитах они, добавь юниты и замени ф-ции на аналоги)
не верь этому Раку лесному а то понаговорит всякого тут очередного бреда Да мебиус с задачей второго курса не справился решил чё нить полегче поискать OKEY
Сама задача:
Найти остаток от деления целой части значения функции 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 использует юникод)
ничего не потребовалось, кроме как убрать номера строк))
после прохода прога закроется от любой нажатой символьной клавиши