Начала программирования

Комментарии

В представленном фрагменте

В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно [5]? Нарисовать блок-схему к представленному фрагменту.
For i : = 1 To 5 Do
Begin
A [2*i – 1] :=i ;
A [2*i ] := i*i ;
End.

Цикл

Помогите решить задачи.
1)Даны целые числа от 27 до 55. Найти сумму четных чисел и произведение нечетных чисел.
2)Найти сумму целых чисел, больших 23 и меньших 177, кратных 3, начинающихся на 4 (для каждого подходящего числа должны выполняться все 4 критерия одновременно)

Задача в Делфи в визуальной среде с T-Form

Помогите пожалуйста
Дана символьная квадратная матрица размерность n.Напечатайте элеметы матрицы, лежащие на побочной диагонали в алфавитном порядке

Строки

Помогите, пожалуйста, решить задачу. Среди слов заданного предложения найти такое, которое имеет наибольшее количество вхождений в предложение.

Паскаль Задача

Помогите плиз
Найти четные делители числа а (программа Паскаль)
Буду очень благодарна

паскаль

Составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов

var s: string; i,l:

var
    s: string;
    i,l: byte;
begin
    readln(s);
    l := length(s);
    if l < 2 then exit;
 
    i := 1;
    while i <= l do begin
        if s[i] = ' ' then begin
            delete(s,i,1);
            l := l - 1;
        end
        else
            i := i + 1;
    end;
    writeln(s);
    if l < 2 then exit;
 
    for i:=1 to l div 2 do 
        if s[i] <> s[l-i+1] then begin
            writeln('это не палиндром');
            exit;
        end;
    writeln('это палиндром');    
end.

ПОМОГИТЕ ПОЖАЛУЙСТА?

НУЖНО НАПИСАТЬ ПРОГРАММУ КОТОРАЯ СОРТИРУЕТ ПО АЛФАВИТУ СЛОВА, АЛФАВИТ НУЖНО НАПИСАТЬ САМОМУ, ОН МОЖЕТ БЫТЬ ЛЮБОЙ. ПОЖАЛУЙСТА ПОМОГИТЕ???

var str: string;

var 
    str: string;
    arr: array[1..30] of string[20];
    s: string[20];
    alph: string;
    i, j, m: byte;
begin
    writeln('Введите символы алфавита одной строкой');
    readln(alph);
 
    writeln('Вводите слова через пробел: ');
    readln(str);
    s := '';
    j := 0;
    for i:=1 to length(str) do begin // разбиение строки на массив слов
        if str[i] <> ' ' then s := s + str[i]
        else begin
            j := j + 1;
            arr[j] := s;
            s := '';
        end;
        if i = length(str) then begin // запись в массив последнего слова
            j := j + 1;
            arr[j] := s;
        end;
    end;
    m := j; // количество слов в массиве
    for i:=1 to m-1 do
        for j:=1 to m-i do
            if pos(arr[j][1],alph) > pos(arr[j+1][1],alph) then begin
            // если позиция первой буквы очередного слова в алфавите больше,
            // чем позиция первой буквы следующего слова, то ...
                s := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := s;
            end;
 
    for i:=1 to m do write(arr[i], ' ');
    writeln;
end.

Пример работы программы:

Введите символы алфавита одной строкой
qwert
Вводите слова через пробел: 
red when quadro ten ello
quadro when ello red ten 

Задача в паскале помогите

Дана строка, содержащая текст на русском языке.Определить ,сколько раз встречается в ней самое короткое слово.

задача с двумерными массивами в паскале помогите

Дан двумерный массив.Определить есть ли на побочной диагонали массива элемент, равный А(массив имеет размерность (N*N)

Задача с массивами помогите

Дан двумерный массив.Найти номера первых отрицательных элементов каждого столбца

Помогите плиз

Определить пару соседних элементов ,произведение которых равно заданному числу

Помогите пожалуйста срочно

Дан двумерный массив.Найти сумму элементов строки в которой находится минимальный элемент массива

Двумерный массив

помогите пожалуйста
Определить сколько элементов массива превосходят по модулю максимальный элемент

задача массивами в раскале

помогите пожалуйста
Дана строка символов,среди которых есть одна открывающая и одна закрывающая скобки.Вывести на экран все символы,расположенные внутри этих скобок.
Заранее спасибо

задача с двумерными массивами в раскале

помогите пожалуйста
Сформировать двумерный массив по следующему правилу:
1 2 3 4 5
2 1 2 3 4
3 2 1 2 3
4 3 2 1 2
5 4 3 2 1
Заранее спасибо

Re:задача с двумерными массивами в раскале

const
  n = 5;
 
var
  mas: array [1..n, 1..n]of byte;
  i, j, k, t: integer;
 
begin
  mas[1, 1] := 1;
  i := 1;
  while i < n do
  begin mas[i + 1, i + 1] := mas[i, i];inc(i); end;
 
  for i := 1 to n do
    for j := 1 to n do
      if (i = j) and (i < n) then
      begin
        k := i + 1;t := j;
        repeat
          mas[k, t] := mas[k - 1, t] + 1;inc(k);
        until k = n + 1;
        k := i;t := j + 1;
        repeat
          mas[k, t] := mas[k, t - 1] + 1;inc(t);
        until t = n + 1;
      end;
 
  for i := 1 to n do
  begin
    for j := 1 to n do write(mas[i, j]:3);
    writeln;
  end;
end.

задача с двумерными массивами в раскале

помогите пожалуйста
Дан двумерный массив.Найти сумму элементов строки в который находится минимальный элемент массива.
Заранее спасибо

помогитее

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

помогите...вот.

Uses crt;
Var
a,b,v,t,u,i : Integer;
begin
 Writeln ('Введите первую пару чисел:');
 Write ('Первое число:');
 Readln (a);
 Write ('Второе число:');
 Readln (b);
 v:=a+b;
 Writeln ('Введите вторую пару чисел:');
 Write ('Первое число:');
 Readln (t);
 Write ('Второе число:');
 Readln (u);
 i:=t+u;
 if (v=i) then Writeln ('Они равны.');
 if (v>i) then Writeln ('Сумма первой пары чисел больше суммы второй.');
 if (v<i) then Writeln ('Сумма второй пары чисел больше суммы второй.');
end.

Помогите пожалуйста....Вот

Помогите пожалуйста....
Вот начало программного кода
"

{ TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
 
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
  i,j: integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.KeyPreview:=true;
   i:=50;
   j:=50;
   Form1.Canvas.Rectangle(i,j,10+i,10+j);
end;
 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
 
begin
   form1.Refresh;
if  key = vk_right then i:=i+10;
if  key = vk_left then i:=i-10;
if  key = vk_down then j:=j+10;
if  key = vk_up then j:=j-10;
 
Form1.Canvas.Rectangle(i,j,10+i,10+j);
 end;
 end.  
"
Задается квадратик. Нужно задать еще несколько квадратов, но которые не будут двигаться, то есть препятствия. Если маленьким квадратиком задеть препятствие, программа должна выдать сообщение "проиграл" или что то вроде того, а далее начать все с начала

Помогите решить

дано трехзначное число вывести на экран все трехзначные числа которые можно получить из цифр данного числа написать в free pascal

Полностью решить не

Полностью решить не получилось.

памогите плиз срочно

в чашке находиться микроб,количество удваивается с каждой минутой составить программу нахождение микробов за 1,2,3,4,5 минут

Помогите плиз срочно...вот

Uses crt;
Var
a,b,c,d,s,f,g : Integer;
begin
 Writeln ('В чашке один микроб.');
 a:=1;
 Writeln ('Микробов в чашке за   минут(ы)');           //После каждого слова "за" 
 Gotoxy (21,2);                                                     //три пробела нужно сделать.
 Readln (c);
 if (c=1) then Writeln ('Количество микробов в чашке:',a*2);
 Writeln;
 Writeln ('Микробов в чашке за   минут(ы)');
 Gotoxy (21,5);
 Readln (d);
 if (d=2) then Writeln ('Количество микробов в чашке:',a*4);
 Writeln;
 Writeln ('Микробов в чашке за   минут(ы):');
 Gotoxy (21,8);
 Readln (s);
 if (s=3) then Writeln ('Количество микробов в чашке:',a*6);
 Writeln;
 Writeln ('Микробов в чашке за   минут(ы):');
 Gotoxy (21,11);
 Readln (f);
 if (f=4) then Writeln ('Количество микробов в чашке:',a*8);
 Writeln;
 Writeln ('Микробов в чашке за   минут(ы):');
 Gotoxy (21,14);
 Readln (g);
 if (g=5) then Writeln ('Количество микробов в чашке:',a*10);
end.

задача

Длина коробки 30 см, ширина 20 см. Чему равна высота коробки, если её объём равен 7200 кубических сантиметров? Какую площадь и какой периметр имеет дно коробки?

Найдите все возможные

Найдите все возможные значения "R", если r1=10 ом, r3= 20 ом, а r2 меняется в интервале от 10 ом до 20 ом с шагом 1 ом.
Найти при каком r2, сопротивление R имеет максимальное значение.

Анкета

Пишу программу, которая выводит на экране в терминале анкету и даёт пользователю её заполнять. Работает не так, как надо: даёт возможность заполнить первый пункт, а второй не даёт заполнить - вылетает.

uses crt;
var n, r :  string;
begin
    clrscr;
    writeln('Name:');
    writeln('');
    writeln('Rang:');
    gotoxy(0, 2);
    read(n);
    gotoxy(0, 4);
    read(r);
end.

Линукс, 64 бит, FPC

Задача

Написать программу, позволяющую вводить с клавиатуры символы до тех пор, пока не будет введен символ $. Найти количество цифр среди введённых символов.
Нельзя использовать тип массивы и строки.

program project1;var

program project1;
var a:char;
      s:integer;
begin
repeat
writeln('Введите символ');
readln(a);
case a of:
'1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='$';
writeln('Введено ',s, 'цифр.');
readln;
end.

перед REPEAT надо

перед REPEAT надо поставить
s:=0;

Помогите с задачей, пажалуйста.

Формат входных данных .

Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива.

Формат выходных данных.

Необходимо вывести количество элементов массива, которые строго больше обоих своих соседей.

Решено здесь:

Решено здесь: http://pas1.ru/compare-items

Помогите с задачей

Помогите с задачей: Нужно ввести любое логическое выражения, программа должна определить колличество переменных в этом выражении, обработать его и в конце выдать таблицу истиности типа 0010011

На мой взляд, это достаточно

На мой взляд, это достаточно объемная и сложная задача.

Что понимать под логическим выражением? Например:
((a > b) and (c <= d)) or (c == e)

Может ли пользователь использовать числа в вводе? Например:
((a > 5) and (c <= d)) or (c == 0). Тогда алгоритм решения будет иным. Другими словами, какие ограничения накладываются на логические выражения?

Чтобы выдать таблицу истинности, переменные a, b, c, d, e должны быть объявлены в программе и им должно быть присвоено значение. Или как-то по-другому?

Пользователь вводит строку. Из нее можно извлечь символы, подстроки, числа. Но как из нее получить переменную? Никак. Т.е. нужно в программе иметь массив строк, аналогичный существующим переменным. Например, если есть переменные a, b, c, d, e, то должен быть массив ['a', 'b', 'c', 'd', 'e'].

Помогите решить, не получается..

Пусть задана символьная квадратная матрица размерности n. Напечатайте элементы матрицы, лежащие на ее главной диагонали, если все они отличны от элементов, принадлежащих побочных диагонали. Если это условие не выполняется, то напечатайте элементы побочной диагонали данной матрицы.

Решить задачу...

3. Задан двумерный массив, состоящий из нулей и единиц. Необходимо высчитать наибольший по площади прямоугольник, состоящий из единиц и подсветить (выделить) его.
0100101
0101110
0011110
Площадь наибольшего прямоугольника в данном примере 2х3=6(две строки по 3 единицы).

Решить задачу...

Как написать программе чтоб она различала Разряды
Вообще мне надо написать программу которая будет :
Даны два пятизначных числа, необходимо найти количество совпадений по две одинаковые цифры в равносильных разрядах чисел,
а так же количество совпадений по две одинаковые цифры в различных разрядах этих чисел. Цифра, которая уже участвовала в одной паре совпадения, не учитывается повторно. Например:
Дано: 12345
27376
Количество совпадений одинаковых цифр в равносильном разряде равно 1, это цифра 3.
Количество совпадений одинаковых цифр в различных разрядах равно 1, это цифра 2

решение

var a,b:string [5];
    i,j,k:byte;
    num, num1: set of byte;
begin
     writeln ('Введите два числа');
     readln (a,b);
     for i:=5 downto 1 do
         if a[i]=b[i]
            then
                k:=k+1;
     writeln ('Количество совпадений одинаковых цифр в равносильном разряде - ', k);
 
     k:=0; num:=[]; num1:=[];
     for i:=1 to 5 do
         for j:=1 to 5 do
             if (a[i]=b[j]) and (i<>j) and not(i in num) and not(j in num1)
                     then
                         begin
                              k:=k+1;
                              writeln (a[i]);
                              num:=num+[i];
                              num1:=num1+[j];
                         end;
     writeln ('Количество совпадений одинаковых цифр в различных разрядах - ', k);
 
end.

ЗЫ: там есть один маленький косяк - уже не помню, но надо еще условие добавить (не на всех наборах данных работает)

Ответ на ваш вопрос

Я конечно не знаю как вам помочь но я на кружке делал такую программи вот её текст !

Program razryad ;
Uses crt;
Var x,p,Sch:Integer;
Begin
CLRSCR;
writeln('x=');
Readln(x);
If x=0 Then sch:=1
else sch:=0;
While (x<>0) Do
Begin
p:=x mod 10;
x:=x div 10;
Sch:=sch+1;
end;
writeln (Sch);
readln;
End.

не то

Не,не,не. Если я не ошибаюсь, то sch-это кол-во цифр в числе.

Один из вариантов решения

Один из вариантов решения подобного типа задач: http://pas1.ru/comparisondischarges

Определить вероятность

Определить вероятность появления заданной буквы в заданном тексте