Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.04.2009
Сообщений: 19
1

Программисты объясните проги

19.04.2009, 15:30. Показов 510. Ответов 1
Метки нет (Все метки)

Нужно для отчета!!!
Пожалуйста......
Заранее спосибо!

(1)
Pascal
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
program D__Z;
uses
  crt;
var
  l:string;
  i,k:integer;
  f:boolean;
begin
  clrscr;
  write ('Dan text');
  write('Esli v texte net simvola <<*>>, to ostavit text bez izmenenii,  inashe kazhduu iz malih latinskih bukv');
  writeln('predidushih pervomu vhozhdeniu <<*>>,');
  writeln('zamenit na simvol <</>>');
  writeln;
  writeln ('vvedite text');
  writeln;
  readln(l);
  f:=true;
  for i:=1 to length(l) do
    if l[i]='*' then
      begin
        f:=false;
        break;
      end;
  if not f then
    begin
      k:=1;
      while l[k]<>'*' do
        begin
          if (l[k]>='a') and (l[k]<='z') then
            l[k]:='/';
            inc(k);
        end;
    end;
  writeln;
  writeln(l);
  readkey
end.
(2).
Pascal
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
program D__Z;
uses
  crt;
var
  A:array[1..100,1..100] of integer;
  j,i,n,m:integer;
begin
  writeln('Dana matrica A[n,n]');
  writeln('Zamenit nuliami vse elementi, raspolozhennie na glavnoi dioganali ');
  write('dioganal-sverhu vniz i sleva na pravo');
  writeln('i vishe nee');
  writeln;
  randomize;
  writeln('vvedite kolichestvo strok i stalbcov');
  read(n);
  writeln('Poluchennaia matrica');
  for i:=1 to n do
    for j:=1 to n do
      begin
        A[i,j]:=random(99)+1;
        gotoxy(3+i*3,6+j*2);
        write(A[i,j]);
      end;
        readkey;
        writeln;
  for i:=1 to n do
    for j:=1 to n do
      begIn
        if (i<j+1)then
          A[i,j]:=0;
      end;
  for i:=1 to n do
      for j:=1 to n do
        begin
          gotoxy(30+i*3,6+j*2);
          write(A[j,i]:3);
        end;
  readkey;
  clrscr;
end.
(3).
Pascal
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
program Z__T;
Uses crt;
Var
  C:array [1..100] of integer;
  Z:array [1..100] of integer;
  i,n,j,k:byte;
begin
  clrscr;
  writeln('Sozdat massiv C(n)');
  writeln('Sozdat novii massiv Z(n) kotopii vivodot na ekran otricatelnie elementi massiva C(n)');
  writeln('vvedite kolishestvo elementa ');
  read(n);
  write ('massiv C ');
  randomize;
  k:=0;
  j:=0;
  for i:=1 to n do
    begin
      C[i]:=random(199)-99;
      write(C[i]:5);
    end;
  for i:=1 to n do
    if C[i]<0 then
      begin
        j:=j+1;
        Z[j]:=C[i];
        k:=k+1;
      end;
  writeln;
  write ('otricatelnie elementi massiva Z');
  for j:=1 to k do
    write (Z[j]:5);
    readkey
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2009, 15:30
Ответы с готовыми решениями:

Что такое лексема? Объясните как программисты
Что такое лексема

Visual Basic, программисты объясните пожалуйста
Здравствуйте, у меня курсовая работа по бейсику. Я написал код по найденному аналогу, но есть...

Установил фотошоп, вместо проги установились другие проги (игры онлайн,браузеры,рекламы и т.д.)
Здравствуйте, уважаемые программисты или форумчане! Скачал и установил с одного сайта фотошоп, а во...

Как отследить из проги на Си завершение другой проги
Есть две программы, одна написана не мной и исходников нет (main), вторую я пытаюсь написать сам...

1
3083 / 2404 / 255
Регистрация: 11.03.2009
Сообщений: 5,444
19.04.2009, 16:05 2
(1)
С клавиатуры вводится строка и просматривается на наличие символа "*", если он отсутствует, то строка просто выводится на экран без изменения. Если же такой символ присутствует, то от начала строки и до * все строчные латинские буквы заменяются на символ "/" и затем вся строка выводится на экран.

(2)
С клавиатуры вводится размер массива( но не больше 100), массив квадратрый заполняется случайными числами в диапазоне от 1 до 100, затем элементы находящиеся в диагоналях массива заменяются нулями и массив выводится на экран.

(3)
С клавиатуры вводится размер массива С(не больше 100), затем массив С заполняется случайными числами от -99 до 100 и потом все отрицательные элементы записываются в массив Z, который потом выводится на экран.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2009, 16:05

3 проги по С++
Народ помогите сделать запись в файл 3 способами: Файлы. -------------1...

Проги
#include &lt;iostream&gt; #include &lt;math.h&gt; #include &lt;stdio.h&gt; using namespace std; int main() {...

ПРОГИ
удалена ссылка САЙТ СПРОГАМИ ВРОДЕ КАК БЕСПЛАТНО

Проги
Ребята помогите решить две задачки я уже мозги сломал, вот условия задач: 1. Даны натуральное n,...

проги на С++
Я полный чайник в программировании,поэтому приходиться просить у вас помощи.Помогите плз сделать...

Программисты
Программисты из Москвы и регионов! Перспективная работа для вас в Российском филиале Американской...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru