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

06.02.2011, 17:53. **Показов** 887. **Ответов** 2

Студворк — интернет-сервис помощи студентам

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

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
program zavd_18_14;
 
const
  krapka: char = '.';
 
var
  s, sn: string;
  i, n, k1: integer;
 
begin
  write('Vvedit kilkist sumvolnuh radkiv:'); readln(n);
  for i:=1 to n do
  begin
    write('Vveditj ',i,' sumvoljnuy ryadok:'); readln (s[i]);
  end;
  for i := 1 to n do
  begin
    k1 := pos('.', s[i]);
    if k1 > 0 then
    begin
      sn[i] := copy(s[i], 1, k1 - 1);
    end;
  end;
  writeln('Vuvodumo sumvolu do pershoi rkapku:',sn[i]);
  readln
end.

@tenager · 10.02.2011, 18:02

Не совсем понял условие. Но насколько я понял, s и sn не строки, а массивы строк. В общем вот программа, которая запускается, а насчёт вывода уже сами исправьте, потому что что нужно выводить я не понял:

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
program zavd_18_14;
 
const
  krapka: char = '.';
 
var
  s,sn    :array[1..100] of string;
  i, n, k1:integer;
 
begin
     write('Vvedit kilkist sumvolnuh radkiv:'); readln(n);
     for i:=1 to n do
     begin
          write('Vveditj ',i,' sumvoljnuy ryadok:'); readln (s[i]);
     end;
     for i := 1 to n do
     begin
          k1 := pos('.', s[i]);
          if k1 > 0
          then
          begin
               sn[i] := copy(s[i], 1, k1 - 1);
          end;
     end;
     writeln('Vuvodumo sumvolu do pershoi rkapku:',sn[i]);
     readln;
end.

@Puporev · 10.02.2011, 18:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program zavd_18_14;
uses crt;
const krapka: char = '.';
var s:array[1..20] of string;
    i, n, k1:integer;
begin
clrscr;
write('Vvedit kilkist sumvolnuh radkiv:');
readln(n);
writeln('Vveditj ',n,' sumvoljnyh ryadkov, soderzashih tochki:');
for i:=1 to n do
readln (s[i]);
writeln;
writeln('Udalenie simvolov do 1 tochki:');
for i := 1 to n do
 begin
  k1 := pos('.', s[i]);
  {нужно не выводить до первой точки, а удалять}
  if k1 > 0 then s[i]:=copy(s[i],k1,length(s[i])-k1+1);
  writeln(s[i]);
 end;
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .