Помогите с задачами по Pascal

  • Автор темы playone
  • Дата начала
Статус
Закрыто для дальнейших ответов.
P

playone

#1
Помогите дорогие мои решить сл. задачи. Скоро сессия а я в полной жопе с остальными предметами и на программирование не остальсь времени.
----------------------------------------
1)Дана матрица R(9,9). Найти найменьший элемент в каждой строке и записать его на месте первого элемента строки. Вывести исходную и полученною матрицу.
----------------------------------------
2)Дана строка состоящая из русских слов, разделённых пробелами(с одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и тойже буквой и содержащие букву "А".
----------------------------------------
3)Из файла F в файл G записать данные ввиде: eсли число положительное в F то в G записывается "2", если отрицательное то "1".
----------------------------------------
4)При поможи типизированиого файла. Дана база дынных:
-Название кружка
-Преподователь
-Кол-во человек
-Возраст (средний)
Организавать поиск по возрасту с видом:
-Название кружка
-Фамилия (Препода)
-Кол-во человек
----------------------------------------
5)Сделать при поможи графиков часы
 
B

Barmutik

#3
Пора открывать бюро платных услуг по написанию задач для сдачи сессии :)
 

admin

Well-known member
08.08.2003
2 754
0
#6
Barmutik
как почетному члену твои темы даже закреплены будут :)
 
A

Aliaksandar

#7
Ну я не знаю если правильно понял то 3 задача вообще лёгкая как и остальные в принципи:):):)
Кароч эта прога если числа в файле F идут каждое число в новой строке
Код:
{$APPTYPE CONSOLE}
uses
SysUtils;
var
F,G:TextFile;
StrCount:string;
function Chet(a:integer):integer;
begin
If a mod 2=0 then result:=2;
If a mod 2<>0 then result:=1;
If a=0 then result:=0;
end;
begin
AssignFile(F,'F.txt');
AssignFile(G,'G.txt');
Reset(F);
Rewrite(G);
While not Eof(F) do
begin
 Readln(F,StrCount);
 Writeln(G,IntToStr(Chet(StrToInt(StrCount))));
end;
CloseFile(F);
CloseFile(G);
end.
 {Alex RedWoodLan 2005}
 
Статус
Закрыто для дальнейших ответов.