|
|
| Другие темы раздела | |
| Turbo Pascal базы данных здравствуйте! :) сделайте, пожалуйста, задачку: Разработать БД для хранения информации о рейсах в аэропорту (название авиакомпании, пункт назначения, номер рейса, тип самолета). заранее огромное спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread291582.html |
Turbo Pascal оператор Case Здравствуйте. Помогите решить задачу. Составить программу,которая по введенному значению 1,2,3 вычисляет: 1)Площадь параллелограмма 2)Периметр параллелограмма 3)Выход Спасибо! |
|
Turbo Pascal *ошибка 26 не соответствие типов*
https://www.cyberforum.ru/ turbo-pascal/ thread291559.html uses crt; var f1,f2:text; i,str1,str2:char; j:byte; mi,ms1,ms2:string; begin while not eof(f1) or not eof(f2) do begin readln(f1,str1); |
Turbo Pascal По заданым точкам нарисовать график многочлена логранжа..и...
https://www.cyberforum.ru/ turbo-pascal/ thread291545.html 1) Написать функцию вычисления интерполяционного многочлена Лагранжа 5-ой по заданным точкам. L(x) n Xi Yi 1 -0,99 -0,28 2 -0,43 -0,47 3 0,75 -0,08 4 0,85 0,26 5 -0,26 0,33 6 -0,99 0,26 7 -0,3 0,44 |
|
ошибка в программе(найдите пжлст) Turbo Pascal Const k=4; Type Значение=(шесть,семь,восемь,девять,десять,валет,дама,король,туз); Набор= set of Значение; Масть=(бубны,черви,пики,трефы); Игрок= array of Набор; Компания= array of Игрок; Var Comp: Компания; Требуется ввести данные. Определить,какая масть встречается у всех игроков. |
Turbo Pascal Файловые структуры данных. Текстовые файлы
https://www.cyberforum.ru/ turbo-pascal/ thread291529.html Скопировать из одного файла в другой последовательность слов, которая начинается и заканчивается заданными цепочками, кроме слов-палиндромов. В каждой строке второго файла должно быть размещено не более N слов. На экран вывести количество скопированных слов и полученных строк во втором файле. ПОМОГИТЕ КТО СМОЖЕТ!!! |
| Turbo Pascal Сформировать файл имеющий следующую структуру. Сформировать запись, имеющую следующую структуру type студент= record фамилия: string; номергр: string; оценка1: integer; оценка2: integer; оценка3: integer; end; и определить: o фамилию того, кто лучше всех сдал экзамены; o средний балл по данному предмету; https://www.cyberforum.ru/ turbo-pascal/ thread291528.html |
Вычислить сумму элементов массива от первого до второго отрицательного элемента Turbo Pascal Дан одномерный массив, состоящий из N числа элементов. Необходимо: 1. найти количество четных элементов, стоящих на нечетных местах; 2. вычислить сумму элементов от первого до второго отрицательного элемента; 3. найти максимальный по модулю элемент; 4. создать массив, состоящий только из нечетных элементов исходного; 5. упорядочить массив по возрастанию. помогите плиз)))) |
|
Turbo Pascal Вывести список и количество выданных книг читателю Х
https://www.cyberforum.ru/ turbo-pascal/ thread291497.html Нужно создать программу а в ней модуль по поиску. То есть Создать файл, содержащий сведения о картотеке библиотеки. Структура записи: шифр книги, автор, название, год издания, местонахождение (номер стеллажа), кому выдана. Написать программу, которая выдает следующую информацию: 1. - Список книг автора Х; 2. - Местонахождение книги автора Х названия Х; 3. - Список и количество выданных... |
Turbo Pascal оператор CASE Даны три положительных числа a, b, c . Пусть k - количество десятков в числе R=a2+b2+c2 . Используя оператор CASE , составить программу для вычисления y. ____{(a + b)^4 / c + tg a/b , при k = 1 или 7 y=__{|e^a + b^2| , при k = 2 или 3 или 4 ____{ sin (a - п/2) - 3 , при k = 5 ____{(a - п) / 25b - a/c , в остальных случаях https://www.cyberforum.ru/ turbo-pascal/ thread291472.html |
|
Даны два действительных числа. Если оба они положительны, но минимальное из них не превышает 1, то заменить их нулями. Если минимальное число больше 1 Turbo Pascal Даны два действительных числа. Если оба они положительны, но минимальное из них не превышает 1, то заменить их нулями. Если минимальное число больше 1, но не превышает 10, то заменить только минимальное нулем, в противном случае поменять их местами. |
Turbo Pascal Дано целое четырехзначное число. Определить количество цифр этого равных 3. Дано целое четырехзначное число. Определить количество цифр этого равных 3. https://www.cyberforum.ru/ turbo-pascal/ thread291456.html |
|
1 / 1 / 0
Регистрация: 08.05.2011
Сообщений: 73
|
|
| 09.05.2011, 13:16 [ТС] | 0 |
Процедура должна увеличивать x и y на единицу - Turbo Pascal - Ответ 162981509.05.2011, 13:16. Показов 1608. Ответов 6
Метки (Все метки)
Ответ 
Сообщение от Просто лис
Вернуться к обсуждению: Процедура должна увеличивать x и y на единицу Turbo Pascal
0
|
|
| 09.05.2011, 13:16 | |
|
Готовые ответы и решения:
6
Процедура должна увеличивать x и y на единицу, результат увеличения x и y переслать параметрам a и b основной программы
Как увеличивать массив на одну единицу? Увеличивать счетчик на единицу каждый день |
| 09.05.2011, 13:16 | |
| 09.05.2011, 13:16 | |
|
Помогаю со студенческими работами здесь
0
Если число содержит единицу, то увеличивать счетчик на 1 Как программно увеличивать индекс типа Н000001 на единицу При добавлении новой строки в datagridview увеличивать значение столбца на единицу |