Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 43 44 ]
Модераторы: paradise, KMA
  

nikitanike


Новичок


Цитата: VF написал 1 июня 2010 14:33

Цитата: nikitanike написал 1 июня 2010 5:09


Условный оператор if и деление (div если деление с остатком и просто / если деление в вещественных числах). Элементарная программа...

ДА знаю что легко просто я не шарю в этом деле а мне надо по информатике чтобы зачёт получить можете расписать всё подробнее пожалуйста))

Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 1 июня 2010 16:51 | IP
toropina


Новичок

помогите написать программы,я в этом полный ноль((:1.Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
2.Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20x40 ) посредством функции, проверяющей симметричность числа.

спасибо заранее)

Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 2 июня 2010 22:01 | IP
Wake up


Новичок

2009 г. урожай ячменя составил 20 ц с га. В среднем каждые 2 года за счет применения новой технологии урожай увеличивается на 5 %. Определить через сколько лет урожайность достигнет 25 ц с га.

Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:30 | IP
Wake up


Новичок

Z= 5 в степени х  - 2х, при 1<=х<=0
5 в степени х + 2 в сиепени х, при 0<=х<=2
0, в др. случ.
(это система)


Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:39 | IP
Wake up


Новичок

y= d+sinx/[a в квадрате - b в квадрате]     - это все под корнем квадратным!
[] - модуль.

Помогите, пожалуйста! Очень надо!

Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:44 | IP
Umbrella



Новичок

Пожалуйста помогите написать прогу по одномерным массивам.
Задание:Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.

Всего сообщений: 1 | Присоединился: июнь 2010 | Отправлено: 6 июня 2010 19:07 | IP
Dale



Участник

 Wake up  
sqrt(d+sin(x)/abs(sqr(a)-sqr(b)))

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 июня 2010 9:36 | IP
Ruslan992


Новичок

здравствуйте помогите пожалуйста решить 2 задачи на паскале . всего их четыре  в заданиях по практике 2 решил осталось ещё 2 .не получается вот задачи .
Задача №1: Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: букв или цифр

вот есть задача на подобие  ((((((Организовать текстовый файл f,  состоящий из N строк.  Организовать замену символов в файле.  "Старый" символ и "новый" символ запрашиваются и вводятся с клавиатуры.))))))
program pr_20;
var  g,t:text; i,c,z:char;
begin
writeln('введите символ, который хотите заменить');read(z);
writeln('введите символ, на который будет заменен символ');readln(i);
assign(t,'1.txt'); reset(t);
assign ( g,'выходной.txt'); rewrite(g);
while not eof(t) do begin
while  not eoln(t) do begin
read(t,c);
if c=z then    write(g,i) else write(g,c);
end;
writeln(g);
readln(t);
end; close(t); close(g);
end.

Задача №2 :Написать программу с подпрограммой , которая будет выводить на экран монитора таблицу квадратов последовательно возростающих чисел (1, 2, 3, ...10).

заранее спасибо

Всего сообщений: 1 | Присоединился: июнь 2010 | Отправлено: 7 июня 2010 10:19 | IP
OKAMI



Новичок

Помогите, пожалуйста, вылюсь, завтра сдавать...! Дана квадратная матрица размеров NхN. Нужно прога для вывода элементов рамок матрицы по часовой стрелке в отдельный вектор.
Пример:
1 2 3 4
5 6 7 8
9 0 1 2
3 5 6 7
1 вектор : 1 2 3 4 8 2 7 6 5 3 9 5
2 вектор : 6 7 1 0

Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 10 июня 2010 15:01 | IP
toropina


Новичок

помогите найти ошибки:задание:1.Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
программа:Program Ex1;
uses crt;
const
    k = 50;
    m = 20;
    n = k + m;
var
  x : array[1..k] of real;
  y : array[1..m] of real;
  z : array[1..n] of real;
  i,j: integer;
  d: real;
  maxi, mini : integer;
 
begin
    d:=1.2;

    for i:=1 to k do
    begin
         x:=i+d;
    end;

    //Вывод первого массива X.
    writeln('Массив X: ');
    for i:=1 to k do
    begin
         write(x, ' ');
    end;
   

    for i:=m downto 1 do
    begin
         y:=i-d;
    end;
   
    //Вывод второго массива Y.
    writeln;
    writeln('Массив Y: ');
    for i:=m downto 1 do
    begin
         write(y, ' ');
    end;
   
   
    //Заполнение третьего массива Z. Сначала элементами X.
    for i:=1 to k do
    begin
         z:=x;
    end;

    //Заполнение третьего массива Z. Теперь элементами Y.
    for i:=n downto k+1 do
    begin
         z:=y[i-50];
    end;
   
    //Сортировка массива по неубыванию.
    mini := 1;
    for i:=1 to n-1 do
    begin
         for j:= i+1 to n do if (z[j] < z[mini]) then
              mini := j;
              d := z;
              z := z[mini];
              z[mini]:= d;
    end;
   
    writeln;
    writeln('Массив Z: ');
    for i:=1 to k+m do
    begin
         write(z, ' ');
    end;

   
end.
,2-ая,задание:2.Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40 ) посредством функции, проверяющей симметричность числа.
прогарамма:Program CheckForSimmetry;
uses crt;

const
    w = 20;
    h = 40;
var
  a: array[1..w,1..h] of real;
  i,j: integer;
  totalSimm: boolean;
 
  function checkSimmetry(x: real): boolean;
  var
     temp,str: string;
     len: integer;
     dk,k,n: integer;
     isSimmetryc: boolean;
  begin
       isSimmetryc := true;
       str:=FloatToStr(x);
       if (pos('.',str) <> 0) then
       begin
            temp:=copy(str,1,(pos('.',str)-1));
            temp:=temp+copy(str,(pos('.',str)+1),length(str));
       end
       else temp:=str;
       if (StrToInt(temp[1]) = 0) then temp := copy(temp,2,length(temp));
       n:=length(temp);
       for k:=1 to n do
       begin
            dk := StrToInt(temp[k]);
            if not (dk = StrToInt(temp[n - k + 1])) then isSimmetryc := false;
       end;
       result:=isSimmetryc;
  end;
begin
   randomize;
   totalSimm := false;
   for i:=1 to h do
   begin
        for j:=1 to w do a[j,i]:= (random(99900)*1.12345);
   end;
    //раскоментировать нижню строчку для проверки на симметричность.
   //a[1,3]:=54345;
   
   
   for i:=1 to h do
   begin
        for j:=1 to w do if (checkSimmetry(a[j,i])) then
        begin
            writeln('Симметрично: ',a[j,i]);
            totalSimm := true;
        end;
   end;
   if not(totalSimm) then writeln('Ни одно число не симметрично!');
end.


Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 10 июня 2010 17:42 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 43 44 ]

Форум работает на скрипте © Ikonboard.com