Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Алгоритм https://www.cyberforum.ru/ turbo-pascal/ thread763739.html Помогите нарисовать к программам алгоритм! Срочно нужно. Вот ссылки на программы. 1.http://zalil.ru/34173848 2.http://zalil.ru/34173854 3.http://zalil.ru/34173857Код выкладывайте на форум, выделив тегами подсветки	Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов Turbo Pascal Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти и вывести те элементы, которые больше предыдущего, стоящего с ним в одной строке.
Turbo Pascal 7. Составить программу, которая удаляет из списка L за каждым вхождением элемента E один элемент, если таковой имеется и он отличен от E задача не из легких.... https://www.cyberforum.ru/ turbo-pascal/ thread763730.html	Turbo Pascal Получить новую строку, состоящую из символов первой строки, которых нет во второй помогите плиз!!! срочно надо! никак не могу решить!! буду благодарна очень! https://www.cyberforum.ru/ turbo-pascal/ thread763726.html
Напишите кода сортировок Turbo Pascal Мне завтра сдавать сортировки.как работают я понял,но мне нужно наизусть выучить код каждой сортировки. Где не гляну - кругом галимые кода(добавляют процедуры,типы,даже записи,слишком длинные названия переменных и т.д.). Даже в книге с библиотеки в varе 2 массива. Напишите плиз кода троих видов сортировки(by insertion,by selection,by exchange),если в варе: a:array of integer; i,j,q,min(или...	Turbo Pascal Объекты Точка, окружность, круг, сфера, шар. Программа демонстрирует использование этих объектов. https://www.cyberforum.ru/ turbo-pascal/ thread763716.html
Turbo Pascal Составить программу для расчета треугольника при разных комбинациях исходных данных Составить программу для расчета треугольника при разных комбинациях исходных данных. Алгоритм составления программы: 1) Сделать 2 оверлея; - в оверлей ТРАВ поместим блоки процедуры ТRа, ТRb и функцию R; - в оверлей TRCD поместим процедуры TRc, TRd.. Блоки из оверлея TRCD обращаются к блоку TRa в оверлее TRAB. Учтем это. 2) Откроем окно редактора и запишем в него... https://www.cyberforum.ru/ turbo-pascal/ thread763696.html	Turbo Pascal Дан массив размера N. Найти количество участков, на которых его элементы монотонно возрастают К сожалению, вообще не помню паскаль, а контрольную делать надо... Помогите, пожалуйста, с массивом. Последнее задание осталось. Дан массив размера N. Найти количество участков, на которых его элементы монотонно возрастают. Заранее огромное спасибо!Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.
Turbo Pascal Перевод из десятичной системы счисления в 2-ичную https://www.cyberforum.ru/ turbo-pascal/ thread763685.html Реализовать в виде модуля набор подпрограмм для выполне¬ния сле-дующих операций над натуральными числами в 2-ичной системе счисления : а) сложения; б) вычитания; в) перевода из десятичной системы счисления в 2-ичную; з) перевода из 2-ичной системы счисления в десятичную; и) функции проверки правильности записи числа в 2-ичной системе счисления; 2-ичное...	Turbo Pascal Возвести число в степень (основание и показатель степени записаны в 2-ичной системе счисления). Возвести число в степень (основание и показатель степени записаны в 2-ичной системе счисления). Результат выдать в 2-ичной и десятичной системах счисления. https://www.cyberforum.ru/ turbo-pascal/ thread763684.html
Turbo Pascal подскажите что неправильно Умножить длинное число N, заданное в файле input.txt на цифру, вводимую с клавиатуры. program slon; uses crt; var s1:string; a,b:array of integer; d,i,dlin,p:integer; f1,f2:text; begin	Turbo Pascal ) Реализовать в виде модуля набор подпрограмм для выполне¬ния сле-дующих операций над целыми числами: а) умножения; б) деления; https://www.cyberforum.ru/ turbo-pascal/ thread763661.html Реализовать в виде модуля набор подпрограмм для выполне¬ния сле-дующих операций над целыми числами: а) умножения; б) деления; Целое число представить следующим типом: Type Num =Record R: Integer; М: Integer; End; Используя этот модуль, решить следующие задачи 1.1 и 1 2. 1.1 Дан массив А — массив целых чисел. Получить матрицу B, каждая строка которой получается возведением в...

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

17.01.2013, 09:24

Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного - Turbo Pascal - Ответ 4014087

17.01.2013, 09:24. Показов 1675. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Uses Crt;
Var A,B:array[1..10,1..10] of integer;
    i,j,n,m:byte;
Function F(n:integer):integer;
Var s,t:integer;
Begin
    n:=abs(n);
    s:=n mod 10;
    n:=n div 10;
    t:=0;
    While n>0 do
    Begin
      t:=n mod 10;
      n:=n div 10;
    End;
    F:=s+t;
End;
Begin
    ClrScr;Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(401)+100;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        B[i,j]:=F(A[i,j]);
        write(B[i,j]:3);
      End;
      writeln;
    End;
    readln;
End.

Вернуться к обсуждению:
Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.01.2013, 09:24

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

Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

	17.01.2013, 09:24

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.01.2013, 09:24

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

Создать новый массив элементами которого являются суммы делителей каждого числа старого исходного
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив элементами...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Наверх