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

Пнд, 02/07/2011 - 12:56 — tech

Версия для печати
Добавить комментарий

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

ответить

Пнд, 09/29/2014 - 16:40 — Гость

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

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

ответить

Пнд, 09/29/2014 - 19:00 — tech

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

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

ответить

Пнд, 06/09/2014 - 15:24 — Гость

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

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

ответить

Пнд, 06/09/2014 - 15:21 — Гость

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

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

ответить

Пнд, 06/09/2014 - 15:14 — Гость

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

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

ответить

Пнд, 06/09/2014 - 09:26 — Гость

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

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

ответить

пт, 06/06/2014 - 15:46 — Гость

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

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

ответить

пт, 06/06/2014 - 15:21 — Гость

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

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

ответить

пт, 06/06/2014 - 15:19 — Гость

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

помогите пожалуйста
Сформировать двумерный массив по следующему правилу:
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
Заранее спасибо

ответить

сб, 06/07/2014 - 20:41 — Гость

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 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 ) 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.

ответить

пт, 06/06/2014 - 15:16 — Гость

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

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

ответить

ср, 04/23/2014 - 06:43 — Гость

помогитее

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

ответить

вс, 06/08/2014 - 13:12 — Гость

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

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

{ 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.

"
Задается квадратик. Нужно задать еще несколько квадратов, но которые не будут двигаться, то есть препятствия. Если маленьким квадратиком задеть препятствие, программа должна выдать сообщение "проиграл" или что то вроде того, а далее начать все с начала

ответить

Пнд, 01/20/2014 - 22:53 — Гость

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

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

ответить

Втр, 01/21/2014 - 12:29 — tech

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

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

ответить

ср, 01/15/2014 - 20:37 — Гость

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

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

ответить

вс, 06/08/2014 - 13:42 — Гость

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

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.

ответить

пт, 12/20/2013 - 17:32 — Гость

задача

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

ответить

пт, 10/11/2013 - 00:13 — Гость

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

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

ответить

Втр, 05/07/2013 - 16:23 — Гость

Анкета

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

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

ответить

чт, 01/26/2012 - 12:08 — Гость

Задача

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

ответить

Пнд, 03/26/2012 - 18:00 — Гость

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.

ответить

Пнд, 08/13/2012 - 18:30 — Гость

перед REPEAT надо

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

ответить

пт, 11/18/2011 - 23:48 — Гость

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

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

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

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

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

ответить

сб, 11/19/2011 - 13:22 — tech

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

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

ответить

Пнд, 11/14/2011 - 20:40 — Гость

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

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

ответить

сб, 11/19/2011 - 13:50 — tech

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

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

Что понимать под логическим выражением? Например:
((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'].

ответить

пт, 11/11/2011 - 19:55 — Гость

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

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

ответить

Втр, 08/02/2011 - 15:27 — Гость

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

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

ответить

ср, 07/20/2011 - 16:29 — Гость

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

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

ответить

ср, 04/03/2013 - 22:27 — Гость

решение

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 (ij) 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.

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

ответить

пт, 02/17/2012 - 21:49 — Гость

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

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

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 (x0) Do
Begin
p:=x mod 10;
x:=x div 10;
Sch:=sch+1;
end;
writeln (Sch);
readln;
End.

ответить

вс, 03/10/2013 - 10:29 — Гость

не то

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

ответить

чт, 07/21/2011 - 22:05 — plustilino

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

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

ответить

чт, 05/02/2013 - 14:21 — Гость

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

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

ответить

Решение задач

Программы

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

Комментарии

Учебник

Последние комментарии

Облако тегов