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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2013, 00:34   #1
gudok2
Пользователь
 
Регистрация: 24.03.2013
Сообщений: 17
По умолчанию Вывести на экран

1) таблицу соответствия между весом в фунтах и ​​весом в килограммах для значений 1, 2, 3 ..., 10 фунтов (1 фунт = 453г)
2) таблицу перевода 5, 10, 15., 120 долларов США в гривне по текущему курсу (значение курса вводится с клавиатуры);
3) таблицу стоимости для 10, 20, 30., 100 штук товара, при условии, что одна штука товара стоит х грн (значение х водится с клавиатуры);
4) таблицу перевода расстояний в дюймах в сантиметры для значений 2, 4, 6., 12 дюймов (1 дюйм = 25.4 мм);
5) кубы всех целых чисел из диапазона от А до В (А В) в обратном порядке;
6) все целые числа из диапазона от А до В (А В), оканчивающиеся на цифру Х;
7) все целые числа из диапазона от А до В (А В), оканчивающиеся на цифру Х или В;
8) все целые числа из диапазона от А до В (А В), оканчивающиеся на любую парную цифру;
9) только положительные целые числа из диапазона от А до В (А В);
10) все целые числа из диапазона от А до В, кратные трем (А В);
11) все четные числа из диапазона от А до В, кратные трем (А В);
12) только отрицательные четные числа из диапазона от А до В (А В);
13) все трехзначные числа, в записи которых все цифры различны;
14) все двузначные числа, в записи которых все цифры различны;
15) все двузначные числа, в которых старшая цифра отличается от младшей не более чем на 1;
16) все трехзначные числа, которые начинаются и заканчиваются на одну и ту же цифру;
17) все трехзначные числа, в которых хотя бы две цифры повторяются.
18) квадраты всех целых чисел из диапазона от А до В (А В) в обратном порядке;
19) все целые числа из диапазона от А до В (А В), начинающиеся цифрой Х;
gudok2 вне форума Ответить с цитированием
Старый 27.03.2013, 06:45   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

1:
Код:
var
i:integer;
begin
for i:=1 to 10 do
writeln(i+'='+i*435);
end;
Кольша вне форума Ответить с цитированием
Старый 27.03.2013, 08:53   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Кольша, если Вы уже пишете программу из двух строк, то, хотя бы, опечаток в ней не делайте!
Цитата:
1 фунт = 453г)
Код:
writeln(i+'='+i*435);
Ну и остальные задачи кто будет писать? гудок2, что ли?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 27.03.2013, 10:30   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Еще как всегда в конце кое-кто забыл точку

И я так понимаю что программа написана на Дельфи? FP ужасно ругается на такой WriteLn
Poma][a вне форума Ответить с цитированием
Старый 27.03.2013, 10:35   #5
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

У меня нет паскаля поэтому я не знаю есть ли там функции типа strtoint и inttostr..вот почему ругается надо перевести в строку..
да описался и точку забыл..
Кольша вне форума Ответить с цитированием
Старый 27.03.2013, 10:45   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
У меня нет паскаля поэтому я не знаю есть ли там функции типа strtoint и inttostr..
никаких функций IntTOStr тут и не нужно!
в любом (подчёркиваю любом) ) компиляторе паскаля процедура
WriteLn допускает вывод самых различных типов.
т.е. Ваш код нужно записать так:
Код:
  writeln(i,' = ',i*453);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 27.03.2013, 13:13   #7
gudok2
Пользователь
 
Регистрация: 24.03.2013
Сообщений: 17
По умолчанию

Благодарю)
gudok2 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести слово на экран в Си dimok5 Помощь студентам 1 02.11.2011 00:14
вывести множество на экран Intersap Помощь студентам 5 01.12.2010 11:09
Вывести на экран сообщение JeyKip Win Api 1 02.04.2010 21:10
Как вывести на экран \n в С++ nicklan Общие вопросы C/C++ 4 30.03.2010 17:02
Вывести строку на экран Dasharnb777 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 13.02.2010 18:59