Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 20:51   #1
Idma
Новичок
Джуниор
 
Регистрация: 22.12.2011
Сообщений: 1
Вопрос Перевести задачу из формата "Паскаль" в "Delphi7"

Сама задача:
Найти остаток от деления целой части значения функции 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" !!
Честно даже не лезет в голову как оформить форму... новичок в Delphi7.

Последний раз редактировалось Idma; 22.12.2011 в 20:55.
Idma вне форума Ответить с цитированием
Старый 22.12.2011, 20:56   #2
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Код:
uses
  SysUtils;
Const
  l:array[0..6] of string[14]=('Воскресенье','Понедельник','Втор ник','Среда','Четверг','Пятница','Суббота');
Var
  x,a,b,z:real;
 i:integer;
begin
  write('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
end.
Это в Delphi 2009, но я думаю разницы нет.
Все тривиальное просто
whatever вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. воваава Помощь студентам 3 01.12.2011 12:50
на вход подаются сведения об учениках и оценках. Найти тех, кто сдал на "4" и "5" ( Паскаль ) weech Помощь студентам 1 18.11.2011 13:57
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04