Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ списки

Автор: соня 8.06.2007 13:04

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

Код
type
   listptr=^list;
   list=record
      x:real;
      nextptr:listptr;
   end;
var
   firstptr,curptr,ptr,prchisloptr:listptr;
   n,i:integer;
   prchislo:real;
begin
   write('‚Введите количество элементов списка  >');
   readln(n);
   writeln('‚Введите элементы списка :');
   firstptr:=nil;
   for i:=1 to n do
      begin
         new(curptr);
         write('x',i,'=');
         readln(curptr^.x);
         if firstptr=nil
            then
               firstptr:=curptr
            else
               ptr^.nextptr:=curptr;
         ptr:=curptr;
      end;
         if firstptr<>nil
            then
               curptr^.nextptr:=nil;
      curptr:=firstptr;
            if curptr^.x>=1
               then
                  curptr^.x:=prchislo;
            curptr:=curptr^.nextptr;

    ???????????????????????????
      readln;
end.

как мне найти и вывести эти числа.... unsure.gif

Автор: volvo 8.06.2007 15:06

Пробегать по всему списку, и каждый элемент проверять на простоту... Как - см. FAQ. Если число простое - вывод на печать...