Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Количество слов в строке Program Z_1; Uses Crt; Var A:string; l,i,n:longint; BEGIN ClrScr; Write('Введите предложение*:');readln(A); l:=length(A)+1;A:=' '; For i:=1 to l do if A=' 'then n:=n+1; Write('Количество слов:',n); https://www.cyberforum.ru/ turbo-pascal/ thread94152.html Turbo Pascal Массив записей о пассажирах
Задание: Сформировать массив, каждый элемент которого имеет следующую структуру пассажир= фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес:integer;и определить:число пассажиров, количество вещей которых превосходит среднее число вещей; пассажира с данным количеством вещей и не более данного веса; вывести информацию о количестве вещей и общем весе каждого рейса....
Turbo Pascal сортировка в матрице! Помогите пожалуйста решить 2 задачки: 1)В матрице вычислить сумму элементов строк, начинающихся с неотрицательного значения. Сформировать из отрицательных элементов матрицы, вектор и упорядочить его элементы по убыванию 2)Дана матрица,отсортировать каждую строку матрицы в порядке возрастания,в ней найти макс элемент расположенный выше главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread94132.html Turbo Pascal Является ли число совершенным? (операторы while и repeat) ввести число N, определить является ли оно совершенным???????????????????? https://www.cyberforum.ru/ turbo-pascal/ thread94120.html
Сколько НЕ цифр в файле Turbo Pascal
Определить сколько НЕ цифр в файле. Друзья, помогите плиз!!! Заранее спасибо
Turbo Pascal Найти сумму ряда Помогите пожалуйста составить блок- схему и написать программу с помощью рекуррентных последовательностей. Даны натуральные числа n, и действительные x, вычислить sinx + sinx(в квадрате)... +sinx (в степени n) Спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread94100.html
Turbo Pascal Строки: сортировка символов по алфавиту Прошу, не оставьте без внимания! Дана строка текста. Известно, что в ней есть один элемент равный ‘*’ и один элемент равный ‘#’. Найти где они находятся, и упорядочить по алфавиту символы, расположенные между ними Спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread94076.html Блок-схема Turbo Pascal
Помогите сделать блок-схему вот на эту прогу: program lab8; Uses crt; Type price=record num:integer; mag:string; tov:string; st:integer; end;
Turbo Pascal Поменять первую и последнюю строки матрицы Дана прямоугольная матрица поменять первую строку с последней(без использования процедур и функций) Помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread93984.html Turbo Pascal В строке заменить все запятые на точки Помогите решить плиз. 1 В строке заменить все запятые «,» на точки «.». Считать, что слова в тексте записаны строчными буквами и отделены друг от друга одним пробелом 2 В заданном предложении указать слово, в котором доля гласных максимальна. Считать, что слова в тексте отделены друг от друга одним пробелом. https://www.cyberforum.ru/ turbo-pascal/ thread93982.html
Приближенное вычисление определенных интегралов. Turbo Pascal
Необходимо написать программу для приближенного вычисления определенных интегралов: метод прямоугольников, метод трапеций и метод парабол (метод Симпсона).Оценить погрешность в каждом методе решения. Получается у нас дан определённый интеграл,который мы выбираем сами на отрезке,он должен быть не сильно лёгким.Мы можем решить его вручную-это и будет точным ответом.Зная интеграл и отрезок мы можем...
Turbo Pascal Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них. https://www.cyberforum.ru/ turbo-pascal/ thread93921.html
Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них.
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 10
14.02.2010, 13:38  [ТС] 0

найти сумму в файле - Turbo Pascal - Ответ 543455

14.02.2010, 13:38. Показов 532. Ответов 3
Метки (Все метки)

Ответ

объясните пожалуйста вот этот момент.
Цитата Сообщение от Puporev Посмотреть сообщение
begin
* * *k:=ord(s[i])-48;
* * *sm:=sm+k;
* * *p:=p*k;
* * end;
и за что переменная к отвечает?

Вернуться к обсуждению:
найти сумму в файле Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2010, 13:38
Готовые ответы и решения:

Найти сумму чётных элементов в файле.
Дан текстовый файл, содержащий целые числа. Найти сумму четных эле6ментов в файле.

Найти в файле сумму элементов с чётными номерами
Дан файл вещественных чисел. Найти сумму его элементов с чётными номерами.

Найти сумму положительных чисел, хранящихся в типизированном файле
Разработать программу для заполнения типизированного файла целыми числами в интервале . Найти сумму...

Найти сумму чисел в файле, то же для каждой строки файла
1.Дан текстовый файл, содержащие целые числа.Найти сумму чисел в файле, то же для каждой строки...

3
14.02.2010, 13:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2010, 13:38
Помогаю со студенческими работами здесь

Дан текстовый файл. Найти сумму чисел в файле и в каждой строке
Собственно проблема именно в нахождении суммы в каждой строке. Допустим я считываю числа функцией...

в файле найти сумму и получить с результата корень
В даном файле который состоит из целых чисел. Найти сумму всех елементов и с полученого резульната...

Найти сумму и произведение элементов K-й строки данной матрицы и разместить в файле результата
Дана матрица размера MxN в файле данных и целое число K (1≤K≤M), введённое с клавиатуры. ...

Дан текстовый файл, содержащий целые числа. Найти сумму четных элементов в файле.
Дан текстовый файл, содержащий целые числа. Найти сумму четных элементов в файле.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru