Это из paskal abc 1. дано число k. напишите программу, которая находит и выводит на экран количество полных минут и оставшихся секунд. 2. в школу подано n заявок в 1 класс. в каждом классе может быть не более 26 учеников . сколько классов может быть сформировано в школе? сколько детей будет
переведено в другие школы? 3. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр=100 см) 4. дано двузначное число. найти: a. число единиц в нем; b. сумму его цифр; 5. дано трехзначное число: а. число десятков в нем; b. произведение
его цифр. 6. дано четырехзначное число. найти сумму его цифр; !
var G,F:file of integer;
i,j,n:integer;
s:integer;
c,c1,c2:integer;
begin
writeln;
write('Vvedite n:');
readln(n);
Assign(G,'C:\g.txt');
Assign(F,'C:\f.txt');
Rewrite(F);
for i:=1 to n do
begin
c1:=1;
c2:=1;
for j:=1 to i+1 do begin
if j<i+1 then c1:=c1*2;
c2:=c2*3;
end;
c:=c1+c2;
write(F,c);
end;
Close(F);
Reset(F);
Rewrite(G);
s:=0;
while not Eof(f) do
begin
read(F,c);
if c>0 then c:=c*(-1);
write(G,c);
s:=s+c;
end;
write(G,s);
close(F);
close(G);
reset(G);
writeln('Komponenty fajla j:');
while not Eof(G) do
begin
read(G,c);
write(c);
end;
readln;
end.
Приклад.Виведення таблиці значень функції у файл.
Програма:
program file_of_values;
var
х : Real;
k : Word;
out_file : Text; {тип Text відповідає файлу. що складається із рядків тексту}
function F(x: Real): Real;
begin
F := x/d.O + x);
end;
begin
Assign(out_file, 'c:\user\ivanov\table.dat');
Rewrite(out_file);
x := 0.0;
WriteLn(out_file, 'Таблиця значень функції F(x) = x/(l + x)');
WriteLn(out_file);
WriteLn(out_file, 'x':9, 'F(x)':19);
WriteLn(out_file);
for k := 0 to 50 do
begin
WriteLn(out_file, x:9:3, F(x):19:9);
x := x + 0.1:
if k mod 10 = 9 then WriteLn(out_file);
end;
Close(out_file);
end.
#include<cstdlib>
#include<ctime>
#define abs(x) ((x)<0 ? -(x) : (x))
using namespace std;
int main()
{
srand(time(0));
int n, k, m = 0;
cout << "n = ", cin >> n;
int A[n], B[n];
cout <<"A("<<n<<"):";
for(int i = 0; i < n; i++)
cout <<" "<< (A[i] = rand() % (n*2+1) -n);
cout << "\nk = ", cin >> k;
for(int i = 0; i < n; i++)
if (abs(A[i]) % 10 == k) B[m++] = A[i];
cout <<"B("<<m<<"):";
for(int i = 0; i < m; i++)
cout <<" "<< B[i];
return 0;
}