Друзья а ваот еще одна программа. Она вычисляет квадратный корень.
а случайно не так надо писать??
Var a :longint, z :longint;
Ну ты сам подумай. Это все равно что написать слово яблоко тире яблоко.
А во вторых попробуй напиши эту программу как у меня написанно и проверь ее у себя. А потом напиши как ты сам решил то есть (Var a :longint, z :longint;) и увидеш что получиться.
Met, Алексей так спросил, т.к. в vb6 нужно отдельно объявлять тип для каждой переменной.
Зачем задовать глупые вопросы?. Но я думаю что Алексей и сам может ответить или ты унас адвокат. Но а во вторых прежде чем задовать вопрос надо сначало его проверить. Веть есть же программа , так возьми и проверь ее у себя , а потом задавай вопросы.
Met, не умничай! я задал такой вопрос так как в vb6 так из за variant и уменя нету Паскаля и я немогу нечего проверить.
Я немогу понять так тяжко нормально ответить на заданный вопрос по статье.
Так если у тебя нет Паскаля, то зачем задавать вопросы которые не относяться к программе, на которой ты программируеш. Я не умничяю а просто не люблю вопросов не по существу.Если у тебя стоит Паскаль и ты на нем программируеш и у человека что то не получается то он спрашивает у форумчан и ответить ему на его проблему я считаю нет ни чего зазорного, но когда человек спрашивает просто так, во первых он отнимает у меня время а во вторых зачем спрашивать если ты на этом языке не программируеш. Я же не спрашиваю у программистов на С++ ка и что можно сделать, потому что я на этом языке не программирую. И не отвлекаю людей вопросами которые ко мне не имеют ни какого отношения. Просто прежде чем спросить надо подумать а ЗАЧЕМ ЭТО НУЖНО.
даааа ужж вижуу у тебя дохера времени. а ответить на вопрос займёт минуту. а то что ты тут завёл целую без смысленную поэму это твои проблемы.
ЕСЛИ В ПАДЛУ ОТВЕТИТЬ ТО НЕОТВЕЧАЙ И ПРОМОЛЧИ.
я имею право спрашивать в любом месте.
Свои права ты можеш отстайвать в суде, а вопрос надо задавать по существу.И если ты задал мне вопрос то это не мои проблемы а твои проблемы. И я тебе советую остыть и не выражаться. А если тебе не нравиться как я тебе ответил то можеш не вступать в палемику . Будь умнее.
я бы вообще молчал если бы не это . Met [11.06.2012 11:21]
Par quel toi la buse.
Я сейчас в Pascal ABC и на этот код овечает,"Ошибка: неизвестный индентификатор Sgrt
Добрый день. Сегодня я хочу поделиться программой, написанной на языке программирования Паскаль, а именно исходник программы, которая находит корни квадратного уравнения.
Итак, задача звучит следующим образом:
"Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов".
Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет.
Исходный код программы нахождения корней:
Скачать исходник: koren2.pas
BEGIN
write(‘Введите значение коэффициента а, b,c ‘);
readln(a,b,c);
D:=b*b-4*a*c;
if D 0 then
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
writeln(‘x1=’,x1);
writeln(‘x2=’,x2);
end;
readln
End.
Загрузка...
