АНОНЧИКИ-ПРОГРАММИСТЫ, ВЫРУЧАЙТЕ! Готов заплатить. Нужно решить задачку на Делфи.Вычислить:у - первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x,…))), меньшее по модулю 10^-4Пример решение есть уже на бэсике.http://www.cyberforum.ru/visual-basic/thread1172067.htmlПисать мне в впаше /id365593166
бампую, времени не так много осталось.
бамп
http://www.programmersforum.ru/showthread.php?t=193130Еще пример решения
>>127491609 (OP)> На Делфи Да ты охуел
>>127491778 Кстати вот здесь получше вариант, он проще
>>127491798бамп
>>127491609 (OP)#include<iostream>int main(){ int val = 10; while (val >= 0) { std::cout << "10 - " << val << " = " << 10 - val << std::endl; --val; } return 0;}Не благодари.
>>127491778Вот же почти делфи
>>127492066Но это бэйсик
>>127491609 (OP)https://ideone.com/ItNqwe
>>127491609 (OP)https://ideone.com/6ffBZ4
>>127492066Но это Паскаль
>>127492122Это не делфи же
Спасибо за программки на С, но мне нужен Делфи, анончики :(
>>127492203Тебя ебет?
>>127492393Ебет моего препода
бааамп
>>127492422А кто ебет?
>>127492504Учебная программа
бамп, проклятый Делфи.
Еблан? У тебя есть решение на паскале, в котором тебе, вероятно, менять ничего даже не придется
>>127492953Я вообще не знаю делфи-синтаксиса
>>127491609 (OP)>есть пример>нужно просто переписать на своем языке>маааам я погромист, маааам борщика налей урааПросто съеби.
>>127493066Но я не называю себя программистом
bump
>>127491609 (OP)>программист>делфи
Бамп
Где учишься оп?
>>127493556В мухосранском ВУЗе. Прикладная информатика.
>>127493125А кто ты тогда, что с одной семантики на другую перенести готовое решение не можешь?
>>127493632Тот, кто никогда не имел дело с Делфи.
>>127493711Это уже не в какие ворота! Мне для себя, чисто поржать, возраст у тебя какой?
>>12749384617 лвл пиздюк
>>127491609 (OP)> делфиПиздосмимо обоссываю паскаледаунов с 5 класса
>ДелфиКак там в 290 до н.э.?
>>127493907Ебися сам.
>>127494200С Сократом за руку здоровался, хороший мужик, только пахнет от него бочкой.
Я короче набросал по примеру отсюдаhttp://www.programmersforum.ru/showthread.php?t=193130, но все равно не работаетprocedure TForm1.BitBtn1Click(Sender: TObject);Label 1; var x: Double;begin write ('Введите число: '); readln (x);1:x=sin(x);if abs(x) > 0.0001 then goto 1;writeln (x);readlnend;АААААА СПАСИТЕ
>>127494294>sin(x)У тебя много греха в коде, иди и помолись.
>>127494294Похоже на правду. Программа собирается?
>>127491609 (OP)>10^-4Это, типа, 10 в степени -4?
>>127494687
>>127494821Да
>>127491609 (OP)Если актуал, бампани, отпишу вконтачах
>>127494904бампаю
>>127494904/id365593166
>>127494844> x=sin(x)Ну чё ты такойx:=sin(x)
>>127494844После readln нету ;
>>127495061Спасибо.Правда он все ранво у меня ругается на первую строчкуprocedure TForm1.BitBtn1Click(Sender: TObject);>>127494844
>>127495150У тебя end. с точкой нет в документе.
>>127495150Можешь зафотать весь список ошибок?
>>127495293С точкой тоже ругается на эту же строку
>>127495389Это console application? Если да, то нахуя туда кнопка из винформса?
>>127495520Я сам только что этот делфи скачал.
Попробуй так:Я короче набросал по примеру отсюдаhttp://www.programmersforum.ru/showthread.php?t=193130, но все равно не работаетprogram lalka;var x: Double;beginwrite ('Введите число: ');readln (x);1:x:=sin(x);if abs(x) > 0.0001 then goto 1;writeln (x);readln;end.
>>127495748Немного лишнего скопировал (сижу с телефона)
>>127495748
Спасибо что не бросаете меня, анончики. Здесь все мои друзья.
>>1274960550.001
>>127496055А вот так:program lalka;var x: Double;beginwrite ('Введите число: ');readln (x);while(abs(x)>0.0001) dox:=sin(x);writeln (x);readln;end.
>>127494978program lalka;var x: Double;beginwrite ('Введите число: ');readln (x);repeatx:=sin(x);until abs(x) < 0.0001; writeln (x);readln;end.
>>127496185Вот этот, если честно, больше нравится.>>127496148
>>127496148>>127496185Попробовал ваш код. Теперь ЗАПУСКАЕТСЯ!!11, но ошибка ебучая
>>127496286В этом прелесть делфи.
Короче, раз запускается, то уже хорошо. А ошибка системная вроде. к
>>127496286Попробуй тоже самое на free pascal запусить.
УРАААААААААААААААААААА
>>127496286program lalka;var x: Double;beginwrite ('Введите число: ');readln (x);x := x * Pi / 180;repeatx:=sin(x);until abs(x) < 0.0001;writeln (x);readln;end.
program lalka;{$APPTYPE CONSOLE}uses SysUtils;var x: Double;beginwrite ('Ââåäèòå ÷èñëî: ');readln (x);while(abs(x)>0.0001) dox:=sin(x);writeln (x);readln;end.
>>127496747Теперь хочу тебе сказать, что тебе помог Семён. меня реально зовут Семен
>>127496747Похоже на правду, но что-то пиздец
>>127497116Спасибо, Семен. Чтобы я без вас делал
>>127491609 (OP)Бляя, я даже не понял условия задачи.