Паскаль.

Svetlanka · 01.01.2011, 13:13

Помогите пожалуйста!!! Очень Нужно!!

1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...).

2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1.

3.7 Разработать программу формирования стека, куда помещается последовательность символов, вводимых с клавиатуры. Процесс ввода символов должен прекращаться, как только среди вводимых символов появляется точка, после этого программа должна реверсировать стек. Под реверсированием здесь понимается изменения направления ссылок в стеке на противоположное, т.е. после реверсирования вершина и дно стека меняется местами.

shrek=) · 01.01.2011, 13:31

Цитата:

Сообщение от Svetlanka

1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...).

Код:

const
n=10;
var
i:integer;
s:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
s[i]:=random(100);
for i:=1 to n do begin
if (i=1) or (i=2) or (i=4) or (i=8)
then writeln (i,'=',s[i]);
end;
readln
end.

вот как то так.

shrek=) · 01.01.2011, 13:51

Цитата:

Сообщение от Svetlanka

2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1.

Код:

var
f:text;
a:array [1..100] of integer;
k,i:integer;
begin
assign (f,'c:\f1.in');
reset (f);
for i:=1 to 100 do
read (f,a[i]);
close (f);
assign (f,'c:\f2');
rewrite (f);
for i:=1 to 100 do begin              
if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
writeln (f,a[i]);
write (' ',a[i]);
end;
end;
close (f);
readln
end.

01.01.2011, 13:13	#1 (permalink)
Svetlanka Member Регистрация: 15.11.2010 Сообщений: 34 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Помогите пожалуйста!!! Очень Нужно!! 1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...). 2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1. 3.7 Разработать программу формирования стека, куда помещается последовательность символов, вводимых с клавиатуры. Процесс ввода символов должен прекращаться, как только среди вводимых символов появляется точка, после этого программа должна реверсировать стек. Под реверсированием здесь понимается изменения направления ссылок в стеке на противоположное, т.е. после реверсирования вершина и дно стека меняется местами.

01.01.2011, 13:13
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Отправлю сюда список тем которые похожи на вашу, чтобы вы их не искали Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070