Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 19:10   #1
(Настя)
Новичок
Джуниор
 
Регистрация: 22.12.2011
Сообщений: 2
По умолчанию программы в паскале

ребятки, пожалуйста, помогите решить задачки

1.задача-по составлению программы с помощью циклического алгоритма.
Дано случайное трехзначное число, если оно состоит из одинаковых цифр- вывести "да". в обратном случае- "нет".
2.задача-по составлению программы с помощью одномерного массива.
Дан массив действительных чисел n. Вычислить сумму квадратов положительных произведение четных элементов данного массива, если таких элементов нет, то выдать сообщение. {Число n-задается с клавиатуры}
3.Задача-по составлению программы с помощью двумерного массива.
Дана квадратная матрица А(N,N). Составить программу замены положительных элементов, расположенных ниже главной диагонали, на P. Значение P задать самостоятельно. Исходную и скорректированную матрицы напечатать.
(Настя) вне форума Ответить с цитированием
Старый 22.12.2011, 19:12   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
ребятки, пожалуйста, помогите решить задачки
C удовольствием по 1$ за задачку
Контакты:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 24.12.2011, 15:16   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Сообщение от (Настя) Посмотреть сообщение
ребятки, пожалуйста, помогите решить задачки

1.задача-по составлению программы с помощью циклического алгоритма.
Дано случайное трехзначное число, если оно состоит из одинаковых цифр- вывести "да". в обратном случае- "нет".
Код:
program Proverka;
var
          n  : Integer;
 
begin
          ReadLn (a);
          if ((a div 10) mod 10 = a div 100) and (a mod 10 =  a div 100) then
                      WriteLn ('DA')
          else
                      WriteLn ('NET')
end.
Если можно использовать строку то еще проще.

Цитата:
Сообщение от (Настя) Посмотреть сообщение
ребятки, пожалуйста, помогите решить задачки
2.задача-по составлению программы с помощью одномерного массива.
Дан массив действительных чисел n. Вычислить сумму квадратов положительных произведение четных элементов данного массива, если таких элементов нет, то выдать сообщение. {Число n-задается с клавиатуры}
Код:
program Arr;

var
          a : array [1..1000] of Real;
          n, i : Integer;
          s : Real;

begin
          ReadLn (n);
          for i := 1 to n do
                ReadLn (a[i]);
          
          s := 0;
          for i := 1 to n do
                if a[i] > 0 then
                        s := s + sqr (a[i]);
          
          WriteLn (s : 1 :  3)
end.
двухмерные не проходили, так что давай сама

Последний раз редактировалось Вадим Мошев; 17.04.2015 в 17:45.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программы в паскале goodspeed! Паскаль, Turbo Pascal, PascalABC.NET 2 15.12.2011 00:08
Программы на Паскале. Xeon332 Фриланс 9 18.01.2011 19:07
Программы в Паскале!!! Hichcog Помощь студентам 1 21.11.2010 16:48
Программы в Паскале Лилия Гадиева Помощь студентам 0 25.04.2010 15:18
программы на паскале! Викдон Фриланс 1 02.01.2009 21:44