|
Решения задач на Паскале!Срочно нужно!
|
|
Я задание в тот раз не правильно понял)
var
i,a:integer;
begin
read(a);
for i:=1 to 9 do
writeln(i,'*',a,' = ',i*a);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
A(x1,y1) B(x2,y2) C(x3,y3)
Площадь
$$S=\frac{1}{2}\left(\left(x1-x3 \right)*\left(y2-y3 \right)-\left(x2-x3 \right)*\left(y1-y3 \right) \right)$$
Периметр
$$AB=\sqrt{\left(x1-x2 \right)^{2}+\left(y1-y2 \right)^{2}}$$
$$BC=\sqrt{\left(x2-x3 \right)^{2}+\left(y2-y3 \right)^{2}}$$
$$AC=\sqrt{\left(x1-x3 \right)^{2}+\left(y1-y3 \right)^{2}}$$
$$P=AB+BC+AC$$
|
|
|
|
|
В заданном векторе необходимо определить количество элементов, значения которых больше сред. арифметического всех его элементов.
|
|
|
|
Здравствуйте!
прямо говорю, я чайник...
Помогите решить задачку! пожалуйста )))
вычислить площадь треугольника по трем сторонам (a, b, c). Ввод данных о сторонах представить в виде ввода информации с клавиатуры. При вводе неверной информации (величины меньше нуля, использование текстовой строки) вывести на экран информацию об ошибке. После вычисления величины площади треугольника, вывести ее на экран.
я вот что понаписала:
program lab;
var
a,b,c,p,s:real
begin
writeln('ввести сторону a='); readln(a);
writeln('ввести сторону b='); readln(b);
writeln('ввести сторону c='); readln©;
If (a>0)and(b>0)and(c>0)
then begin
p:=(a+b+c)/2
s:=sqrt(p*(p-a)*(p-b)*(p-c))
writeln('площадь:') end
else
writeln('неверные исходные данные');
readln;
end.
Помогите, ПОЖАЛУЙСТА, исправить ошибки )))
или все переписать...
|
|
|
|
Quote (trachten) ставьте алгоритм и напишите программу, которая определяет сдачу с 50 рублей,
Ну вот какого черта дублировать везде сообщения? Тут в принципе один отвечальшик - Berestovskiy, ну я еще иногда заглядываю, и уж поверьте ваши сообщения увидят, другое дело, что иногда не хочется в сотый раз повторять решение одной и той же задачи.
Требуйте от преподавателей оригинальных задач - так у вас больше шансов получить ответ :)
|
|
|
|
Quote (Fireleo) иногда не хочется в сотый раз повторять решение одной и той же задачи.
если задают вопрос,значит ответа они не нашли, иначе смысла бы не было спрашивать, логично?
|
|
|
|
Quote (margo) если задают вопрос,значит ответа они не нашли, иначе смысла бы не было спрашивать, логично?
Если не знаешь о чём речь - зачем вообще пишешь?
Он писал о тех людях, которые одну и ту-же задачу пихают везде, во все темы, иные посты и т.д...
Смысл какой?
Я отвечаю им на первом ихнем сообщении, а далее пишу, что ранее ответил, но бесит ведь..))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Он писал о тех людях, которые одну и ту-же задачу пихают везде, во все темы, иные посты и т.д...
Смысл какой?
это перестраховка) всякое ж бывает
|
|
|
|
ня :3
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
=(^_^)=
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите получить допуск к экзамену, Прошу!!! Заранее спасибо.
1)Написать программу, которая из общего массива сведений
об учащихся школы создаст массивы учащихся по каждой
параллели и выдаст их на печать. В массиве сведений об учащихся
школы расположены фамилии, год рождения, класс (1 по 11).
2)type seria = file of integer;
var s:seria;
Описать функцию max(s), вычисляющую значение
максимального элемента файла s. Программа: введите файл s
(последний элемент равен 0) и напечатайте значение функции
max(s).
|
|
|
|
|
|
Хватит флудить)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Лучше вк пиши или в подписку вступай приматовскую, там пофлудим вместе))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Мне кажется люди сюда заходят специально за помощью, а не выслушивать Ваши речи, типа, что за задачи, мне это надоело, одно и тоже... Если бы все были такие умные как Вы, читателей бы у Вас сократилось... Резкие выражение не в достоинство Вам... Зачем Вы создаете форум? для решения "необычных задач"? такие задачки умники и без Вас решат )))
|
|
|
|
:D
Я пожалуй отдельную тему создам, где будете высказывать своё мнение, окда?)
Просто ты не в моей шкуре и не знаешь как это, а умную фразочку вытулить каждый может типа твоей)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Динамическая структура(паскаль)
Сформировать динамически из заданной
последовательности стек и выполнить его обработку в соответствии с
вариантом задания.
10. Дана последовательность символов, вводимых с клавиатуры до
появления точки. Измените направления ссылок в стеке на
противоположное.
|
|
|
|
Пример ввода-вывода давай, не понял что нужно сделать)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
