|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2011, 20:51 | #1 |
Новичок
Джуниор
Регистрация: 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. |
22.12.2011, 20:56 | #2 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Код:
Все тривиальное просто
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. | воваава | Помощь студентам | 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 |