Главная | Регистрация | Вход | RSSПонедельник, 23.10.2017, 18:18





[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Форум для учащихся » Информатика » 9 кл (Практические задания)
9 кл
AdminДата: Четверг, 23.01.2014, 19:14 | Сообщение # 1
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
Задача1. От пользователя требуется ввод двух чисел. Эти значения должны быть
присвоены двум переменным, причем значение первой должно быть меньше второй.
Конечно, можно предупредить об этом пользователя, но возможно ему удобней будет
и не знать о требованиях программы. В коде программы можно реализовать
процедуру, производящую обмен значений двух переменных, и вызывать ее после
каждого очередного ввода пользователя.

Program Z1;
Var    
k, l: integer;
 procedure exchange (var a,b: integer);
    var c: integer;
    begin
        if a > b then
begin  c := a; 
a := b;  b := c; end;
    end;
 begin
     writeln ('Введите два числа: '); readln (k, l);
     exchange (k, l);
     writeln ('k = ', k,'; l = ', l);  readln;
end.

Составить блок-схему программы

Задача 2
Решитьзадачу , используя функции min(x,y,z) и max(x,y,z)
 
AdminДата: Пятница, 03.10.2014, 09:27 | Сообщение # 2
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
Program zadacha; 
Var a,b:integer; 
    f:text; 
    f1:text; 
Begin 
    assign(f,'input.txt'); reset(f); 
    assign(f1,'output.txt'); rewrite(f1); 
Read(f,a,b); 
Write(f1,'произведение=', a*b
); 
    close(f); 
    close(f1); 
end.
 
AdminДата: Среда, 19.11.2014, 14:00 | Сообщение # 3
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
Материал для конференции по Паскалю
 
AdminДата: Среда, 11.02.2015, 13:37 | Сообщение # 4
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
Внимательно просмотреть фильмы, в Word записать основные правила поведения в Интернете по форме:
Развлечения и безопасность в Интернете:
1.
2.
3.
4.
5.

Мошейничество в Интернете:
1.
2.
3.
4.
5.

Не забудьте вставить верхний колонтитул (фамилия, имя, класс). Файл прислать на почту grynina@inbox.ru




program test;
const n=1;m=4;
var v:array [1..n,0..m] of string;
o: array[1..n] of integer;
f,f1:text;
b,otv,i,j: integer; FI,k:string;
begin
writeln('Введите фамилию, имя'); readln(FI);
writeln('Введите номер класса'); readln(k);
assign (f,'vopros.txt');reset(f);
assign (f1,'rezultat.txt');rewrite(f1);
for i:=1 to n do
for j:=0 to m do readln(f,v[i,j]);
for i:=1 to n do readln(f,o);
for i:=1 to n do
begin
for j:=0 to m do Writeln(v[i,j]);
Writeln ('Введите номер ответа'); readln(otv);
if otv=o 
then b:=b+1;
end;
writeln (f1,FI,' ',k,'Количество баллов',b);
close (f); close(f1);
end.
 
AdminДата: Среда, 01.04.2015, 10:18 | Сообщение # 5
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
Сортировка матрицы по столбцам в порядке убывания:
program z1;
const n=5;
var a: array [1..n,1..n] of integer;
i,j,c,y:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(99);
writeln('Массив:');
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:4);
writeln; end;
for j:=1 to n do
for i:=1 to N-1 do
begin
for y:=i+1 to N do
if a[i,j]<a[y,j] then 
begin
c:=a[i,j]; a[i,j]:=a[y,j]; a[y,j]:=c;
end;
end;
writeln('Массив:');
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:4);
writeln; end;
end.
 
AdminДата: Четверг, 14.05.2015, 11:16 | Сообщение # 6
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Offline
История ЭВМ (лекция)
Прикрепления: lekcija-16.pdf(313Kb)
 
Форум » Форум для учащихся » Информатика » 9 кл (Практические задания)
Страница 1 из 11
Поиск:


Copyright MyCorp © 2017

Бесплатный хостинг uCozЯндекс.Метрика