Задачи в Бейсике

[Ленуся]

Уважаемые и любимые мною мозги-программисты!
Прошу и умоляю вас помочь мне выполнить несколько задачек по программированию. Верю, что такие добрые и отзывчивые люди как вы не оставят в беде несчастную девушку и не дадут ей провалить зачет. Задачки в прикрепленном файле, а для самых ленивых, но добрых напишу здесь одну из них:
Даны положительные числа а, х, е в последовательности y{0}, y{1}, y{2} …, образованной по правилу y{0}=а, y{i+1}=1/2(y{i}+x/y{i}) (i=0,1,2,3…) найти значения первого члена y{n}, для которого выполнено |y{n}^2-y{n-1}^2|<e (числа и буквы в фигурных скобках написаны нижним индексом)
Зарание благодарю.
Люблю, целую. Преданная вам Лена.

[KORT]

 
' Вычисление числа Пи методом Монте-Карло
CLS : RANDOMIZE TIMER
LOCATE 3, 20
PRINT " Вычисление числа Пи методом Монте-Карло"
SCREEN 9
' Рис.ание квадрата со стороной 200
LINE (100, 100)-(300, 300), 14, В
' Рис.ание вписанной в квадрат окружности радиусом
100CIRCLE (200, 200), 100, 0, , , 1.01
' Задание общего количества песчинок N
' и обнуление счетчика попавших в круг KN=5000: K=0
FOR 1=1 ТО N
X=INT(RND(1)*200)+100
Y=INT(RND(1)*200)+100 ' Вычисление расстояния от выпавшей точки до центра
S =SQR((X-200)Л2+(У-200)"2) ' Проверка условия, попала ли точка в круг 1 и изображение ее красным или белым цветами IF S<=100 THEN K=K+1: PSET (X, Y) , 4 ELSE PSET (X, Y) , 15 ' Вывод на экран счетчиков песчинок LOCATE 5, 20: PRINT "Выпала песчинка №"; I
LOCATE 6, 20: PRINT "В круг уже попало"; К; "песчинок" NEXT I
1 Вычисление и вывод на экран значения числа Пи LOCATE 23, 15: PRINT "Число ПИ для"; N; "точек ="; 4*K/N END

[Ленуся]

KORT, спасибо тебе большое. Ты мне очень помог.Один вопрос: S =SQR((X-200)Л2+(У-200)"2) Что должно быть вместо Л.Целую тебя крепко. Может и остальные посмотришь, будет время.

[KORT]

S =SQR((X-200)Л2+(У-200)"2)

Пардон....
Конечно же дрбная черта (/), вместо Л и ", у меня что-то так получилось...описка..
Если честно этот байсик я очень плохо знаю...лучше конечно паскаль или дельфи

[Ленуся]

Вообще-то нам задания давали для паскаля, но сказали, что можно и в бейсике. Просто я паскаль совсем не знаю, а бейсик чуть-чуть. Так что если можешь сделать другие в паскале, то очень тебе благодарна буду.

[KORT]

Тебе срочно???

[Ленуся]

В принципе не срочно. Но где-то в октябре надо бы. Так что глянь когда время будет.

[KORT]

Посмотреть-то, я посмотрю, но обещать выполнить не буду, т.к. курсач висит, я только почти им и занят...

[Ванек]

Всем привет.Ребят посовеуйте географу,которого заставляют учить программмирование задачи:
1. Дана матрица размерности MxN. Подсчитать количество положительных, отрицательных и нулевых элементов матрицы, а также суммы положительных, отрицательных и нулевых элементов.
2.
Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).
ПС:пожалйуйссста!

[KORT]

Сообщение от Ванек

Всем привет.Ребят посовеуйте географу,которого заставляют учить программмирование задачи:
1. Дана матрица размерности MxN. Подсчитать количество положительных, отрицательных и нулевых элементов матрицы, а также суммы положительных, отрицательных и нулевых элементов.
2.
Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).
ПС:пожалйуйссста!

А новую тему создать не судьба????