Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 16.04.2018
Сообщений: 1
1

Переделайте программу под фукции

16.04.2018, 10:35. Просмотров 405. Ответов 1
Метки нет (Все метки)

В этой программе сделайте пожалуйста ввод ,сложение ,вывод через функцию
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var
  s1, s2, s3, c: string;
  n1, n2, n3, l1, l2, l3, i, k: integer;
 
begin
  readln(s1);
  readln(s2);
  l1 := length(s1);
  l2 := length(s2);
  if l1 > l2 then begin
    s3 := s1;l3 := l1;
    s1 := s2;l1 := l2;
    s2 := s3;l2 := l3
  end;
  s3 := '';n3 := 0;
  for i := l1 downto 1 do 
  begin
    val(s1[i], n1, k);
    val(s2[l2], n2, k);l2 := l2 - 1;
    str((n1 + n2 + n3) mod 10, c);
    s3 := c + s3;
    if n1 + n2 + n3 > 9 then n3 := 1
    else n3 := 0;
  end;
  while n3 = 1 do 
  begin
    if l2 <> 0 then begin
      val(s2[l2], n2, k );
      l2 := l2 - 1;
      str((n2 + n3) mod 10, c);
      s3 := c + s3;
      if n2 + n3 < 10 then n3 := 0;
    end
    else begin
      s3 := '1' + s3;
      n3 := 0;
    end;
  end;
  if l2 <> 0 then
    s3 := copy(s2, 1, l2) + s3;
  writeln(s3);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2018, 10:35
Ответы с готовыми решениями:

Пожалуйста, переделайте под Турбо Паскаль
function DecToBin(n:byte):string; const c:array of char= ('0','1'); var d:0..1; begin...

переделайте программу в подпрограмный
Помогите плиз переделайте программу из линейной в подпрограмный с использованием процедур и...

Переделайте пожалуйста данную программу
Переделайте пожалуйста данную программу из линейной в подпрограмный с использованием процедур и...

Переделайте эту программу через функцию
type letters = array of integer; var a: letters; i, max: char; begin randomize; ...

1
4141 / 1956 / 2052
Регистрация: 10.12.2014
Сообщений: 7,525
16.04.2018, 11:08 2
Pascal
1
2
3
4
function s(a,b:String):=Biginteger.Parse(a)+BigInteger.Parse(b);
begin
  WriteLn(s(ReadLnString,ReadLnString));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2018, 11:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделайте эту программу через процедуру
type letters = array of integer; var a: letters; i: char; begin randomize; for...

Переделайте программу из TurboPascal в PascalABC.Net
Помогите пожалуйста!Переделайте программу из TurboPascal в PascalABC.Net Вот программа uses...

Переделайте пожалуйста готовую программу с С++ на язык Паскаль!
помогите с реализацией алгоритма сжатия Хаффмана. // ConsoleApplication6.cpp: определяет точку...

Uses Graph:график фукции
подскижите задание было такое вывести график функции y(t)=2cos(4t)+5e^ -2t (5е в степени -2t),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.