dilbaryan76
?>

Сослать программу на паскале.поиск чисел в массиве. program example; {программа заполняет массив rand случайными числами в диапазоне от 0 до 50, вводит число х, и вычисляет, сколько раз х входит в массив rand} var rand: array[1..20] of integer; i, x, numberx : integer, begin {установка датчика случайных чисел} randomize; {заполнение массива случайными числами и вывод их на экран} writeln(‘массив случайных чисел: ’) for i: =1 to 10 do begin rand[i]: =random(50); write(rand[i]: 4) end; writeln; {ввод х} write(‘введите х: ’)); readln(x); {подсчет числа вхождений х в массив} numberx: =0; for i: =1 to 10 do if rand(i)=x then numberx: =numberx+1; {анализ и вывод результата} if numberx=0 thenwriteln(‘в массиве нет числа’, x) else writeln(‘число’, x, ’в массиве присутствует’, numberx, ’раза’) end.

Информатика

Ответы

sotrudnik3
Var rand: array[1..20] of integer; i, x, numberx : integer; begin  writeln('массив случайных чисел'); for i: =1 to 10 do begin  rand[i]: =random(50); write(rand[i]: 4); end; writeln; write('введите х: ');   readln(x); numberx: =0; for i: =1 to 20 do if (rand[i]=x) then numberx: =numberx+1; if numberx=0  then writeln('в массиве нет числа ',x) else writeln('число',x,'в массиве присутствует ',numberx,' раза') end.
pavelvsk2023

Объяснение:

using System;

namespace ConsoleApp4

{

   class Program

   {

       static void Main(string[] args)

       {

           try

           {

               double FirstNumber = double.Parse(Console.ReadLine()); // Считываем первое число

               string Action = Console.ReadLine(); // Считываем действие

               double SecondNumber = double.Parse(Console.ReadLine()); // Считываем второе число

               double Result = 0; // Переменная под результат

               switch(Action) // В зависимости от символа действия делаем вычисление

               {

                   case "+": { Result = FirstNumber + SecondNumber; break; } // Сложение

                   case "-": { Result = FirstNumber - SecondNumber; break; } // Вычитание

                   case "*": { Result = FirstNumber * SecondNumber; break; } // Умножение

                   case "/": { Result = FirstNumber / SecondNumber; break; } // Деление

                   default: { throw new Exception("Действие не найдено"); }  // Если ввели что-то не то

               }

               Console.WriteLine(Result.ToString()); // Выводим результат

           }

           catch(Exception e)

           {

               Console.WriteLine("Упс! Что-то пошло не так.\n" + e);// Выводим реакцию на ошибку

           }

           Console.ReadLine();

       }

   }

}

Иванова

QPython+SL4A:

import android

import time

import sys, select, os #for loop exit

#Initiate android-module

droid = android.Android()

#notify me

droid.makeToast("fetching GPS data")

print("start gps-sensor...")

droid.startLocating()

while True:

   #exit loop hook

   if sys.stdin in select.select([sys.stdin], [], [], 0)[0]:

       line = input()

       print("exit endless loop...")

       break

   #wait for location-event

   event = droid.eventWaitFor('location',10000).result

   if event['name'] == "location":

       try:

           #try to get gps location data

           timestamp = repr(event['data']['gps']['time'])

           longitude = repr(event['data']['gps']['longitude'])

           latitude = repr(event['data']['gps']['latitude'])

           altitude = repr(event['data']['gps']['altitude'])

           speed = repr(event['data']['gps']['speed'])

           accuracy = repr(event['data']['gps']['accuracy'])

           loctype = "gps"

       except KeyError:

           #if no gps data, get the network location instead (inaccurate)

           timestamp = repr(event['data']['network']['time'])

           longitude = repr(event['data']['network']['longitude'])

           latitude = repr(event['data']['network']['latitude'])

           altitude = repr(event['data']['network']['altitude'])

           speed = repr(event['data']['network']['speed'])

           accuracy = repr(event['data']['network']['accuracy'])

           loctype = "net"

       data = loctype + ";" + timestamp + ";" + longitude + ";" + latitude + ";" + altitude + ";" + speed + ";" + accuracy

   print(data) #logging

   time.sleep(5) #wait for 5 seconds

print("stop gps-sensor...")

droid.stopLocating()

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сослать программу на паскале.поиск чисел в массиве. program example; {программа заполняет массив rand случайными числами в диапазоне от 0 до 50, вводит число х, и вычисляет, сколько раз х входит в массив rand} var rand: array[1..20] of integer; i, x, numberx : integer, begin {установка датчика случайных чисел} randomize; {заполнение массива случайными числами и вывод их на экран} writeln(‘массив случайных чисел: ’) for i: =1 to 10 do begin rand[i]: =random(50); write(rand[i]: 4) end; writeln; {ввод х} write(‘введите х: ’)); readln(x); {подсчет числа вхождений х в массив} numberx: =0; for i: =1 to 10 do if rand(i)=x then numberx: =numberx+1; {анализ и вывод результата} if numberx=0 thenwriteln(‘в массиве нет числа’, x) else writeln(‘число’, x, ’в массиве присутствует’, numberx, ’раза’) end.
Ваше имя (никнейм)*
Email*
Комментарий*