|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.10.2009, 22:59 | #1 |
Регистрация: 31.10.2009
Сообщений: 4
|
Ввести натуральное число N . Вывести треугольник, содержащий N строк вида
Ввести натуральное число N . Вывести треугольник, содержащий N
строк вида (например, для N = 5): ++++5 +++4 ++3 +2 1 пОМОГИТЕ НАПИСАТЬ НА ЯЗЫКЕ пАСКАЛЬ А ЕЩЕ ПОДСКАЖИТЕ КАК МОЖНО В ЗАДАЧЕ УЧЕСТЬ SIN(0)/0=1 Заранее СПАСИБО Последний раз редактировалось Arei15; 31.10.2009 в 23:01. |
31.10.2009, 23:22 | #2 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Код:
pushl $0x18E3DF6B
call ICQ |
31.10.2009, 23:41 | #3 |
Регистрация: 31.10.2009
Сообщений: 4
|
Народ можете проверить
Вот задание
Трижды протабулировать функцию, используя три различных цикла f(x) =sin(k*pi/n)/(k*pi/n) на интервале k ∈ [-6ж3 ] k Δ =1 , учтя при этом, что sin(0)/0=1 1 способ program LOL; var f,z,pi:real; N,k0,x,k,q:integer; begin cls; writeLn(' N'); readLn(N); k0:=-6; pi:=3.14; for K:=0 to N do begin K:=k0+1; f:=sin(K*pi/N)/K*pi/N; write('f(',f:8:2,') =',f:8:2); readln(f); end; end. 2 способ program cicleRepeatTabul; var f,x,N,k0,k:real; begin cls; writeLn('Введите N'); readLn(N); k0:=-6; k:=k0+1; repeat f:=sin(k*pi/N)/k*pi/N; write('f(',x:8:2,') =',f:8:2); readln(f); until k>3; end. 3 способ program cicleWhileTabul; var f,k0,k,N,pi:real; begin cls; writeLn('Введите N'); readLn(N); k0:=-6; k:=k0+1; pi:=3.14; while k <= 3 do begin f:= sin(k*pi/N)/k*pi/N; write('f(',f:8:2,') =',f:8:2); readln(f); end; end. Вот ЗараНЕЕ Спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дано натуральное число | RAVEN23 | Помощь студентам | 5 | 05.06.2009 15:23 |
Натуральное число n. Матрица | lexx007 | Помощь студентам | 1 | 20.12.2008 22:35 |
Вывести на экран матрицу, в которой наибольшее число нулевых строк | Александр НИК-В | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 05.12.2008 20:49 |
Ввести число N и определить делится ли оно без остатка на число M (VBA) | Ivanich | Microsoft Office Excel | 7 | 24.04.2008 19:43 |
ВВести десятичное число N и вывести таблицу чисел от 1 до N и их двоичный эквивалент | XpideX | Общие вопросы C/C++ | 5 | 04.01.2008 19:30 |