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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.10.2013, 22:49   #1
Игорь_кпи
 
Регистрация: 12.10.2013
Сообщений: 6
По умолчанию Помогите создать програму Паскаль!!!

Вывести на экран таблицу sіn(x)·sіn(y) при переменной y от 0° до 90° с шагом 15° (вывести по горизонтали) и переменной x от 0° до 90° с шагом 15° (вывести по вертикали). (через оператор for)
Игорь_кпи вне форума
Старый 12.10.2013, 22:55   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

Какой момент вызывает трудности? Какие у Вас уже есть наработки?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума
Старый 12.10.2013, 23:03   #3
Игорь_кпи
 
Регистрация: 12.10.2013
Сообщений: 6
По умолчанию

PascalABC.
Игорь_кпи вне форума
Старый 13.10.2013, 15:59   #4
ТиГР
 
Аватар для ТиГР
 
Регистрация: 24.09.2013
Сообщений: 3
По умолчанию

я не знаю, посмотри в гугле
ТиГР вне форума
Старый 13.10.2013, 16:55   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
x:=0;
for i:=0 to 360 do begin
 for j:=0 to 360 do begin
  write(sіn(x)·sіn(y));
  inc(x,15); 
  if x>=90 then break;
 end; writeln;
 inc(y,15); 
 if y>=90 then break;
end;
Подходит идея?
I'm learning to live...
Stilet вне форума
Старый 02.11.2013, 19:17   #6
ТиГР
 
Аватар для ТиГР
 
Регистрация: 24.09.2013
Сообщений: 3
По умолчанию

Ага, всем спасибо)
ТиГР вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
турбо паскаль составье програму hawk197 Помощь студентам 13 25.01.2012 18:39
Написать програму на Паскаль. Andrey770 Помощь студентам 0 11.03.2011 20:03
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите создать програму для вычисления определенного интеграла Методом Симпсона Сергей Человек Помощь студентам 11 06.07.2009 16:15