SSSergey
Новичок
|
    
Цитата: Dale написал 23 окт. 2009 2:12
Цитата: Так, только until false стремно выглядит... Я бы так сделал:
....
writeln('нажмите любую клавишу, чтобы продолжить');
writeln('нажмите esc для выхода');
until readkey=#27;
...
чтоб ctrl break не щелкать каждый раз, но это мелочи
Спасибо так действительно по прикольней
А вот с 3 задачей наверно немного не так,
вот как надо но я не чего не понял
Code Sample:
PROGRAM summa;
USES CRT;
var S,sum,SZ,SB,RSB,RS,V : Real;
BEGIN
sum := 0;
S := 0.5;
while S<=1.6 do
begin
sum := sum+S;
writeln (sum:1:1,' . ',S:1:1);
S := S+0.1;
end;
SZ := sum/10-0.5*0.1;
writeln ('сумма всех чисел= ',sum:1:1,' среднее значение= ',SZ:1:2);
S := 0.5;
SB := S;
RSB := ABS(SZ-SB);
S := S+0.1;
while S<=1.5 do
begin
RS := ABS(SZ-S);
IF RSB>RS THEN
begin
RSB := RS;
SB := S;
end;
S := S+0.1;
end;
V := 16.4*0.8/(EXP SB..);
writeln(SZ,SB,V);
readln;
END.
надо вот что-то типа такого было V я так понял это SPD
RSB
SB ________ SZ
| |
--|--|--|--|--|--|--|--
0.5 |_____| 1.5
RS
это я со своей тетради списал
(Сообщение отредактировал KMA 29 окт. 2009 14:28)
|
Всего сообщений: 27 | Присоединился: октябрь 2009 | Отправлено: 25 окт. 2009 13:45 | IP
|
|
VGM
Новичок
|
Хотелось бы написать тестирующую программу на PascalABC с участием мышки (вопрос - варианты ответов(4-5)-выбор ответа мышью-кнопки: далее, результат). Не получается с мышью. Помогите...
|
Всего сообщений: 1 | Присоединился: октябрь 2009 | Отправлено: 25 окт. 2009 20:23 | IP
|
|
SleepLess
Новичок
|
 
Помогите решить две задачи:
1.Напечатать все симитричные слова.
2Дана последовотельность X1,X2,...,Xn.Найти номера i , для
каких каждый из символов Xi и X( i +1) совпадает с буквой K.
Если такой пары символов нет, тогда ответом должно быть НЕТ.
|
Всего сообщений: 4 | Присоединился: октябрь 2009 | Отправлено: 27 окт. 2009 20:21 | IP
|
|
KMA 
Долгожитель
|
Хотелось бы написать тестирующую программу на PascalABC с участием мышки (вопрос - варианты ответов(4-5)-выбор ответа мышью-кнопки: далее, результат). Не получается с мышью. Помогите...
Что именно не получается? Драйвер для мыши не работает, или не знаешь как вообще подключить мышь?
Уточните проблематику вопроса.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 29 окт. 2009 14:26 | IP
|
|
santi
Новичок
|
Помогите пожалуйста решить задачу!!!
Дан текстовый файл заполненный числами среди них найти максимальное и вывести в новый файл.
заранее спс.
|
Всего сообщений: 1 | Присоединился: октябрь 2009 | Отправлено: 29 окт. 2009 21:32 | IP
|
|
Lusa
Новичок
|
помогите пожалуйста)))
мне надо написать программу для факториала от факториала(n!!)
я понимаю как это решается математически,но никак не могу написать программу в паскале....
|
Всего сообщений: 2 | Присоединился: октябрь 2009 | Отправлено: 30 окт. 2009 19:29 | IP
|
|
DivByZero
Новичок
|
Lusa, ну это уж совсем элементарно...
Если n четное начинаешь с 2 и домножаешь каждый раз на число большее предыдушего на 2. Пока оно не станет больше n.
С нечетным таже песня, только с 1 прыгаешь.
(Сообщение отредактировал DivByZero 31 окт. 2009 20:37)
|
Всего сообщений: 6 | Присоединился: октябрь 2009 | Отправлено: 31 окт. 2009 20:37 | IP
|
|
DivByZero
Новичок
|
А теперь я хочу попросить о небольшой помощи... Вообщем задача дана такая:
Пусть дан массив А1, ..., Аn. Требуется переставить А1, ..., Аn так, чтобы в начале в массиве шла группа элементов, больших того элемента, который в исходном массиве располагался на первом месте, затем сам этот элемент, потом - группа элементов, меньших или равных ему.
И теперь гадкие дополнительные условия этой задачи - количество сравнений и перемещений не должно превосходить (n-1).
Вообщем-то, если бы не эти условия, задача решилась... Вначале находил место для того самого первого элемента по правилу указанному в задаче. А потом меньшие элементы слева (от пермещенного перовго) менял с большими, что справа.
Но... К сожалению, для того чтобы найти нужное место для первого элемента требуется много сравнений и по дополнительному условию задача не проходит...
Поэтому прошу подсказать более верный алгоритм выполнения задачи. Вторую ночь уже не сплю)))
Премного благодарен буду...
(Сообщение отредактировал DivByZero 31 окт. 2009 23:54)
|
Всего сообщений: 6 | Присоединился: октябрь 2009 | Отправлено: 31 окт. 2009 23:53 | IP
|
|
Kurvochka
Новичок
|
Привет еще раз! Мне еще задали пару задач и я сразу к вам!
Задача1. Если значения функции у1=х*х*х+8х и у2=2*х*х+8 при одному и томже значению аргумента имеют одинаковые знаки, то показать текст "знаки одинаковые". в противоположном случае написать значение аргумента и функции.
Задача 2. решить систему У= (знак системы)
е в степени -(х+3) + arctg(x) при условии х>0 и второе уравнение этой системы 2х/Ln(х*х+3) при условии х< или равно 0.
(Сообщение отредактировал Kurvochka 2 нояб. 2009 9:28)
|
Всего сообщений: 7 | Присоединился: октябрь 2009 | Отправлено: 2 нояб. 2009 8:27 | IP
|
|
Lusa
Новичок
|
Lusa, ну это уж совсем элементарно...
спасибо.......
|
Всего сообщений: 2 | Присоединился: октябрь 2009 | Отправлено: 2 нояб. 2009 15:50 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
