В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
mamaevseenko
mamaevseenko
06.08.2020 08:07 •  Информатика

1) дана цифра n. надо вывести в степень без pow. y=2^n.
2) дана цифра n. вычислите n!.
3) дана цифра n. вычислите (cos1/sin1)+ (cos1+cos2)/(sin1+sin2)+...+(cos1+...+cos n) / (sin1+...+ sin n)

Показать ответ
Ответ:
Typhoon01
Typhoon01
09.06.2022 21:22
Задание 1:

Program Bid;

Uses crt;

var a,b,max:integer;

begin

   write(' Введите целое число a=');

   readln(a);

   write(' Введите целое число b=');

   readln(b);

   if a>=b then max:=a

   else max:=b;

   writeln('Max=',max);

end.

Задание 2:

Program Text;

var x:integer;

begin

   write('Введите цифру 1 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else write(' П е т я');

end.

Задание 3:

Program Text;

var x:integer;

begin

   write('Введите цифру 1, 2 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else if x=2 then write(' П е т я')

   else write('ERROR');

end.

Задание 4:

Program MaxFrom3;

begin

  writeln('Введите 3 числа: ');

   var (a, b, c) := ReadInteger3;

   write('Наибольшее число: ', Max(a,b,c));

end.


РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
0,0(0 оценок)
Ответ:
mrflux
mrflux
25.11.2022 05:46

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

 


Начертить схему, записать алгоритм и программу на языке программирования паскаль для вычисления табл
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота