|
|
| Другие темы раздела | |
|
Turbo Pascal Файл: Записать в файл самую длинную и самую короткую строку из исходного файла.
https://www.cyberforum.ru/ turbo-pascal/ thread1768359.html Условие задачи: создайте текстовый файл с количеством строк с‹=10 . Создайте новый текстовый файл и запишите в него самую длинную и самую короткую строку из исходного файла. Строки в файл вводим сами через окно программы. |
Среднее четных чисел Turbo Pascal Есть код программы,нужно поменять немного ее.У меня выводит минимальное и максимальное значение,как мне сделать чтобы выводило среднее арифметическое четных элементов const nmax=18; type ar=array of integer; procedure init(var a: ar; n: byte); var i: byte; begin |
|
Turbo Pascal Определить на каких местах в массиве находятся отрицательные числа
https://www.cyberforum.ru/ turbo-pascal/ thread1768201.html Задан массив из 14 элементов.определить на каких местах в массиве находятся отрицательные числа. Помогите пожалуйста решить эту задачу. |
Turbo Pascal Множества.В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить ку
https://www.cyberforum.ru/ turbo-pascal/ thread1768199.html Переделать код,чтобы там были множества.Или написать новый код с множествами. program z8; uses Crt; type kul = (картофель,марковь,свекла,кукуруза,рапс,пшеница); const mas : array of string = ('картофель','марковь','свекла','кукуруза','рапс','пшеница'); var a,b,c:set of kul; d:integer; |
|
Множества.Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте Turbo Pascal Переделать код,чтобы там были множества.Или написать новый код с множествами PROGRAM pr1; VAR S:STRING; I,K,L:INTEGER; BEGIN READLN(S); for i:=1 to length(s) do begin if ('a'<=s) and (s<='z') then k:=k+1; |
Turbo Pascal Вывести отсортированную и перевернутую исходную строку
https://www.cyberforum.ru/ turbo-pascal/ thread1768039.html Помогите, пожалуйста. Задание:С помощью процедуры обработки строки с параметром процедурного типа вывести отсортированную и перевернутую исходную строку. Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма. |
|
Turbo Pascal Чему будет равна переменная sum после выполнения фрагмента программы
https://www.cyberforum.ru/ turbo-pascal/ thread1768007.html 2)Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; for i:=5 to 8 do sum:= sum+i; |
Turbo Pascal В массиве А найти сумму положительных элементов среди элементов с четными номерами 1)В массиве А найти сумму положительных элементов среди элементов с четными номерами |
|
Turbo Pascal Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью
https://www.cyberforum.ru/ turbo-pascal/ thread1767909.html Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью e=0,01 , то вычислить сумму этих чисел, в противном случае – их произведение. в Delphi7 |
Turbo Pascal Найти сумму всех из имеющихся в этом тексте чисел-целых, вещественных Дан текст, найти сумму всех из имеющихся в этом тексте чисел. Числа могут быть целыми, вещественными! Решение для целых чисел нашел и разобрался, а с вещественными разобраться не могу uses crt; var a,t:string; i,k,w:integer; sum:real; begin clrscr; writeln('enter text'); readln(t); https://www.cyberforum.ru/ turbo-pascal/ thread1767852.html |
|
Вывести на экран действующие часы в формате чч:мм:сс Turbo Pascal Получить на экране изображение действующих часов: чч:мм:сс. Время начала отсчета вводится с клавиатуры. Формат часов должен быть такой 01:09:01. идей решения нет, единственное думаю что ко времени должна прибавляться постоянно секунда |
Turbo Pascal Двузначное число, образованное парой, в которую входит k-тая цифра
https://www.cyberforum.ru/ turbo-pascal/ thread1767835.html Даны целое число k (1<=k<=180) и последовательность цифр 1011121314…9899, в которой выписаны подряд все двузначные числа. Определить: 1) k-тую цифру этой последовательности и 2) двузначное число, образованное парой, в которую входит k-тая цифра. Первую часть задания решить смог program ind13; uses crt; var k,z:integer; begin clrscr; repeat writeln('enter k'); readln(k); |
|
0 / 0 / 0
Регистрация: 22.06.2016
Сообщений: 5
|
|
| 0 | |
Вычислить значение функции при любом значении x - Turbo Pascal - Ответ 930152722.06.2016, 13:38. Показов 6857. Ответов 9
Метки (Все метки)
Составить программу вычисления функции при любом значении x: Вернуться к обсуждению: Вычислить значение функции при любом значении x Turbo Pascal
0
|
|
| 22.06.2016, 13:38 | |
|
Готовые ответы и решения:
9
Вычислить значение функции при заданном значении аргумента
|
| 22.06.2016, 13:38 | |
| 22.06.2016, 13:38 | |
|
Помогаю со студенческими работами здесь
0
|