С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
natascha
1 / 1 / 0
Регистрация: 05.09.2014
Сообщений: 51
1

Куда поставить writeln(), чтобы оно выводилось только один раз?

25.12.2014, 15:47. Просмотров 243. Ответов 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
begin
writeln('Введите с какого по какой год');
writeln('введите первый год');
readln(p);
writeln('Введите второй год');
readln(p1);
k:=StrToInt(p);
s1:=StrToInt(p1);
AssignFile(d, s); 
Reset(d);
i:=0;
while not eof(d) do
 
     begin  //запись в массив
            read(d, l);
            s3:=StrToInt(l.god);
            if (k<=s3) and (s3<=s1) then  
                
            begin
               
              writeln('Исполнитель':20, 'Название альбома':20, 'Год выпуска':6, 'Название композиции':20, 'Время':6);
                writeln(l.ispoln:20, l.nazwalb:20, l.god:6, l.nazwkomp:20, l.prodol:6);
                i:=i+1
             end;
end;
 if i=0 then writeln('Таких нет');
end;
 end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2014, 15:47
Ответы с готовыми решениями:

Как преобразовать массив, так чтобы вывести только повторяющиеся элементы один раз?
Как преобразовать массив, так чтобы вывести только повторяющиеся элементы один раз? Например числа:...

В квадрате 4х4 расположить 16 букв, чтобы в каждом горизонтальном и каждом вертикальном ряду буква встречалась только один раз
В квадраті 4х4 розташувати 16 літер (чотири a, чотири b, чотири c, чотири d) так, щоб в кожному...

Вывести только те символы, которые встречаются в тексте только один раз
Из заданного текста предложения выберите и выведите на экран только те символы, которые встречаются...

Цикл выполняется только один раз
var a, b, s :integer; begin read (a); s:=0; repeat begin if (a mod 10 mod 2)&lt;&gt;0 then s:=s + a...

Я не понимаю почему работает только один раз
по идеи код должен выполнятся бесконечность раз, но почему то работает только один раз почему?? ...

1
Puporev
Модератор
55483 / 42582 / 29431
Регистрация: 18.05.2008
Сообщений: 100,738
26.12.2014, 10:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
writeln('Исполнитель':20, 'Название альбома':20, 'Год выпуска':6, 'Название композиции':20, 'Время':6);
while not eof(d) do
 begin  //запись в массив
  read(d, l);
  s3:=StrToInt(l.god);
  if (k<=s3) and (s3<=s1) then
   begin
    writeln(l.ispoln:20, l.nazwalb:20, l.god:6, l.nazwkomp:20, l.prodol:6);
    i:=i+1
  end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2014, 10:11

Вывести элементы массива, встречающиеся только один раз
Помогите решить задачу.Срочно нужно . Задача:Задать массив целых чисел. Вывести на экран только те...

Вывести слова, которые встречаются в последовательности только один раз
Вообщем задача такая. В строке состоящей из символов слова вместо пробела разделены запятой,...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru