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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.03.2015, 21:00   #11
lightblue
Новичок
Джуниор
 
Регистрация: 09.03.2015
Сообщений: 10
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Код:
Program Star;
Var I,*:integer    // надо ставить ;  , и что такое * ? 
Begin
Writeln ('*');  // выведется одна звезда
End;           // зачем это. Убрать
Begin       // тоже убрать
For 1 to 10 do  // читайте, как правильно работать с for
Begin     // убрать
WRITELN ('*');     //  выведется 10 звезд в столбик, потому что ..LN 
End.
Осталось 1) и 3)
Боже!!! Спасибо Вам!!!
lightblue вне форума Ответить с цитированием
Старый 09.03.2015, 21:03   #12
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Цитата:
Сообщение от lightblue Посмотреть сообщение
Честно говоря, не на чем. ...
Если это не последнее ваше задание по Паскаль, то непременно скачайте и установие компилятор. Попроще, типа FPC + Geany (чтоб не в командной строке работать, а с удобствами).

Или хотите, чтобы мы работали компиляторами ?
type_Oleg вне форума Ответить с цитированием
Старый 09.03.2015, 21:06   #13
lightblue
Новичок
Джуниор
 
Регистрация: 09.03.2015
Сообщений: 10
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Код:
Program Star;
Var I,*:integer    // надо ставить ;  , и что такое * ? 
Begin
Writeln ('*');  // выведется одна звезда
End;           // зачем это. Убрать
Begin       // тоже убрать
For 1 to 10 do  // читайте, как правильно работать с for
Begin     // убрать
WRITELN ('*');     //  выведется 10 звезд в столбик, потому что ..LN 
End.
Осталось 1) и 3)
То есть вот так?(для столбика)
Program:Star;
Var I :integer;
Begin
For I:=1 to 10 Do
Begin WRITELN ( ' * ' )
End.
lightblue вне форума Ответить с цитированием
Старый 09.03.2015, 21:19   #14
lightblue
Новичок
Джуниор
 
Регистрация: 09.03.2015
Сообщений: 10
По умолчанию

Последний вопрос. Помогите ,пожалуйста!
Я сделал схему к 1) , но чем она должна отличаться от 2)? И как на блок-схема 3) показать вывод чисел? Пожалуйста, помогите!
lightblue вне форума Ответить с цитированием
Старый 09.03.2015, 21:28   #15
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

Цитата:
То есть вот так?(для столбика)
Program:Star;
Var I :integer;
Begin
For I:=1 to 10 Do
Begin WRITELN ( ' * ' )
End.
Верно.

Цитата:
Я сделал схему к 1) , но чем она должна отличаться от 2)
На блок-схеме ничем
Цитата:
3) показать вывод чисел? Пожалуйста, помогите!
пппп.png
Вадим Мошев вне форума Ответить с цитированием
Старый 09.03.2015, 21:32   #16
lightblue
Новичок
Джуниор
 
Регистрация: 09.03.2015
Сообщений: 10
По умолчанию

Спасибо большое
lightblue вне форума Ответить с цитированием
Старый 09.03.2015, 22:34   #17
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
скачайте и установие компилятор. Попроще, типа FPC + Geany (чтоб не в командной строке работать, а с удобствами).
ЕРЕТИК!!! На костёр!

Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нарисовать блок-схемы vibraxo Помощь студентам 2 30.05.2013 05:51
Нарисовать блок-схемы по исходникам KrotikDJ Помощь студентам 0 29.04.2012 16:21
нужно нарисовать 3 блок-схемы.. ilnar21 Помощь студентам 2 15.06.2010 14:24
Нарисовать блок-схемы pickls Помощь студентам 0 20.05.2010 18:14
помогите нарисовать блок-схемы alien-kurgan Помощь студентам 7 18.11.2009 17:43