Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Найти максимальный и минимальный элемент массива и поменять их местами https://www.cyberforum.ru/ turbo-pascal/ thread280863.html Найти максимальный и минимальный элемент массива Х и поменять их в массиве местами. Элементы массива выписываются по формуле: Xi = (-1)^i * (i^2 - 3i), где i = 1, 2...10.	Множества (на Паскале) Turbo Pascal Помогите пожалуйста: Составить программу подсчета количества цифр в заданной строке и печати их. (Сделайте пожалуйста рядом пояснения, если решите)
Turbo Pascal скажите где ошибка ? https://www.cyberforum.ru/ turbo-pascal/ thread280841.html составит алгоритм который позволяет вывести на экран содержимое текстовой файла Program khan; var F:text; s:string; begin assign (f,'is.txt'); reset (f); while not eof (f) do begin	Turbo Pascal Заменить номер месяца его именем https://www.cyberforum.ru/ turbo-pascal/ thread280829.html Люди, помогите пожалуйста!!!!!!!!!! очень нужно написать прогу.... Во введённой пользователем строке все строки вида .ХХ. (Х – произвольная цифра) замените на название соответствующего месяца в пробелах. Например, исходная строка «сегодня – 10.02.2003», результат – «сегодня 10 февраль 2003».
Типизированные файлы Turbo Pascal Нужна срочная помощь! Организовать файл, содержащий рост каждого из 25 учеников класса. Ни одна пара учеников не имеет одинакового роста. Определить фамилии: а) самого высокого и самого низкого учеников класса; б) двух учеников, являющихся самыми высокими после самого высокого в классе. Заранее спасибо.	Turbo Pascal Сортировка методом обмена(Пузырьковая) Пожалуйста помогите! В произвольно заданном одномерном массиве удалить все нечетные элементы. Сортировать новый массив из оставшихся элементов, при этом сортировать по убыванию данный массив методом обмена. https://www.cyberforum.ru/ turbo-pascal/ thread280806.html
Turbo Pascal Помогите решить задачу на Паскале на тему Файлы. Если решите сделайте рядом пояснения пожалуйста Помогите решить задачу на Паскале на тему Файлы. Если решите сделайте рядом пояснения пожалуйста, а то я ничего не понимаю в этом. 1. Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести получанный файл на печать. 2. Багаж пассажира характеризуется количеством вещей и их общим... https://www.cyberforum.ru/ turbo-pascal/ thread280792.html	Turbo Pascal Вычислить произведение элементов двумерного массива, кратных 3 Всем привет! У меня возникла проблема. Дали задачу: Вычислить произведение элементов двумерного массива, кратных 3. Азы Турбо знаю, а с циклами и массивами вообще завал. Помогите, пожалуйста! До вечера надо сделать...
Turbo Pascal Текстовое окно в графическом режиме https://www.cyberforum.ru/ turbo-pascal/ thread280775.html Требуется, чтобы в графическом режиме в 4-й четверти экрана вводился/выводился текст. То есть всё как простом консольном режиме только со смещением координат. Как реализовать?	Turbo Pascal Подсчитать, сколько слов в строке https://www.cyberforum.ru/ turbo-pascal/ thread280769.html Помогите пожалуйста решить задачу, очень вас прошу. Если кто - нибудь решит сделайте рядом пояснения пожалуйста, а то вообще ниче не понимаю! 1. Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке. 2. Дана строка. Указать те слова, которые содержат хотябы одну букву с.
первые 20 строк пифагоровых чисел Turbo Pascal Найдите 20 первых строк троек пифагоровых чисел, то есть целых k,l,m таких , что k(квадрат)+l(квадрат)=m(квадрат). Тройки с переставленными k и l не выводить	Turbo Pascal Вычислить сумму и произведение элементов,содержащихся как в А ,так и в В. Даны два массива А и В,состоящие из 6 целых чисел.Вычислить сумму и произведение элементов,содержащихся как в А ,так и в В. https://www.cyberforum.ru/ turbo-pascal/ thread280756.html

SuPeR XaKer

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

27.04.2011, 20:58

Обработка таблиц, вложенные циклы. - Turbo Pascal - Ответ 1593850

27.04.2011, 20:58. Показов 1557. Ответов 13

Метки (Все метки)

Ответ

Можно так,а можно и по другому:

Pascal

function zapsum:real;
var
 i,j:integer;
 a:array[1..5,1..5] of real;
 sum:real;
begin
sum:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    a[i,j]:=exp(sqrt(abs(i-j)));
    write(a[i,j]:1:4,'  ');
    if i<j then sum:=sum+a[i,j]; //åñëè âêëþ÷àÿ ãëàâíóþ òî i<=j
   end;
  writeln
 end;
zapsum:=sum;
end;
 
begin
writeln('SUM:=',zapsum);
readln
end.

Вернуться к обсуждению:
Обработка таблиц, вложенные циклы. Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.04.2011, 20:58

Готовые ответы и решения:

Обработка матриц. Вложенные циклы.
Помогите в решении: 1. Матрица А состоит из 7 строк и 6 столбцов. Сформировать массив В, k-тый...

Вложенные циклы
Вложенные циклы. Какой результат (там их 2 вродь как) и блок-схему, пожалуйста)) ...

Вложенные циклы
Построить зависимость \frac{\sin x}{x}=\sum_{n=0}^{\infty}\frac{(-1)^nx^{2n}}{(2n+1)!} ...

Вложенные циклы
Напечатать числа следующим образом 3 0 23 90 223 890 2223 7890 22223

	27.04.2011, 20:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.04.2011, 20:58

Помогаю со студенческими работами здесь

Вложенные циклы. Подсчитать.
Дано натуральное число n. Подсчитать: Спасибо.

Вложенные циклы и итерации
Помогите пожалуйста с задачками 1)Вычислить 2)Даны натуральное число n, целые числа...

Вложенные циклы >.< За благодарностью не постою!
Товарищи, помогите... У меня завтра небольшая защита (о которой мне жизнерадостно сообщили только...

Двумерные массивы. Вложенные циклы
Дана действительная матрица размера m х n. Определить числа b1,…,bm равные произведениям элементов...

Наверх