|
|
| Другие темы раздела | |
| Turbo Pascal Определить количество дней, прошедших между двумя данными датами Определить количество дней, прошедших между двумя данными датами. https://www.cyberforum.ru/ turbo-pascal/ thread1220732.html |
Turbo Pascal Запись в файл путем извлечения данных из других файлов Короче, есть два текстовых файла, в одном из которых набор данных типа real, а в другом - типа string. Из каждого файла вытаскиваю по очереди данные и записываю их в третий файл. Вот код. Program ZAPIS; var x1,y1,z1,x2,y2,z2,x3,y3,z3:real; f,f1,f2:text; s:string; begin |
|
Turbo Pascal График функций в одной системе координат
https://www.cyberforum.ru/ turbo-pascal/ thread1220675.html Написать программу, вычерчивающую графики заданных функций в одной системе координат. Функции \arcsin {e}^{-x} и \arccos {10}^{-x} Начальное значение х=2 Конечное значение х=5 |
Turbo Pascal График функций в одной системе координат
https://www.cyberforum.ru/ turbo-pascal/ thread1220667.html Написать программу, вычерчивающую графики заданных функций в одной системе координат. Функции \sqrt{\ln x} и \sqrt{\ln x} Начальное значение x=1 Конечное значение x=5 |
|
Turbo Pascal После определения вида треугольника, записать соответствующую фразу в файл Всё та же прога про треугольник (заранее извиняюсь). Возник еще вопрос: после определения вида треугольника или определения, что он не существует, записать соответствующую фразу в файл. Текстовый файл при запуске программы создается, но он пустой. Куда необходимо переместить блок программы, в котором происходит запись в файл или что другое необходимо сделать? (этот файл в отдельной процедуре... |
Turbo Pascal Условие существования треугольника Необходимо проверить существование треугольника. Для проверки правильности работы изначально задала точки, лежащие на одной прямой, чтобы треугольник не существовал. Вот часть кода, где есть все условия if (d1+d2<d3) or (d2+d3<d1) or (d1+d3<d2) then writeln ('треугольник не существует!') else if (d1=d2) and (d2=d3) then writeln ('треугольник равносторонний'); https://www.cyberforum.ru/ turbo-pascal/ thread1220548.html |
|
Turbo Pascal Оформление вывода результата работы программы
https://www.cyberforum.ru/ turbo-pascal/ thread1220511.html Переменные d1, d2, d3 - типа real, которые мне необходимо округлить до тысячных или, хотя бы, до сотых, чтобы в последствии делать по ним некоторые вычисления. Вот как оформлен вывод: writeln (d1:0:4,' ',d2:0:4,' ',d3:0:4); При применении вот такой штуки writeln (<число>, Round(<до какой точности округлять>); |
Найти, сколько дней нужно для полного просмотра всех мультфильмов Turbo Pascal На N видеокассетах записаны несколько мультфильмов. про каждую кассету известно: количество мультфильмов, название и продолжительность каждого мультфильма(не более 1 часа). Найти: а) сколько дней нужно для полного просмотра всех мультфильмов, если в день смотреть не более двух часов; б) составить программу просмотра, учитывая, что в день можно смотреть не более трех часов, мультфильм должен... |
|
Turbo Pascal Сформировать файл FM.DAT, содержащий информацию о деталях на складе (не менее 10 штук)
https://www.cyberforum.ru/ turbo-pascal/ thread1220463.html Составить программу, решающую следующие задачи: 1. Сформировать файл FM. DAT, содержащий информацию о деталях на складе (не менее 10 штук). 2. Вычислить общую стоимость деталей. 3. Выяснить, какие детали имеются в наибольшем количестве, какие - в наименьшем. 4. Вывести информацию о наличии на складе деталей данного типа и их количестве; 5. Внести изменения в файл после выдачи со склада... |
Turbo Pascal В файл g поместить произведение компонентов файла f и вывести на экран Записать в файл последовательного доступа N действительных чисел. В файл g поместить произведение компонентов файла f и вывести на экран. Var f,g:text; i,n:byte; m,pr:real; ch:char; Begin write('N: ');readln(n); Assign(f,'in.txt');Rewrite(f); For i:=1 to n do Begin https://www.cyberforum.ru/ turbo-pascal/ thread1220460.html |
|
Написать игру "100 спичек" Turbo Pascal Игра «100 спичек». Из кучки, первоначально содержащей 100 спичек, двое играющих поочередно берут по нескольку спичек: не менее одной и не более 10. Проигрывает взявший последнюю спичку. Помогите пожалуйста!) |
Turbo Pascal Написать программу, находящую 8^N для произвольно большого N Написать программу, находящую 8^N для произвольно большого N, заданного в файле input.txt https://www.cyberforum.ru/ turbo-pascal/ thread1220256.html |
|
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
|
|
| 06.07.2014, 20:01 | 0 |
Объехать все города и вернуться в тот город, с которого началось путешествие - Turbo Pascal - Ответ 640194306.07.2014, 20:01. Показов 2221. Ответов 15
Метки (Все метки)
Ответ 
Сообщение от Наста
Вернуться к обсуждению: Объехать все города и вернуться в тот город, с которого началось путешествие Turbo Pascal
0
|
|
| 06.07.2014, 20:01 | |
|
Готовые ответы и решения:
15
Объехать все города и вернуться в тот город, с которого выехали Найти маршрут перелета из города А в город В, не содержащий города С Нахождение пути из города А в город Х Что будет с материализмом, когда физики обнаружат тот самый мельчайший неделимый элемент из которого состоит всё? |
| 06.07.2014, 20:01 | |
| 06.07.2014, 20:01 | |
|
Помогаю со студенческими работами здесь
0
Можно ли передать как нибудь интернет из города в город?
Speedtest показывает маленькую скорость и не тот город, в котором нахожусь на пути из города A в город B длиной в S километров вероятность остаться без колеса на отрезке в 1 км Определить, есть ли город, куда можно попасть из любого другого города, проезжая не более 100 км |
