Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.05.2016, 14:38   #1 (permalink)
Айг
Новичок
 
Регистрация: 15.05.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Подпрограммы

Каждую программу написать с использованием подпрограмм (процедуры и функции)
1. Дано натуральное число. Найти первую и последнюю цифры числа.
2. Определить количество натуральных трехзначных чисел, сумма цифр которых равна заданному числу N.
Айг вне форума   Ответить с цитированием

Старый 15.05.2016, 14:38
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные топики могут просветить решение проблемы

Паскаль, подпрограммы
Подпрограммы

Старый 15.05.2016, 15:16   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,162
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

1.
Код:
uses crt, sysutils;
procedure P_1(n1:integer);
var  s:string;
begin
     s:=IntToStr(n1);
      Writeln('Pervaja cifra = ',s[1]);
       Writeln('Poslednjaja cifra = ',s[Length(s)]);
end;
var  n:integer;
begin
     ClrScr;
      Write('Cislo = ');
       Readln(n);
        Writeln;
     P_1(n);
      ReadKey;
end.
Евгений вне форума   Ответить с цитированием
Старый 15.05.2016, 15:30   #3 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,162
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

2.
Код:
uses Crt;
function F_1(n1:integer):integer;
var  a,b,c,t:integer;
begin
     t:=0;
      for a:=1 to 9 do
       for b:=0 to 9 do
        for c:=0 to 9 do
         if (a+b+c)=n1
          then Inc(t);
      F_1:=t;
end;
var  n:integer;
begin
     ClrScr;
      Write('Cislo = ');
       Readln(n);
        Writeln;
      Writeln('Variantov = ',F_1(n));
     ReadKey;
end.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:56.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.