Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

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)-выбор ответа мышью-кнопки: далее, результат). Не получается с мышью. Помогите...


Что именно не получается? Драйвер для мыши не работает, или не знаешь как вообще подключить мышь?

Уточните проблематику вопроса.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

Форум работает на скрипте © Ikonboard.com