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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2017, 16:14   #1
Jenee
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 20
Вопрос Помогите решить задачи!

Задача №1 Написать программу калькулятор (работа с 2-мя переменными) с возможностью выбора математического знака( + , - , / , * , A в степени B)
Задача №2 Дан массив А размерностью N. Записать в каждый элемент массива В следующие значения: 1ый элемент - сумма всех нечетных элементов массива А; 2ой элемент - сумма всех четных элементов массива А; 3ий элемент - сумма всех элементов массива А.
Jenee вне форума Ответить с цитированием
Старый 01.03.2017, 05:46   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
uses Math;

var a,b:real;
    c:char;
begin
   Repeat
      Write('a = '); Readln(a);
      Write('znak (+ - * / ^) = '); Readln(c);
      Write('b = '); Readln(b);
      Case c of
      '+': a:=a+b;
      '-': a:=a-b;
      '*': a:=a*b;
      '/': a:=a/b;
      '^': a:=Power(a,b);
      end;
      Writeln('c = ',a:8:5);
      Write('y - yes, n - exit: '); Readln(c);
   Until c='n';
end.
Код:
const n=10;
var a:array[1..n] of integer;
    b:array[1..3] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 3 do
      b[i]:=0;
   For i:=1 to n do
   begin
      If i mod 2=1 then
         b[1]:=b[1]+a[i] else
         b[2]:=b[2]+a[i];
      b[3]:=b[3]+a[i];
   end;
   For i:=1 to 3 do
      Write(b[i]:2,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 01.03.2017, 08:42   #3
Jenee
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 20
По умолчанию

Спасибо!
Jenee вне форума Ответить с цитированием
Старый 01.03.2017, 09:38   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить 2 задачи,... assams Паскаль, Turbo Pascal, PascalABC.NET 0 23.05.2009 20:03
ПОМОГИТЕ РЕШИТЬ 2 ЗАДАЧИ!!!! Death_case Паскаль, Turbo Pascal, PascalABC.NET 0 21.05.2009 13:18
помогите решить 2 задачи Baby33 Паскаль, Turbo Pascal, PascalABC.NET 3 23.01.2009 11:13
Помогите решить задачи! Вилен Помощь студентам 2 10.10.2007 23:12