|
|
| Другие темы раздела | |
|
Turbo Pascal Дано значение параметров k и b, задача.
https://www.cyberforum.ru/ turbo-pascal/ thread454593.html Столкнулся со странной задачей, не могу понять само условие=/ Помогите пожалуйста. Задача: Дано значение параметров k и b прямой y=kx+b и координаты двух точек A(x1,y1) u B(x2,y2). Если отрезок AB пересекает данную прямую, то определить точку пересечения. Иначе найти длину AB. Сделать нужно через условный оператор, но вот как всё это расписать.. |
Turbo Pascal Создать личный модуль Создать личный модуль, содержащий указанную подпрограмму. Написать программу, которая подключает созданный модуль и использует его подпрограммы. Написать программу табулирования сложной функции uses crt; function F(x:real):real; var n:integer; s:real; begin s:=0; if x<=2 then |
|
Turbo Pascal Найти неповторяющийся элемент массива без создания дополнительных массивов
https://www.cyberforum.ru/ turbo-pascal/ thread454591.html Дан массив целых чисел, где все числа, кроме одного, присутствуют два раза. Напиши программу, которая найдет это число за один проход по массиву без создания дополнительных массивов |
Turbo Pascal Задача с шахматной доской На шахматной доске N на N в клетке (x1;y1) стоит шахматный конь. Он хочет попасть в клетку (x2;y2) Напиши программу, выясняющую какое наименьшее количество ходов он должен для этого сделать Помогите решить пожалуйста,у самого не получилось( https://www.cyberforum.ru/ turbo-pascal/ thread454590.html |
|
Создать личный модуль, содержащий указанную подпрограмму. Написать программу, которая подключает созданный модуль и использует его подпрограммы. Turbo Pascal Создать личный модуль, содержащий указанную подпрограмму. Написать программу, которая подключает созданный модуль и использует его подпрограммы. Разделить матрицу на число. Uses Crt; const m=3;n=4; Var a:array of real; i,j:integer; d:real; begin clrscr; |
Turbo Pascal Определить n самых длинных слов. Слова вводятся через пробел.(с использованием функции Length) Помогите пожалуйста написать программу. Вот что у меня получилось))) var i,chislo,n,k:integer; str,stroka,slovo:string; begin n:=StrToInt(Edit2.Text); stroka:=edit1.Text; chislo:=0; str:=''; slovo:=''; stroka:=stroka+' '; https://www.cyberforum.ru/ turbo-pascal/ thread454588.html |
|
Turbo Pascal Создание модуля
https://www.cyberforum.ru/ turbo-pascal/ thread454587.html Создать личный модуль, содержащий указанную подпрограмму. Написать программу, которая подключает созданный модуль и использует его подпрограммы. Вычислить значение функции , где хi – элемент массива х1,…,х20, yk изменяется от а до b с шагом h. uses crt; const n=20; var x:array of real; a,b,h,p,s,y:real; i:integer; begin clrscr; writeln('Massiv X:'); |
Turbo Pascal Обработка файлов пусть текстовый файл t разбит на непустые строки. написать программу для подсчета числа строк , которые состоят из одинвкоыйх литер |
|
Turbo Pascal разобраться с программой - диалогом
https://www.cyberforum.ru/ turbo-pascal/ thread454585.html Помогите пожайлуста разобраться с программой - диалогом!!!! Она не работает!!!((( program laba3; uses crt; const n=20; m=4; var q:array of string; f:text; randomise: real; i,j,v,w,k,r: integer; b:array of boolean; p:array of integer; |
Turbo Pascal Создайте пожалуйста модуль 1. Создать личный модуль, содержащий указанную подпрограмму. Написать программу, которая подключает созданный модуль и использует его подпрограммы.Дана матрица А (mxn). Получить массив В (n), элементы которого представляют собой разности между максимальным элементом матрицы А (mxn) и минимальным элементом каждого столбца Program pr1; Uses Crt; Const m=4;n=3; Var a : Array of Integer; b:... https://www.cyberforum.ru/ turbo-pascal/ thread454582.html |
|
Turbo Pascal Постройте последовательность чисел по рекуррентной формуле аi =i* аi-1 , где а1 = 1, i=2,3,4,5, … составить через рекурсию: Постройте последовательность чисел по рекуррентной формуле аi =i* аi-1 , где а1 = 1, i=2,3,4,5, … |
Turbo Pascal Составить программу удаления последнего отрицательного элемента одномерного массива A(N)
https://www.cyberforum.ru/ turbo-pascal/ thread454575.html Целый день ломаю голову,никак не получается.. Вот я что то пытался сделать (ерунда конечно, но все же...старался:)) var a,b: array of integer; i,n,k,s:integer; begin write('N= '); read(n); for i:=1 to n do read(a); s:=0;k:=0; for i:=1 to n do |
|
-7 / 3 / 0
Регистрация: 28.02.2012
Сообщений: 106
|
|
| 0 | |
Напечать список заводов, у которых экономия электроинергии составила более 5% - Turbo Pascal - Ответ 253642628.02.2012, 19:08. Показов 1163. Ответов 1
Метки (Все метки)
PR1,..PR9 - наименования заводов; L1,..,L9 - лимит электроинергии кВт/ч; R1,..,R9 - израсходованная электроинергия кВт/ч; Напечать список заводов, у которых экономия электроинергии составила более 5%ю Указать завод с наибольшим процентом экономии электроинергии. Помогите плиииииииииззз Вернуться к обсуждению: Напечать список заводов, у которых экономия электроинергии составила более 5% Turbo Pascal
0
|
|
| 28.02.2012, 19:08 | |
|
Готовые ответы и решения:
1
|
| 28.02.2012, 19:08 | |
| 28.02.2012, 19:08 | |
|
Помогаю со студенческими работами здесь
0
Вывести список помещений, в которых более одного телефона Напечатать список сотрудников, стаж работы которых более 25 лет
Вывести фильмы, для которых выручка от показа составила сумму больше 1000 грн |