Beliarh
Новичок
|
      
Здравствуйте. Пожалуйста, помогите с задачей.
Условие: Дан файл р,компоненты которого являются действительными числами. Найти последнюю компоненту файла р.
Есть наработки. Вроде все правильно работает, но что-то код не очень нравиться... Может подскажете что-нибудь.
Код программы:
{Program for search last component in file p'}
Program Search;
uses crt;
var
f1 : text;
st : string;
begin
clrscr;
writeln('Program for search last component in file p');
writeln('-------------------------------------------');
assign (f1,'p');
{$I-}
reset(f1);{Open file for reading}
while not eof(f1) do
begin
readln(f1,st);
if eoln(f1) then
write(st);
end;
close(f1);{Close file}
readln;
end.
|
Всего сообщений: 1 | Присоединился: апрель 2010 | Отправлено: 7 апр. 2010 17:20 | IP
|
|
Archer
Новичок
|
Составить блок схему для программы:"Подсчитать количество натуральных чисел, принадлежащих отрезку [a,b] в записи которых не четные цифры отсутствуют"
Program _6;
var
cnt,
a, b : word;
function have_even(dig:word):boolean;
var
res : boolean;
begin
res := false;
repeat
res := res or ((dig mod 10) mod 2 = 1);
dig := dig div 10;
until res or (dig = 0);
have_even := res;
end;
begin
write('Nachalo intervala a='); readln(a);
write('Konec intervala b='); readln(b);
cnt := 0;
while a<=b do
begin
if not have_even(a) then inc(cnt);
inc(a)
end;
writeln('Naideno ', cnt, ' chisel, v zapisi kotorix otsutstvuyt nechetnie cifri')
end.
(Сообщение отредактировал Archer 9 апр. 2010 12:26)
|
Всего сообщений: 6 | Присоединился: март 2010 | Отправлено: 9 апр. 2010 11:18 | IP
|
|
sambuka
Новичок
|
Korvet,все понятно...только вот при n=5,m=3 и к=0,он меняет местами,хотя вроде не должен....
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 11 апр. 2010 11:39 | IP
|
|
Korvet
Новичок
|
 
Цитата: sambuka написал 11 апр. 2010 11:39
Korvet,все понятно...только вот при n=5,m=3 и к=0,он меняет местами,хотя вроде не должен....
Так как в нашем случае нумерация массива начинается с 1, то вообще нелогично вводить 0, но если хочешь дополни условие:
вместо
if k+m-1<=n then
напиши
if (k+m-1<=n) and (k>0) then
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 11 апр. 2010 16:14 | IP
|
|
sambuka
Новичок
|
хорошо, спасибо!!!
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 12 апр. 2010 21:24 | IP
|
|
maria86
Новичок
|
здравствуйте. подскажите как написать программу по паскалю (блоки уже сделаны) трудности в програме, если дано условие у = 1, если а и б имеют одинаковое значение, у=-1, если а и б имеют разное значение, у=0 во всех остальных случаях.
|
Всего сообщений: 1 | Присоединился: апрель 2010 | Отправлено: 13 апр. 2010 19:34 | IP
|
|
Sagadat777
Новичок
|
Распечатать анкетные данные учеников участвовавших в олимпиаде по информатике и зарабавших не менее 30 баллов
c помощью Record
|
Всего сообщений: 5 | Присоединился: апрель 2010 | Отправлено: 13 апр. 2010 21:51 | IP
|
|
Sagadat777
Новичок
|
Здраствуйте помагите пожалуйста???Уважаемые программисты
Заполнить файл Натуральными числами полученными с помощью генератора случайных чисел. найти количество квадратов нечетных чисел среди компанентов
|
Всего сообщений: 5 | Присоединился: апрель 2010 | Отправлено: 13 апр. 2010 21:57 | IP
|
|
Sagadat777
Новичок
|
Здраствуйте помагите пожалуйста???Уважаемые программисты
Составить программу которая вычисляет сумму тех элементов двумерного массива, номера строк и столбцов которых принадлежат соответственно непустым множествам S1и S2
(Сообщение отредактировал Sagadat777 14 апр. 2010 14:12)
|
Всего сообщений: 5 | Присоединился: апрель 2010 | Отправлено: 13 апр. 2010 21:58 | IP
|
|
Sagadat777
Новичок
|
Здраствуйте помагите пожалуйста???Уважаемые программисты
С помощью массив.При поступлении в институт абитуриенты получившие "двойку" на первом экзамене ко второму экзамену не допускается. Считая Фамилии абитуриентов и их оценки после первого экзаменаисходными данными, составить список допушенных ко второму экзамену
|
Всего сообщений: 5 | Присоединился: апрель 2010 | Отправлено: 13 апр. 2010 22:01 | IP
|
|
Форум
Решение задач на Pascal. Форум 3.
