Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi]Цикл с параметрами(For), таблицы квадратов и таблица степеней 
V
    Опции темы
Xardas
Дата 8.12.2007, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 7.12.2007

Репутация: нет
Всего: нет
Вот задачки задали по инф помогите плз.
Написать программу, которая выводит таблицу квадратов первых 
пяти целых положительных нечетных чисел. Ниже представлен рекомендуемый вид экрана во время работы программы. 


Таблица квадратов нечетных чисел 
-------------------------- 
Число Квадрат 
-------------------------- 
1 1 
3 9 
5 25 
7 49 
9 81 
-------------------------- 
и такую:
Написать программу, которая выводит таблицу степеней двойки (от нулевой до десятой). Ниже представлен рекомендуемый вид экрана во время работы программы. 

Таблица степеней двойки 
0 1 
1 2 
2 4 
3 8 
4 16 
5 32 
6 64 
7 128 
8 256 
9 512 
10 1024 
PM MAIL   Вверх
orthrus
Дата 8.12.2007, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: 5
Всего: 16
Задача 1:

Код

VAR
   i,j:integer;
BEGIN
     writeln('+-------+--------+');
     writeln('|Chislo | Kvadrat|');
     writeln('+-------+--------+');
     j:=1;
     for i:=1 to 5 do
         begin
           writeln('|   ',j,'   |   ',sqr(j):2,'   |');
           inc(j,2);
         end;
     writeln('+-------+--------+');
     readln;
END.


Задача 2:

Код

VAR
   i,j:integer;
BEGIN
     writeln('+--------+-----------+');
     writeln('| Chislo |   Stepen  |');
     writeln('+--------+-----------+');
     j:=1;
     for i:=0 to 10 do
         begin
           writeln('|   ',i:2,'   |   ',j:5,'   |');
           j := j SHL 1;
         end;
     writeln('+--------+-----------+');
     readln;
END.



--------------------
У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image
PM MAIL ICQ   Вверх
Xardas
Дата 8.12.2007, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 7.12.2007

Репутация: нет
Всего: нет
это вродь pascal!У нас в turboDelphi нет параметров writeln!  я прикрепил рисунок! как надо! для button1 надо формулу ввести. а в label1  она должна вывести ответ! но все равно спасибо за отклик!! 

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  ___.JPG 3,15 Kb
PM MAIL   Вверх
Данкинг
Дата 8.12.2007, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Xardas @ 8.12.2007,  18:13)
У нас в turboDelphi нет параметров writeln!  

Вах, да неужели? smile 
Чтобы в Label вывести, просто задай переменную и выводи в неё, а не на экран (как в примере).


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Xardas
Дата 8.12.2007, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 7.12.2007

Репутация: нет
Всего: нет
Как? ну не програмер я!  smile  мы примерно так делали там переменные сначала потом begin потом че-то for..to..do
и че то еще и вывод на экран label1.caption:= и там всякое пр...    smile  
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0406 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.